Discussion :

[jose_67]

Bonjour, voilà ce que je souhaiterais faire (en macro)
J'ai un tableau qui à 4 colonnes
A-Liste des câbles
B-Longueur des câbles (Formule dans la cellule)
C-Longueur disponible (Formule dans la cellule)
D-Delta (entre B&C)

Ce tableau comporte une centaine de lignes en démarrant à la ligne 20
Je voudrais insérer une ligne directement sous la ligne ou (D>0)
Et recopier les valeurs et formules de la ligne ou (D>0)

Merci pour l'aide

[mercatog]

Bonjour et bienvenue au forum,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Inser()
Dim i As Long, LastLig As Long
LastLig = Cells(Rows.Count, 1).End(xlUp).Row
For i = LastLig To 20 Step -1
    If Range("D" & i).Value > 0 Then
        Rows(i + 1).Insert
        Range("B" & i & ":D" & i).Copy Range("B" & i + 1)
    End If
Next i
End Sub

[jose_67]

Merci pour c'est aide rapide

Cordialement
José