Bonjour à tous,
J'ai fait un code pour pouvoir insérer sur une centaine de lignes, 8 autres lignes tout en collant régulièrement les même 8 lignes :
Sub Solution_Finale()
Dim numero As Integer
numero = 1
While numero <= 20
'J'insère mes huits lignes
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'Je passe de la sélection de la colonne entière à la case à côté (droite-gauche en gros)
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, -1).Select
'Je copie ma colonne de 8 cases
ActiveSheet.Paste
'Je sélectionne la 9e case en dessous
ActiveCell.Offset(9, 0).Select
'Je resélectionne ma ligne
ActiveCell.EntireRow.Select
numero = numero + 1
Wend
End Sub
Mais cela ne fonctionne pas, le code bug à ActiveSheet.Paste... (il n'insère que les 8 lignes une fois)
J'ai cru comprendre que c'était une histoire d'objet mais je n'y comprends pas grand chose
Pourriez-vous m'aider svp ?
Cordialement,
Merci