Discussion :

[Alex.d]

Bonjour,

J'ai un problème lorsque j'exécute mon code, on dirait que rien ne ce passe pour certains macro.

Je me demandais si vous auriez une idée pourquoi les macro suivants pourrait ne pas s'exécuter.

pour insérer une ligne au dessus de chaque ligne total :

Code :

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

1
2
3
4
5
6
7
8
Sub AJOUTEREMPLOYE()
LR = Range("B300").End(xlUp).Row
    For X = LR To 1 Step -1
        If Cells(X, "B").Value = "TOTAL" Then
                Cells(X, "B").EntireRow.Insert
        End If
    Next X
End Sub

Pour supprimer une ligne qui comporte la même valeur que (Sourcee)

Code :

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

1
2
3
4
5
6
7
8
9
Sub Deleter()
LR = Range("B300").End(xlUp).Row
Source = Range("sourcee")
    For X = LR To 1 Step -1
        If Cells(X, "B").Value = Source Then
                Cells(X, "B").EntireRow.Delete
        End If
    Next X
End Sub

Merci!
Alexandre