XL 2016 insertion d'un control sur l'existence des feuilles

[christ77000]

Bonsoir à tous je débute en VBA et je n'arrive pas à insérer un contrôle sur l'existence des feuilles dans ce code. Si un utilisateur clic plusieurs fois sur le bouton de création de feuille ca bloque. Merci pour votre aide.

PS c'est mon premier post.

Sub Creation_IT6_par_nom()
Dim DerLig As Long, i As Integer
DerLig = Feuil2.Range("D" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = DerLig To 29 Step -1
Sheets("IT6").Copy after:=Feuil2
ActiveSheet.Name = Feuil2.Cells(i, 4)
Next i
Application.ScreenUpdating = True
End Sub

 

[patricktoulon]

Bonsoir

Sub Creation_IT6_par_nom()
    Dim DerLig As Long, i As Integer
    DerLig = Feuil2.Range("D" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    For i = DerLig To 29 Step -1
        If TypeName(Evaluate("='[" & ThisWorkbook.Name & "]" & Feuil2.Cells(i, 4) & "'!A:A")) <> "Range" Then
            Sheets("IT6").Copy after:=Feuil2
            ActiveSheet.Name = Feuil2.Cells(i, 4)
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[Staple1600]

Bonsoir

Avec une fonction en plus
(plus ou moins le même principe que patricktoulon)

Sub Creation_IT6_par_nom()
Dim DerLig As Long, i As Integer
DerLig = Feuil2.Range("D" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = DerLig To 29 Step -1
If Not Existe(Feuil2.Cells(i, 4).Text) Then
Sheets("IT6").Copy after:=Feuil2
ActiveSheet.Name = Feuil2.Cells(i, 4)
End If
Next i
End Sub
Function Existe(sName As String) As Boolean
Existe = Evaluate("ISREF('" & sName & "'!A1)")
End Function

 

[christ77000]

Fantastique, merci pour cette réponse aussi rapide.

 

[patricktoulon]

re
non Staple1600
tu test si A1 de la supposé feuille est isREF C'EST PAS BON
si elle est NA ou même vide etc...

je test le typename =range c'est sans appel soit la range existe et donc la feuille aussi soit elle n'existe pas et donc la feuille non plus

 

[Staple1600]

Re

J'ai testé avant de posté.
1ière exécution => création des feuilles
2ième exécution => rien ne se passe (je peux boire mon café)

 

[Phil69970]

Bonjour Chrst77000, bonjour le forum

Je te propose ceci :
Ce code n'est pas de moi mais je m'en sers pour tester la présence de feuilles.

Function WsExist(Nom$) As Boolean

On Error Resume Next
    WsExist = Sheets(Nom).Index
    
End Function

Sub Creation_IT6_par_nom()

Dim DerLig As Long, i As Integer
DerLig = Feuil2.Range("D" & Rows.Count).End(xlUp).Row

Application.ScreenUpdating = False

If WsExist("IT6") Then              'Test si la feuille existe
    MsgBox "IT6 existe"             'Le message est optionel
    'Ton code ici si la feuille existe
    For i = DerLig To 29 Step -1
        Sheets("IT6").Copy after:=Feuil2
        ActiveSheet.Name = Feuil2.Cells(i, 4)
    Next i
    
Else
    MsgBox "IT6 n'existe pas"       'Le message est optionel
    'Ton code ici si la feuille n'existe pas
   
End If

Application.ScreenUpdating = True

End Sub

Cordialement

 

[patricktoulon]

a ben si la cellule est justement "#HREF!"

 

[Staple1600]

Re

•>patricktoulon
Cela n'arrivera jamais sur mon PC.
1) Pour créer une feuille, j'ai ma souris ou mon clavier (SHIFT+F11)
2) Je ne duplique jamais de feuille (je les créée à la volée)

 

[christ77000]

Bonjour Chrst77000, bonjour le forum

Je te propose ceci :
Ce code n'est pas de moi mais je m'en sers pour tester la présence de feuilles.

Function WsExist(Nom$) As Boolean

On Error Resume Next
    WsExist = Sheets(Nom).Index
   
End Function

Sub Creation_IT6_par_nom()

Dim DerLig As Long, i As Integer
DerLig = Feuil2.Range("D" & Rows.Count).End(xlUp).Row

Application.ScreenUpdating = False

If WsExist("IT6") Then              'Test si la feuille existe
    MsgBox "IT6 existe"             'Le message est optionel
    'Ton code ici si la feuille existe
    For i = DerLig To 29 Step -1
        Sheets("IT6").Copy after:=Feuil2
        ActiveSheet.Name = Feuil2.Cells(i, 4)
    Next i
   
Else
    MsgBox "IT6 n'existe pas"       'Le message est optionel
    'Ton code ici si la feuille n'existe pas
  
End If

Application.ScreenUpdating = True

End Sub

Cordialement

Bonsoir merci pour ton aide la feuille IT6 existe obligatoirement car c'est le modèle vierge. Ce sont les copies de cette feuille que je voulais contrôler si elles étaient déjà créées

 

[Hervé]

salut

phil69970, je crois que c'est un code du regretté maitre Ti, suis pas sur, mais je l'utilise très souvent et je pense à lui à chaque fois.

a plus

 

[fanch55]

Salut à tous,
Et s'il y a un onglet de type "Chart" ayant le même nom que dans la liste , que se passe t-il ?

pour tester l'existence d'une feuille :

XL 2016 - Vérifier si une feuille existe sinon la créer..

Bonjour à tous, J'ai besoin d'un petit coup de main svp sur: Dans mon classeur, j'ai ma première feuille 'CANEVAS'. A l'aide d'un bouton, j'ouvre un user form qui me demande un numéro de commande et si une feuille existe, il me l'ouvre sinon il la crée en copiant la feuille1 "CANAVAS". Quel...

www.excel-downloads.com

 

[Staple1600]

Bonsoir fanch55

Merci pour le lien
J'avais oublié ce fil et la fonction que j'y avais pondu
(Je vais pouvoir archiver pour plus tard)

 

[Phil69970]

Bonjour Hervé, bonjour le forum

Le code il vient d'ici :

Tester si feuille déjà éxistante?

Je voudrai savoir s'il est possible (sans que ce soit une usine à gas ) de vérifier l'existance d'une feuille? Dans le code si dessous, je suis obligé d'atte...

forum.excel-pratique.com

Cordialement