Insertion ligne
Résolu/Fermé
lolotopo
Messages postés
4
Date d'inscription
mardi 13 janvier 2015
Statut
Membre
Dernière intervention
5 février 2015
-
13 janv. 2015 à 09:17
lolotopo Messages postés 4 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 5 février 2015 - 13 janv. 2015 à 13:55
lolotopo Messages postés 4 Date d'inscription mardi 13 janvier 2015 Statut Membre Dernière intervention 5 février 2015 - 13 janv. 2015 à 13:55
A voir également:
- Insertion ligne
- Apparaitre hors ligne whatsapp - Guide
- Aller à la ligne excel - Guide
- Apparaitre hors ligne instagram - Guide
- En ligne sur instagram alors que non - Forum Instagram
- Ligne occupée - Forum SFR
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
13 janv. 2015 à 09:33
13 janv. 2015 à 09:33
Bonjour,
code a mettre dans un module. Adaptez le nom de feuille et la colonne a votre fichier
code a mettre dans un module. Adaptez le nom de feuille et la colonne a votre fichier
Sub insert_lig()
With Worksheets("feuil1")
derlig = .Range("A" & Rows.Count).End(xlUp).Row
For x = 2 To derlig + 3 Step 3
Rows(x).Insert Shift:=xlDown
Next x
End With
End Sub
13 janv. 2015 à 10:08
13 janv. 2015 à 10:51
ce code doit allez
Sub insert_lig() With Worksheets("feuil1") x = 2 Do While .Range("A" & x) <> "" .Rows(x).Insert Shift:=xlDown x = x + 3 Loop End With End Sub13 janv. 2015 à 13:55