Plusieurs recherches.

[meinda]

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..

[meinda]

personne.......

[Banzai64]

Bonsoir

Pas très claire ta question

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

[meinda]

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

Code: Tout sélectionner

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.

Code: Tout sélectionner

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.

[Banzai64]

Bonsoir

Ce que j'ai compris

[meinda]

Bonjour,
Merci Banzai64 c'est ça

A+