Plusieurs recherches

bonjour à tous .

Je bloque sur un code et je voudrais un coup de main.

Je voudrais réussir a faire plusieurs recherches quand je double clic sur une cellule.

Quand je double clic , je veux qu'il cherche OP78/OP 75 ECT.... et quand il trouve OP 78 il le colle dans D/E/F et quand il trouve OP75 il le colle dans H/I/J.

Quelqu'un pourrais m'aider?

Merci..

personne.......

Bonsoir

Pas très claire ta question

meinda a écrit :

Quand je double clic , je veux qu'il cherche OP78/OP 75 ECT.... et quand il trouve OP 78 il le colle dans D/E/F et quand il trouve OP75 il le colle dans H/I/J.

Il le cherche où ?

dans toute la page, dans une seule colonne, dans la ligne ?

Il le colle où ?

Dans la page notée dans la colonne B ?

Le double clic ne doit se faire que sur la colonne B ?

A te lire

Bonsoir, il cherche dans la feuil1 et dans les colonnes B/C/D,ligne sélectionner grâce au double clic en colonne B .

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B1:B500")) Is Nothing Then
Dim Var As String
 Var = Target.Value
 Sheets(Var).Activate
 Dim c As Range, DerLig As Long
  With Worksheets(1).Range(Target.Offset(0, 3).Address & ":" & Target.Address) 'je cherche

Si je trouve Op 78 je colle dans la feuille sélectionner et dans les cellules D/E/F.

DerLig = Sheets(Var).Range("D65536").End(xlUp).Row + 1
            Range(Target.Offset(0, 3).Address & ":" & Target.Address).Copy _
            destination:=Sheets(Var).Range("D" & DerLig)
            Set c = .FindNext(c)

Ce que j'arrive pas faire c'est si je trouve op 75 je colle mais dans une autre plage.

Bonsoir

Ce que j'ai compris

Bonjour,

Merci Banzai64 c'est ça

A+