Inserer des lignes vierges automatiquement

Mischoupi -  
 Mischoupi -
Bonjour,

J'ai un tableau avec 10000 lignes et 40 colonnes. Dans la dernière colonne figure par ligne le nombre de ligne à insérer automatiquement. Pouvez_vous m'aider à automatiser cette tâche. Merci infiniment

3 réponses

Réponse 1 / 3
eljojo_e Messages postés 1155 Date d'inscription   Statut Membre Dernière intervention   154
 
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,
0
Mischoupi
 
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
0
Réponse 2 / 3
Mischoupi
 
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
0
Réponse 3 / 3
eljojo_e Messages postés 1155 Date d'inscription   Statut Membre Dernière intervention   154
 
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.
0
Mischoupi
 
Je vais essayer de ce pas. En tout cas, UN GRAND MERCI!!!
0