Inserer des lignes vierges automatiquement Fermé

Question

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

Configuration: Windows 7 / Firefox 10.0

eljojo_e · Answer

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,

Mischoupi · Answer

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

eljojo_e · Answer

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.