Excel - Macro qui verifie l'existance de feuilles/onglets

Jah -  
f894009 Messages postés 17277 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 !


A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses
Onglet disposition Excel ne s'affiche pas
dsqalli -
Raymond PENTIER -

5 réponses