cp4
XLDnaute Barbatruc
Bonjour,
Je suis un peu perdu. Je récupère dans un dictionnaire la colonne E, représentant le nom des feuilles existantes ou à créer.
Mon problème réside dans les boucles sur le dico et les feuilles pour vérifier l'existence des feuilles et créer celles qui n'existent pas.
En espérant avoir bien exposé mon problème.
En vous remerciant par avance.
Bonne journèe.
Je suis un peu perdu. Je récupère dans un dictionnaire la colonne E, représentant le nom des feuilles existantes ou à créer.
VB:
Sub CréerFeuillesManquantes()
Dim dl As Long, cle As Variant, Wgl As Worksheet, dico As Object, a(), i As Long, ws As Worksheet
Set dico = CreateObject("scripting.dictionary")
Set Wgl = ThisWorkbook.Worksheets("BD")
With Wgl
'récupérer colonne E sans doublons --> représentant noms onglets
a = .Range("E2:E" & .Range("A" & Rows.Count).End(xlUp).Row)
For i = LBound(a) To UBound(a)
If a(i, 1) <> "" Then dico(a(i, 1)) = ""
Next i
For Each ws In ThisWorkbook.Worksheets
For Each cle In dico.Keys
' créer feuille si n'existe pas
Next cle
Next ws
End With
End Sub
En espérant avoir bien exposé mon problème.
En vous remerciant par avance.
Bonne journèe.