Incrémentation onglet
Bonjour amis Excelleurs
J'ai besoin de vous pour me faciliter la vie. Dans le tableau ci-joint, j'ai un certain nombre de feuilles. Je souhaiterais dupliquer les feuilles :
FAA001
PAA001
EAA001
jusque 200 (FAA002,PAA002,EAA002,FAA003,PAA003,EAA004...) dans cet ordre.
Faire la même chose avec les autres onglets :
FAC001 FAU001 FAD001
PAC001 PAU001 PAD001
EAC001 EAU001 EAD001
le tout également jusque 200 et dans l'ordre.
En outre, je souhaiterais, si cela est possible incrémenter pour chaque cellule B3 de ces feuilles le bon numéro :
FAA001 : A001
FAA002 : A002
FAC001 : C001
FAC002 : C002
FAU001 : U001
FAU002 : U002
et ainsi de suite.
P.S : il y a des protections sur les feuilles
Un grand merci d'avance pour vos lumières !!!
William
2400 feuilles dans le même classeur ?
Pas sûr que ce soit facile à gérer.
un essai pour le premier groupe de feuille:
Sub Macro()
Dim TList1, i As Integer, j As Byte, Num As String
TList1 = Array("FAA", "PAA", "EAA")
For i = 2 To 200
Num = Format(i, "000")
For j = LBound(TList1) To UBound(TList1)
Sheets(TList1(j) & "001").Copy After:=Sheets(Worksheets.Count)
Sheets(Worksheets.Count).Name = TList1(j) & Num
Sheets(TList1(j) & Num).Range("B3").Value = Right(TList1(j), 1) & Num
Next
Next
End Subà adapter pour le deuxième groupe de feuille avec
TList1 = Array("FAC", "FAU", "FAD", "PAC", "PAU", "PAD", "EAC", "EAU", "EAD")
A+
un essai pour le premier groupe de feuille:
Sub Macro() Dim TList1, i As Integer, j As Byte, Num As String TList1 = Array("FAA", "PAA", "EAA") For i = 2 To 200 Num = Format(i, "000") For j = LBound(TList1) To UBound(TList1) Sheets(TList1(j) & "001").Copy After:=Sheets(Worksheets.Count) Sheets(Worksheets.Count).Name = TList1(j) & Num Sheets(TList1(j) & Num).Range("B3").Value = Right(TList1(j), 1) & Num Next Next End Subà adapter pour le deuxième groupe de feuille avec
TList1 = Array("FAC", "FAU", "FAD", "PAC", "PAU", "PAD", "EAC", "EAU", "EAD")
A+
Merci beaucoup AlgoPlus
On peut ajouter:
en début de macro: Application.ScreenUpdating = False
en fin de macro : Application.ScreenUpdating = True
pour éviter le "scintillement" de l'écran