Bonjour,


je voudrais savoir comment lors d'un click sur un bouton(cmdAjouter)
peut-on vérifier d'après une variable(sNumAts) si une feuille existe, si oui,
l'ouvrir sinon la créer et la nommer(sNumAts)



Dans vos sources(SilkyRoad) j'ai récupérer ceci et j'ai essayé de le transformer


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
 
Private Sub cmdAjouter_Click()
Dim Ws As Worksheet
    'Boucle sur les feuilles du classeur.
     For Each Ws In ThisWorkbook.Worksheets
        'On sort de la boucle si le nom de la feuille est sNumAts.
        If Ws.Name = sNumAts Then
            Exit For
        Else
            'Crée la feuille
            Set Ws = Sheets.Add(After:=Sheets(Sheets.Count))
            Ws.Name = sNumAts
        End If
     Next Ws
 
Sheets(sNumAts).Select
End Sub
il me renvoie une erreur
"Erreur d'exécution '1004'"
Impossible de renommer une feuille comme une autre feuille etc....

On dirait qu'il ne veut pas sortir de la boucle lorsque
la condition est remplie.


une idée merci