creer feuille si .... elle n'existe pas

[microd]

Bonsoir le forum,

Voila j'expose rapidement mon problème : j'aimerai creer dans differents classeur une nouvelle feuille que j'appelle Liste, uniquement si la feuille n'existe pas,
et j'utilise le code suivant mais la j'ai un probleme car si la feuille existe il me créer tout de même une autre feuille ( sans causer de beug )

On Error Resume Next
Sheets.Add After:=Sheets("RECAPITULATIF COMMANDE")
' on donne comme nouveau nom à la feuille
ActiveSheet.Name = Liste
On Error GoTo 0

Comment dit on en VBA si la feuiile Liste existe alors .... ????
Si quelqu'un aurait une idée ???
Merci de votre aide .
Bonne Soiree a tous.

Microd

 

[Dan]

Re : creer feuille si .... elle n'existe pas

Bonsoir,

Essaye ceci :

Dim message As String
 On Error GoTo Message
 Sheets.Add After:=Sheets("RECAPITULATIF COMMANDE")
 ' on donne comme nouveau nom à la feuille
 ActiveSheet.Name = "Liste"
Exit Sub
Message:   MsgBox "cette feuille existe déjà"

Dan

 

[microd]

Re : creer feuille si .... elle n'existe pas

Bonsoir Dan,

Le message a disparu je ne sais pas pourquoi .... j'ai tout de meme eu le temps de l'essayer mais le meme phenomene se produit excell me cree la feuille sans la renommer et m'indique que la feuille existe deja .... je que j'aimerai c'est creer la feuille si elle n'existe pas et dans le cas contraire utiliser la feuille qui existe deja !!!!!

microd

 

[Dan]

Re : creer feuille si .... elle n'existe pas

re,

As-tu recopié la macro que je t'ai donnée ??

A te lire
Dan

 

[microd]

Re : creer feuille si .... elle n'existe pas

re.

Oui je viens d'essayer a nouveau .....une nouvelle feuille a été creer.......

a te lire

 

[kiki29]

Re : creer feuille si .... elle n'existe pas

Option Explicit

Sub tst()
Dim i As Integer
Dim Cpt As Integer
Dim CptSh As Integer
    Cpt = 0
    CptSh = Sheets.Count
    For i = 1 To CptSh
        If Sheets(i).Name <> "Liste" Then Cpt = Cpt + 1 Else Exit For
    Next i
    
    If Cpt = CptSh Then
        Sheets.Add After:=Sheets("RECAPITULATIF COMMANDE")
        ActiveSheet.Name = "Liste"
    End If
End Sub

 

[microd]

Re : creer feuille si .... elle n'existe pas

Merci KIKI 29 ....no comment...
ca marche parfait jte remercie .
Dan merci egalement pour ta reponse et ton temps ....

Bonsoir a tous