Insertion de 2 lignes suite modidication de présentation
lolotopo
Messages postés
7
Statut
Membre
-
f894009 Messages postés 17416 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17416 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je cherche une macro pour insérer 2 lignes à l'infini tel que l'exemple.
origine du fichier
122080 129.82441
122100 129.81989
122120 129.81836
122140 129.82683
mise en forme demandé
122080 129.82441
122100 129.81989
122120 129.81836
122140 129.82683
je cherche une macro pour insérer 2 lignes à l'infini tel que l'exemple.
origine du fichier
122080 129.82441
122100 129.81989
122120 129.81836
122140 129.82683
mise en forme demandé
122080 129.82441
122100 129.81989
122120 129.81836
122140 129.82683
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
- Formulaire en ligne de meta - Guide
- Word numéro de page 1/2 - 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
