Voici un extrait du code
le problème si situe à la ligne
Worksheets("template").Copy After:=Sheets("template") 'fait une copie de l'onglet
J'ai signalée la ligne par des commentaires en XXXXXXXXXXXXXXXXXXX
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| Sub GENERATION_onglets()
For Compteur = 1 To l
If ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value Then
Set fin = ActiveCell.Offset(-1, 0)
ligne2 = ActiveCell.Offset(-1, 0).Row
colonne2 = Left$(ActiveCell.Offset(-1, 0).Address(0, 0), (ActiveCell.Offset(-1, 0).Column < 27) + 2)
Sheets("template").Visible = True
'MsgBox (Sheets.Count)
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Worksheets("template").Copy After:=Sheets("template") 'fait une copie de l'onglet "template et le place en dernier
Sheets("template (2)").Name = "Nom temporaire"
Sheets("Nom temporaire").Select
Call Deprotect
Sheets("template").Visible = False
Worksheets("Recap FP").Select
lignes = ligne & Deuxpoints & ligne2
'MsgBox (lignes)
Rows(lignes).Select
selection.Copy
Sheets("Nom temporaire").Select
'Mise ne forme -----------------------------------------------
Rows("9:9").Select
selection.Insert Shift:=xlDown
Rows("8:8").Select
selection.Delete
Sheets("Nom temporaire").Name = Range("B8").Value
Next Compteur
End Sub |
Partager