Bonjour,
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 06/06/2006 par PAPOU
'
Range("A1" ).Activate
ActiveCell.CurrentRegion.Select
'MsgBox ActiveCell.CurrentRegion.Rows.Count
nombrel = ActiveCell.CurrentRegion.Rows.Count / 2
Range("A3" ).Select
For i = 1 To nombrel
Selection.EntireRow.Insert
Selection.Offset(3, 0).Select
Next i
End Sub
A tester sur une copie du fichier (Sans garantie parce que vite fait). Il ne doit pas y avoir de ligne vierge dans la liste.
Avec peut-être à la fin une ligne à corriger.
Cordialement
ppierrick a écrit :
Bonjour,
Est ce qu'il est possible d'inserer automatiquement 1 nouvelle ligne toutes les 2 lignes sur toute une feuille ???
Départ : A : Jean-Paul B : Michel C : Sabine D : Christelle E : Fançoise
Arrivée : A : Jean-Paul B : Michel C : D : Sabine E : Christelle F : G : Françoise
Ma feuille contient 750 lignes à décaler comme ça... Merci des tuyaux.
|
Message édité par seniorpapou le 06-06-2006 à 22:12:27