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
A voir également:
- Inserer cellule avec boucle VBA excel 2007
- Insérer liste déroulante excel - Guide
- Save as pdf office 2007 - Télécharger - Bureautique
- Excel cellule couleur si condition texte - Guide
- Insérer video powerpoint - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
bonjour
une solution en VBA, à choisir selon que tu veux insérer une seule cellule ou une ligne entière
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
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
fdsgfdsgdfs
j'ai une question.......je veux chaque fois transférer le contenu de la cellule A1 au cellule B1 en conservant l'historique dans la cellule B1 et ajouter une nouvelle ligne dand la cellule B1 pour le nouveu texte de la cellule A1
