Discussion :

[yedid]

Bonjour à tous,

Je dois inserer de manieres itératives plusieurs cellules dans ma feuille excel

MA boucle vba est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For k= 1 To 5
 
     Range(Cells(i, startColumn + 2), Cells(i + 9, startColumn + 2)).Insert , xlToRight
 
Next k

Lorsque je lance ma macro la premiere fois, elle fonctionne bien, mais les fois d'apres l'insertion ne se fait pas vers la droite mais vers le bas!!!

Est ce que quelqu'un a une idée qui pourrait expliquer ce bug??

Merci d 'avance

[zyhack]

Bonjour

peut-tu essayer avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

     Range(Cells(i, startColumn + 2), Cells(i + 9, startColumn + 2)).Insert Shift:=xlShiftToRight

Insert contient deux paramètres Insert(Shift, CopyOrigin)
Shift indique le sens de déplacement mais comme tu avais une virgule tu modifiais le second.

Bonne journée

[yedid]

Ca marche!!
Merci bcp pour l'aide

[zyhack]

Pense à passer le post en

RESOLU

Bonne journée