A voir également:
- Insertion de 2 lignes suite modidication de présentation
- Supercopier 2 - Télécharger - Gestion de fichiers
- Partage de photos en ligne - Guide
- Insertion sommaire word - Guide
- Word numéro de page 1/2 - Guide
- 2 ecran pc - Guide
2 réponses
Bonjour,
Vous avez demandé de l'aide, il y a peu, pour un code d'insertion de lignes. La solution (toute cuite) vous a été proposée ICI.
Visiblement, vous ne vous êtes pas demandé comment fonctionnait ce code, sinon votre nouveau questionnement n'aurait pas lieu d'être.
Afin d'être tout à fait pédagogique, je vous propose de l'aide dans la compréhension du code que vous a proposé f894009.
Dites moi ce que vous n'avez pas compris.
Vous avez demandé de l'aide, il y a peu, pour un code d'insertion de lignes. La solution (toute cuite) vous a été proposée ICI.
Visiblement, vous ne vous êtes pas demandé comment fonctionnait ce code, sinon votre nouveau questionnement n'aurait pas lieu d'être.
Afin d'être tout à fait pédagogique, je vous propose de l'aide dans la compréhension du code que vous a proposé f894009.
Dites moi ce que vous n'avez pas compris.
Bonjour,
pijaku: pas grave
lolotopo:
pijaku: pas grave
lolotopo:
Sub insert_lig()
With Worksheets("feuil1")
'ligne de depart
x = 2
'boucle de balayage
Do While .Range("A" & x) <> ""
'insertion de 1 ligne
'.Rows(x).Insert Shift:=xlDown
'insertion de 2 lignes
.Rows(x & ":" & x + 1).Insert Shift:=xlDown
'ligne suivante
x = x + 3
Loop
End With
End Sub