comment puis-je incrementer 3 lignes a chaque nom d'une liste
2 réponses
myke
Voilà mon soucis : j'ai une liste de noms (+ de 600 !) issu d'une extraction
(donc les uns sous les autres), pour effectuer un travail je dois entre
chaque personne insérrer 3 lignes, manuellement ce serait long, je cherche
une solution pour le faire d'un coup sous exel je pense que celà doit être
possible.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour myke,
Sub Macro1() For i = Range("A65536").End(xlUp).Row To 1 Step -1 Rows(i & ":" & i + 2).Insert Shift:=xlDown Next End Sub
isabelle
Voilà mon soucis : j'ai une liste de noms (+ de 600 !) issu d'une extraction (donc les uns sous les autres), pour effectuer un travail je dois entre chaque personne insérrer 3 lignes, manuellement ce serait long, je cherche une solution pour le faire d'un coup sous exel je pense que celà doit être possible.
merci d'avance.
bonjour myke,
Sub Macro1()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
Rows(i & ":" & i + 2).Insert Shift:=xlDown
Next
End Sub
isabelle
Voilà mon soucis : j'ai une liste de noms (+ de 600 !) issu d'une extraction
(donc les uns sous les autres), pour effectuer un travail je dois entre
chaque personne insérrer 3 lignes, manuellement ce serait long, je cherche
une solution pour le faire d'un coup sous exel je pense que celà doit être
possible.
Sub Macro1() For i = Range("A65536").End(xlUp).Row To 1 Step -1 Rows(i & ":" & i + 2).Insert Shift:=xlDown Next End Sub
isabelle
Voilà mon soucis : j'ai une liste de noms (+ de 600 !) issu d'une extraction (donc les uns sous les autres), pour effectuer un travail je dois entre chaque personne insérrer 3 lignes, manuellement ce serait long, je cherche une solution pour le faire d'un coup sous exel je pense que celà doit être possible.
merci d'avance.
JB
Bonsoir,
Sub essai() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 ActiveCell.Resize(3, 1).EntireRow.Insert ActiveCell.Offset(-1, 0).Select Loop End Sub
Cordialement JB
On 25 jan, 18:48, myke wrote:
Voilà mon soucis : j'ai une liste de noms (+ de 600 !) issu d'une extra ction (donc les uns sous les autres), pour effectuer un travail je dois entre chaque personne insérrer 3 lignes, manuellement ce serait long, je cher che une solution pour le faire d'un coup sous exel je pense que celà doit être possible.
merci d'avance.
Bonsoir,
Sub essai()
[A65000].End(xlUp).Select
Do While ActiveCell.Row > 1
ActiveCell.Resize(3, 1).EntireRow.Insert
ActiveCell.Offset(-1, 0).Select
Loop
End Sub
Cordialement JB
On 25 jan, 18:48, myke <m...@discussions.microsoft.com> wrote:
Voilà mon soucis : j'ai une liste de noms (+ de 600 !) issu d'une extra ction
(donc les uns sous les autres), pour effectuer un travail je dois entre
chaque personne insérrer 3 lignes, manuellement ce serait long, je cher che
une solution pour le faire d'un coup sous exel je pense que celà doit être
possible.
Sub essai() [A65000].End(xlUp).Select Do While ActiveCell.Row > 1 ActiveCell.Resize(3, 1).EntireRow.Insert ActiveCell.Offset(-1, 0).Select Loop End Sub
Cordialement JB
On 25 jan, 18:48, myke wrote:
Voilà mon soucis : j'ai une liste de noms (+ de 600 !) issu d'une extra ction (donc les uns sous les autres), pour effectuer un travail je dois entre chaque personne insérrer 3 lignes, manuellement ce serait long, je cher che une solution pour le faire d'un coup sous exel je pense que celà doit être possible.