Insertion de 2 lignes suite modidication de présentation
Fermé
lolotopo
Messages postés
4
Date d'inscription
mardi 13 janvier 2015
Statut
Membre
Dernière intervention
5 février 2015
-
5 févr. 2015 à 10:35
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 - 5 févr. 2015 à 11:52
f894009 Messages postés 17187 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 1 mai 2024 - 5 févr. 2015 à 11:52
A voir également:
- Insertion de 2 lignes suite modidication de présentation
- Word numéro de page 1/2 - Guide
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
- 2 comptes whatsapp - Guide
- Insertion sommaire word - Guide
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 745
5 févr. 2015 à 10:52
5 févr. 2015 à 10:52
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.
f894009
Messages postés
17187
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
1 mai 2024
1 704
Modifié par f894009 le 5/02/2015 à 11:52
Modifié par f894009 le 5/02/2015 à 11:52
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
