beforDoubleclick

[MARIE74]

B) Bonjour a outes et a tous

Météo 19° nuageux pas de vent très humide

Mon probleme:

Macro:

Dans ma feuille:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('A2')) Is Nothing Then
cherchetdefil
End If
End Sub

Dans mon module:
Sub cherchetdefil()
cel = Range('A2').Value

With Worksheets(1).Range('b4:b2000') ' plage à modifier
Set c = .Find(cel, LookIn:=xlValues)
adres = c.Address

End With
Range(adres).Activate
End Sub

Je voudrais valider ma recherche par double click dans cellule 'A3'
Mais quand je change A2 par A3 dans Doubleclick cela ne marche pas


Merci d'avance d eaide

 

[Robert]

Bonjour Marie, bonjour le forum,

Je pense qu'il faut que tu changes aussi la procédure du module :
cel = Range('A2').Value

 

[MARIE74]

B) Re a tous

Merci Robert

OK
Si je met A3 dans dans module et dans doubleclick cela revient simplement a tout deplacer dans la cellule 'A3'

Je souhaite renseigner la valeur en 'A2' et valider en 'A3'


As tu une petite solution

Merci tout plein

 

[Robert]

Bonjour Marie, bonjour le forum,

Ben non ! Je ne vois pas pourquoi 'ça ne marche pas' car en remplaçant A2 par A3 dans l'événement double-clic cela devrait lancer une recherche de la valeur de A2. Pourrais-tu être plus précise sur ce qui ne marche pas ? Bug ? Recherche infructueuse ? Recherche ne correspondant pas ?

 

[Abel]

Bonjour Marie74, Robert,

As tu essayé :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range('A2')) Is Nothing Then
cel = Range('A3').Value

With Worksheets(1).Range('b4:b2000') ' plage à modifier
Set c = .Find(cel, LookIn:=xlValues)
Range(c.Address).Select
End With
End If
End Sub


En espérant que cela te dépanne.


Abel.

 

[Abel]

Re,

Oups, pardon Robert.

Un coup de tél, un pipi, un café, pas rafraichi et paf ! Le chien. Arf !


Abel.

 

[MARIE74]

B) Re a tous


Toutes mes excuses Robert tu as raison ça marche
mais tu sais moi les lundi matin molo molo


Abel merci de ton aide ça marche aussi


Bonne journée a tous les deux