Discussion :

[fab011]

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.

[tonton fred]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[fab011]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ??

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

    Set Ws = ThisWorkbook.Worksheets(nom)

"Nom" est une variable, tu ne dois pas mettre de guillemet.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 Sheets.Add.Name = nom

Merci pour l'aide!

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[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!

[ouskel'n'or]

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

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

Sheets("listmoul").Select

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

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+

[fab011]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !