M
macpoy
Guest
bonsoir le forum, bonsoir rené du var,
EUREKA!!!!!
j'ai enfin trouvé ce que tu me demandais.
ci joint la macro, et sa demonstration.
Sub Ajoute_ligne()
Dim Ictr As Integer
For Ictr = 1 To 30 'de la ligne 1 à la ligne 30
If Cells(Ictr, 1).Value <> "" Then 'prend la colonne 1 (a) comme colonne de réference
Cells(Ictr, 1).Offset(1, 0).Select
Selection.Insert Shift:=xlDown
End If
Next
End Sub
sur ce, bon excel, et à bientôt peut être.
@ +
EUREKA!!!!!
j'ai enfin trouvé ce que tu me demandais.
ci joint la macro, et sa demonstration.
Sub Ajoute_ligne()
Dim Ictr As Integer
For Ictr = 1 To 30 'de la ligne 1 à la ligne 30
If Cells(Ictr, 1).Value <> "" Then 'prend la colonne 1 (a) comme colonne de réference
Cells(Ictr, 1).Offset(1, 0).Select
Selection.Insert Shift:=xlDown
End If
Next
End Sub
sur ce, bon excel, et à bientôt peut être.
@ +