Probleme d'insertion de cellules

Bonjour à tous,

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

MA boucle vba est :

Code:

---

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

Bonjour

peut-tu essayer avec

Code:

---

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

Ca marche!! :lol:
Merci bcp pour l'aide

Pense à passer le post en

RESOLU

Bonne journée