Discussion :

[Alaindhu]

Bonjour à tous,

J'ai le code suivant qui me permet de supprimer des lignes dans les deux feuilles du fichier ci-joint.
Le problème est que les données permettant la suppression dans la feuille 1 sont issues d'une formule =Feuil2$B2 par ex.
Comment je peux faire pour qu'Excel comprenne que je veux supprimer une ligne en fonction de ce que contient le résultat d'une formule dans une cellule dans la colonne A par ex?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Bouton1_Cliquer()
Editeur = InputBox("Veuillez entrer l'editeur à supprimer ?", "Welcome", "Prenom Nom")
With Worksheets("Feuil2")
    For i = .Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
        If .Range("B" & i).Value = Editeur Then .Rows(i).Delete shift:=xlUp
   Next i
End With
'
With Worksheets("Feuil1")
    For i = .Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
        If .Range("A" & i).Value FORMULA = Editeur Then .Rows(i & ":" & i + 1).Delete shift:=xlUp
    Next i
End With
End Sub

==> J'ai tenté avec Formula mais ne vois pas comment structurer la ligne de code.

Merci de votre aide!
Alain