[VBA Excel] problème de sélection de feuilles

Version imprimable

02/06/2007, 10h37
fab011

[VBA Excel] problème de sélection de feuilles

Bonjour à tous,

Nouveau sur ce forum, je fais appel à vous pour m'aider à résoudre mon problème que voila:
J'ai crée dans un formulaire une TextBox dans laquelle je doit rentrer la réf. d'un produit et lorsque je valide ma saisie, Excel me crée automatiquement une nouvelle feuille nommée du texte que j'ai saisi.
Ca, ça fonctionne correctement.
Par contre, lorsque je saisi une réf. déjà existante, je voudrait qu'Excel me sélectionne la feuille correspondante, et ça, je n'arrive pas à y parvenir.

Quelqu'un aurait-il une idée SVP ?

D'avance merci pour votre aide.:lol:

Bonjour,

Le principe a utiliser dans ce cas: tu lui dis de selectionner la feuille sheets(reference), et s'il ne peut pas alors tu la crees (et non pas l'inverse comme tu as fait).

Voila l'exemple utilise dans la FAQ gestion d'erreur, tu adaptes et ca marche ;)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub laMacro() Dim Ws As Worksheet 'Evite le message d'erreur si la feuille n'existe pas. On Error Resume Next Set Ws = ThisWorkbook.Worksheets("NomFeuille") On Error GoTo 0 '(Ws = Nothing quand l'objet attribué à la variable n'existe pas) If Not Ws Is Nothing Then MsgBox "La feuille existe dans le classeur." Else MsgBox "La feuille n'existe pas dans le classeur." End If End Sub

02/06/2007, 13h02
fab011

Bonjour et merci Tontonfred,

Il est vrai que c'est peut-être la solution.
Je vais essayer d'adapter ce code à mon projet et je te tiens au courant.;)

Voilà, j'ai essayé mais ça coince quelque part, quand je saisis une réf.,donc feuille, déjà existante.
Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Private Sub CommandButton1_Click()
Dim Ws As Worksheet
 Dim nom As String
 nom = TextBox1.Value
    'Evite le message d'erreur si la feuille n'existe pas.
    On Error Resume Next
    Set Ws = ThisWorkbook.Worksheets("nom")
    On Error GoTo 0
    '(Ws = Nothing quand l'objet attribué à la variable n'existe pas)
    If Ws Is Nothing Then
        Sheets.Add.Name = nom
        Else
        Sheets("nom").Select
    End If
Sheets("listmoul").Range("a65536").End(xlUp).Offset(1, 0).Value = nom
Sheets("listmoul").Select
    Columns("A:A").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
End Sub

Je suis sur que je fais une grosse erreur, mais ou ??

02/06/2007, 14h11
ouskel'n'or

La ligne où se produit l'erreur est surlignée en jaune. Ensuite, tu as un message d'erreur. Quel est-il ? Et précise la ligne ;)

edit

Code:

Set Ws = ThisWorkbook.Worksheets(nom)

"Nom" est une variable, tu ne dois pas mettre de guillemet.
02/06/2007, 14h11
fab011

Bonjour,

J'ai un message d'"erreur d'execution 1004", impossible de renommer une feuille comme une autre feuille...

L'erreur se produit à cette ligne:

Code:

Sheets.Add.Name = nom

Merci pour l'aide! ;)

Ok, en fait t'as tout faux. Teste ça ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Ws As Worksheet
 Dim nom As String
 nom = TextBox1.Value
    'Evite le message d'erreur si la feuille n'existe pas.
    On Error Resume Next
    Set Ws = ThisWorkbook.Worksheets(nom)
    On Error GoTo 0
    '(Ws = Nothing quand l'objet attribué à la variable n'existe pas)
    If Ws Is Nothing Then
        Set Ws = Sheets.Add
        Ws.Name = nom
        Else
        Ws.Select
    End If

A+

02/06/2007, 14h39
fab011

Effectivement, j'avais tout faux !!! mais quand on débute, on est content de trouver de l'aide !
Ton code fonctionne bien, mais lorsque je saisis une réf. déjà existante, il me l'ajoute à nouveau dans ma feuille "listmoul" , col A alors qu'elle est déja présente. De plus, je perds la selection automatique de la feuille sur laquelle je veux me trouver (a créer ou déjà existante).

En tout cas, merci pour ton aide précieuse! ;)
02/06/2007, 15h05
ouskel'n'or

Quand tu ajoutes une feuille, elle devient la feuille active. Ça c'est pour tépondre à ton "observation"

Citation:

De plus, je perds la selection automatique de la feuille sur laquelle je veux me trouver (a créer ou déjà existante).

Là je ne comprends pas car tu mets plus bas

Citation:

Sheets("listmoul").Select

Avec ce code, tu dois te retrouver sur la feuille "listmoul"
Enfin

Citation:

Ton code fonctionne bien, mais lorsque je saisis une réf. déjà existante, il me l'ajoute à nouveau dans ma feuille "listmoul" , col A alors qu'elle est déja présente.

Là je n'ai pas ton code par lequel tu écris le nom de ta feuille... alors...
A+

OK, génial !!!
Mon pb est résolu, merci à tous, je vous joins la solution:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim Ws As Worksheet
 Dim nom As String
 nom = TextBox1.Value
    'Evite le message d'erreur si la feuille n'existe pas.
    On Error Resume Next
    Set Ws = ThisWorkbook.Worksheets(nom)
    On Error GoTo 0
    '(Ws = Nothing quand l'objet attribué à la variable n'existe pas)
    If Ws Is Nothing Then
        Set Ws = Sheets.Add
        Ws.Name = nom
        Sheets("listmoul").Range("a65536").End(xlUp).Offset(1, 0).Value = nom
Sheets("listmoul").Select
    Columns("A:A").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A1").Select
    Ws.Select
      Else
        Ws.Select
        End If

J'espère qu'elle servira à d'autres !:yaisse2: