A voir également:
- Inserer des lignes vierges automatiquement
- Insérer signature word - Guide
- Insérer liste déroulante excel - Guide
- Insérer une vidéo dans powerpoint - Guide
- Insérer table des matières word - Guide
- Automatiquement - Guide
3 réponses
eljojo_e
Messages postés
1155
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 octobre 2022
152
30 mars 2012 à 13:03
30 mars 2012 à 13:03
bonjour,
Tu es sur excel ??
Tu veux insérer tes lignes à quel endroit? dessous la ligne en question ?
Quel est la colonne où est écrit le nombre de ligne à insérer ?
Cordialement,
Tu es sur excel ??
Tu veux insérer tes lignes à quel endroit? dessous la ligne en question ?
Quel est la colonne où est écrit le nombre de ligne à insérer ?
Cordialement,
Bonjour,
Je suis sous excel, je veux insérer sous chaque ligne, le nombre de ligne correspondant à une valeur située sur chaque ligne de la colonne Z
Merci pour votre aide précieuse
Je suis sous excel, je veux insérer sous chaque ligne, le nombre de ligne correspondant à une valeur située sur chaque ligne de la colonne Z
Merci pour votre aide précieuse
eljojo_e
Messages postés
1155
Date d'inscription
lundi 10 mai 2010
Statut
Membre
Dernière intervention
14 octobre 2022
152
30 mars 2012 à 15:47
30 mars 2012 à 15:47
Sub ok()
Dim a, b
For a = 10000 To 1 Step -1
If Range("z" & a).Value > 0 Then
For b = 1 To Range("z" & a).Value
Range("z" & (a + 1)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
End If
Next
End Sub
Et voilà ! à mettre dans un module.
Dim a, b
For a = 10000 To 1 Step -1
If Range("z" & a).Value > 0 Then
For b = 1 To Range("z" & a).Value
Range("z" & (a + 1)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
End If
Next
End Sub
Et voilà ! à mettre dans un module.
30 mars 2012 à 15:47
Je suis sous excel, je veux insérer sous chaque ligne, le nombre de ligne correspondant à une valeur située sur chaque ligne de la colonne Z
Merci pour votre aide précieuse