Excel - Macro qui verifie l'existance de feuilles/onglets
Jah
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Je souhaiterais créer une macro qui, d'après une liste sur la Feuille 1 (A1:A5) vérifie que chaque case de la liste a son onglet et si il n'existe pas, le créer avec le nom de la liste correspondant.
En gros faire une RechercheV d'onglet ...
Je ne sais pas si c'est très clair mais n'hésitez pas à me demander des précisions.
Je vous serais extrêmement reconnaissante pour votre aide !
Je souhaiterais créer une macro qui, d'après une liste sur la Feuille 1 (A1:A5) vérifie que chaque case de la liste a son onglet et si il n'existe pas, le créer avec le nom de la liste correspondant.
En gros faire une RechercheV d'onglet ...
Je ne sais pas si c'est très clair mais n'hésitez pas à me demander des précisions.
Je vous serais extrêmement reconnaissante pour votre aide !
1 réponse
-
Bonjour,
Sub test_onglet()
Dim Wks As Worksheet, Plage As Range, cel As Range
Dim Flag_Onglet As Boolean
'mise en memoire plage cellule
Set Plage = Worksheets("Feuil1").Range("A1:A5")
'boucle de nom onglets
For Each cel In Plage
'boucle onglets
For Each Wks In ActiveWorkbook.Worksheets
'test si existe
If Wks.Name = cel Then
'ok onglet
Flag_Onglet = True
'sortie boucle
Exit For
End If
Next Wks
'si onglet n'existe pas
If Not Flag_Onglet Then
'ajout ongle en fin
Sheets.Add.Move After:=Sheets(Sheets.Count)
'nom onglet
Sheets(Sheets.Count).Name = cel
End If
Next cel
End Sub
