Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie :
Sub test() Dim c As Range, Ctr As Long For Each c In Selection Ctr = Ctr + 1 If Ctr = 3 Then Ctr = 0 c.EntireRow.Insert xlShiftDown End If Next c End Sub
Cordialement. Daniel "fbr" a écrit dans le message de news:
Bonjour,
Pour une selection de ligne donnée, comment peut on faire une macro qui dit : "toute les deux ligne j'insere une ligne "
merci
Bonjour.
Essaie :
Sub test()
Dim c As Range, Ctr As Long
For Each c In Selection
Ctr = Ctr + 1
If Ctr = 3 Then
Ctr = 0
c.EntireRow.Insert xlShiftDown
End If
Next c
End Sub
Cordialement.
Daniel
"fbr" <brossefred@aol.com> a écrit dans le message de news:
uRZx5jEaGHA.3612@TK2MSFTNGP03.phx.gbl...
Bonjour,
Pour une selection de ligne donnée, comment peut on faire une macro qui
dit : "toute les deux ligne j'insere une ligne "
Sub test() Dim c As Range, Ctr As Long For Each c In Selection Ctr = Ctr + 1 If Ctr = 3 Then Ctr = 0 c.EntireRow.Insert xlShiftDown End If Next c End Sub
Cordialement. Daniel "fbr" a écrit dans le message de news:
Bonjour,
Pour une selection de ligne donnée, comment peut on faire une macro qui dit : "toute les deux ligne j'insere une ligne "
