Insertion ligneRésolu

Question

Bonjour,
Je débute en VBA, ma question est la suivante: je voudrais inserer dans un tableau des lignes, jusque la ca va puisqu il suffit de faire:

Rows("7:7").Select
    Selection.Insert Shift:=xlDown
    Range("A7").Select

Mais si je souhaite refaire la même chose au bout de chaque 2 lignes jusqu' a la fin du tableau: cad inserer une ligne avant la 7eme ligne, avant la 9eme, 11 eme ... etc.
Comment faire??

jrivet · Accepted Answer

Salut,
Je n'ai pas testé mais tu peux essayer ceci.

Dim NumLigne As Long

For NumLigne = 20 To 1 Step -2
   Rows(NumLigne & ":" & NumLigne).Select
   Selection.Insert Shift:=xlDown
Next

'oU BIEN ALORS

Dim NumLigne As Long

For NumLigne = 1 To 10 Step 2
   Rows(NumLigne & ":" & NumLigne).Select
   Selection.Insert Shift:=xlDown
Next, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

clef01 · Answer

Merci ça marche super bien ;)

jrivet · Answer

Salut,
De rien.
Si tu estimes que ton problème est résolu, pense à appuyer sur réponse acceptée sur le ou les Messages qui t'on aider à avancer.

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Salut,
De rien.
Si tu estimes que ton problème est résolu, pense à appuyer sur réponse acceptée sur le ou les Messages qui t'on aider à avancer.

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

OUps,

Me suis un peu excité avec le bouton Ajouter.

Si un admin bienveillant pouvait effacer le doublon. Merci d'avance

@+: Ju£i?n
Pensez: Réponse acceptée

clef01 · Answer

Okey!! j savais pas que ca marchait comme ca!!
Merci en tt cas

Insertion ligne

6 réponses

Votre réponse

Discussions similaires