Formule VBA

Bonjour à tous,

Je voudrais une formule VBA qui en sélectionnant dans classeur ci-joint que la cellule A3 de la feuille1, la ligne qui contient

ce nom dans la feuille2 soit supprimée entièrement. Ce classeur est un exemple pour un autre projet.

Merci Eugène

Courage à tous pour le confinement pour ce virus

Bonjour,

Un double click sur A3 de la feuille 1

Pour adapter à un autre fichier, il faudra adapter les noms de feuilles et adresses.

Un essai ...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim R As String
Dim Rng As Range

Cancel = True
    If Intersect(Target, Range("A3")) Is Nothing Then Exit Sub
    R = ActiveSheet.Range("A3").Value
    Set Rng = Worksheets("Feuil2").Columns("A:A").Find(what:=R, LookIn:=xlValues, lookat:=xlWhole)
    If Rng.Value <> "" Then Worksheets("Feuil2").Range("A" & Rng.Row).EntireRow.Delete
End Sub

ric

bonjour ric

Cela fonctionne très dans mon modèle test1.

Mais je voudrais placer cette formule dans mon code vba d'un autre classeur en changeant les noms et sans double clik.

Est ce possible???

D'avance merci

Eugène

Bonjour,

Bien sûr que c'est possible, je ne t'empêche pas de le faire.

ric

Ok merci ric

J'ai trouvé la façon de l'incorporer dans mon code vba

Grand merci et à plus

Eugène

bonjour ric

Cela fonctionne très dans mon modèle test1.

Mais je voudrais placer cette formule dans mon code vba d'un autre classeur en changeant les noms et sans double clik.

Est ce possible???

D'avance merci

Eugène

[/quote]