Doubleckick dans cellules

[wachoo31]

Bonjour, le forum

J'aurais voulu savoir si par un double click dans une cellule de la colonne A de la feuil1, il était possible de rechercher la valeur de cette cellule parmi plusieurs feuille du classeur sa chant que cette valeur peu ce trouvé dans n'importe quel celllule de n'importe quel feuille et enfin de pouvoir y accédé automatiquement

En vous remerciant d'avance

 

[Samantha]

Re : Doubleckick dans cellules

Bonjour Les Gens, Le Forum, Alain,

Et en faisant Ctrl+F et en tapant ce que tu recherches dans la case qui va bien et en choisissant dans les options de rechercher dans le classeur ??

A moins que ta recherche n'implique une formule à suivre ?

Dis nous en plus ou montre nous un bout de ton fichier 😉

A te lire


Sam

 

[myDearFriend!]

Re : Doubleckick dans cellules

Bonjour wachoo31, Samantha, le Forum,

Soit une liste de valeurs en colonne A de la feuille 1,
code à placer dans le module de code de l'objet "Feuil1" :

[SIZE=2]Private [COLOR=navy]Sub[/COLOR] Worksheet_Before[COLOR=navy]Double[/COLOR]Click([COLOR=navy]ByVal[/COLOR] Target[COLOR=navy] As [/COLOR]Range, Cancel[COLOR=navy] As Boolean[/COLOR])
[COLOR=navy]Dim [/COLOR]F[COLOR=navy] As [/COLOR]Worksheet
[COLOR=navy]Dim [/COLOR]C[COLOR=navy] As [/COLOR]Range
      Cancel = [COLOR=navy]True[/COLOR]
      [COLOR=navy]If Not [/COLOR]Application.Intersect(Target, Columns(1))[COLOR=navy] Is Nothing Then[/COLOR]
            [COLOR=navy]For Each[/COLOR] F[COLOR=navy] In [/COLOR]Sheets
                  [COLOR=navy]If Not [/COLOR]F[COLOR=navy] Is [/COLOR]Sheets("Feuil1") [COLOR=navy]Then[/COLOR]
                        [COLOR=navy]Set[/COLOR] C = F.Cells.Find(Target.Value)
                        [COLOR=navy]If Not [/COLOR]C[COLOR=navy] Is Nothing Then[/COLOR]
                              Application.Goto F.Range(C.Address)
                        [COLOR=navy]End If[/COLOR]
                  [COLOR=navy]End If[/COLOR]
            [COLOR=navy]Next[/COLOR] F
      [COLOR=navy]End If
End[/COLOR] Sub[/SIZE]

Cordialement,

 

[wachoo31]

Re : Doubleckick dans cellules

Bonsoir, Samantha, myDearFriend
, re le forum

myDearFriend , ta solution marche "nickel" juste ce que je cherchais

Merci à toi et par la même occassion, merci samantha

Bonne soirée à vous tous