Inserer cellule avec boucle VBA excel 2007
apprenti637
-
fdsgfdsgdfs -
fdsgfdsgdfs -
Bonjour,
Je souhaite inserer automatiquement une cellule vide entre deux cellules d'une meme colonne sous Excel 2007 et cela pour l'ensemble de la colonne.
ex, si j'ai:
A
1 xxx
2 yyy
3 zzz
4
5
.
.
8800
je souhaite obtenir:
A
1 xxx
2
3 yyy
4
5 zzz
.
.
8800
J'ai compris qu'une boucle for en VBA pourrait certainement me rendre service,
For i = 2 To 8000 Step 6
Range("A1:A8800").Select
Selection.Copy
Cells([i], [1]).Select
Selection.Insert Shift:=xlDown
Next i
Je ne suis pas familier avec cette programmation, malgré mes efforts cela reste infructueux.
Quelqu'un peut il m'aider?
Merci!
Gui
Je souhaite inserer automatiquement une cellule vide entre deux cellules d'une meme colonne sous Excel 2007 et cela pour l'ensemble de la colonne.
ex, si j'ai:
A
1 xxx
2 yyy
3 zzz
4
5
.
.
8800
je souhaite obtenir:
A
1 xxx
2
3 yyy
4
5 zzz
.
.
8800
J'ai compris qu'une boucle for en VBA pourrait certainement me rendre service,
For i = 2 To 8000 Step 6
Range("A1:A8800").Select
Selection.Copy
Cells([i], [1]).Select
Selection.Insert Shift:=xlDown
Next i
Je ne suis pas familier avec cette programmation, malgré mes efforts cela reste infructueux.
Quelqu'un peut il m'aider?
Merci!
Gui
2 réponses
-
bonjour
une solution en VBA, à choisir selon que tu veux insérer une seule cellule ou une ligne entière
Const lideb = 1 Dim lifin lifin = Range("A65536").End(xlUp).Row For li = lideb To (2 * lifin) Step 2 ' pour inserer une seule cellule Cells(li + 1, 1).Insert Shift:=xlDown ' pour inserer une ligne complète ' Cells(li + 1, 1).EntireRow.Insert Next li
sans VBA
Pour obtenir une copie de la colonne A en colonne B avec une cellule vide sur deux
B1 =SI(MOD(LIGNE();2) = 1;DECALER($A$1;(1+LIGNE())/2-1;0;1;1);"")
à tirer vers le bas
bonne suite -
