Bonjour à tous du forum,
j'ai 2 variables pour nommer onglet et ajouter nouvelles feuilles.
en effectuant la macro, est ajouté 24 feuilles aulieu d' ajouter que 5 feuilles !!
Sub test() ' nouvelles feuilles ajoutées avec nom repris des cellules C2:C20 et B2:B20
.....
Set plage = Range("C2:C" & Range("C65536").End(xlUp).Row)
Set plage05 = Range("B2:B" & Range("B65536").End(xlUp).Row)
For Each cn05 In plage05
c05 = cn05.Value
For Each cn In plage
c = IIf(Len(cn.Value) > 32, Left(cn.Value, 31), cn.Value & " & JF" & cn05.Value)
Sheets.Add After:=Sheets(n)
On Error Resume Next
ActiveSheet.Name = c
Sheets("data").Rows("1:65536").Copy
Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Next cn
Next cn05
End Sub
Comment éviter la boucle des 2 variables et que le nombre correct des feuilles se trouvant sous colonne(C2:C) est ajouté ?
merci d'avance de vos astuces,
'
j'ai 2 variables pour nommer onglet et ajouter nouvelles feuilles.
en effectuant la macro, est ajouté 24 feuilles aulieu d' ajouter que 5 feuilles !!
Sub test() ' nouvelles feuilles ajoutées avec nom repris des cellules C2:C20 et B2:B20
.....
Set plage = Range("C2:C" & Range("C65536").End(xlUp).Row)
Set plage05 = Range("B2:B" & Range("B65536").End(xlUp).Row)
For Each cn05 In plage05
c05 = cn05.Value
For Each cn In plage
c = IIf(Len(cn.Value) > 32, Left(cn.Value, 31), cn.Value & " & JF" & cn05.Value)
Sheets.Add After:=Sheets(n)
On Error Resume Next
ActiveSheet.Name = c
Sheets("data").Rows("1:65536").Copy
Range("A1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Next cn
Next cn05
End Sub
Comment éviter la boucle des 2 variables et que le nombre correct des feuilles se trouvant sous colonne(C2:C) est ajouté ?
merci d'avance de vos astuces,
'
Pièces jointes
Dernière édition: