Inserer des lignes vierges automatiquement
Mischoupi
-
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
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
-
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, -
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 -
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.
