M
MARIE74
Guest
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
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