Discussion :

[stargates]

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

[LeForestier]

Bonjour,
J'ai l'impression que tu confond Variable et nom de la feuille.
Si sNumAts est une varaible tu doit l'initialiser avec le nom de la feuille..
Exemple,

Code :

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

    sNumAts = "NomDeLaFeuille"

Mais si c'es le nom de la feuille tu doit mettre

Code :

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

    If Ws.Name = "sNumAts" Then

A+

[stargates]

bonjour

merci de ta réponse



mais sNumAts est une variable qui reprend un n° de client
donc je vérifie si une feuille avec ce N° de client existe sinon je la crée
sNumAts est une variable global

une feuille par n° de client


merci de ton aide

[LeForestier]

OK, maintenant j'ai compris..

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
Private Sub cmdAjouter_Click()
Dim Ws As Worksheet
Dim B As Boolean
    '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
            B = True
            Exit For
        End If
     Next Ws
    If Not B Then
        'Crée la feuille
        ThisWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = sNumAts
    End If
 
    Sheets(sNumAts).Select
End Sub

A+

[stargates]

merci les gars ca marche

mais une petite question pour ne pas mourir idiot
pq? une double condition

Ws.Name = sNumAts
B = True
merci

[LeForestier]

B=true est le drapeau qui permet ou non de créer une nouvelle feuille.
Dans ton 1er code, si la première feuille testée n'était pas sNumAts, tu voulais directement en créer une nouvelle alors qu'elle était peut-être en 2èm.. 3èm.. position
A+