Methode find sur excel
cs_signorina
Messages postés
1
Date d'inscription
vendredi 19 août 2005
Statut
Membre
Dernière intervention
19 août 2005
-
19 août 2005 à 16:08
cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 - 19 août 2005 à 17:48
cs_wape Messages postés 262 Date d'inscription samedi 21 décembre 2002 Statut Membre Dernière intervention 19 décembre 2010 - 19 août 2005 à 17:48
1 réponse
cs_wape
Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
12
19 août 2005 à 17:48
19 août 2005 à 17:48
Bonjour,
Essaye comme ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim mot As Variant
Dim plage As Variant
Dim C As Variant
If ActiveCell.Column = 4 And Range("Q" & ActiveCell.Row).Value <> 0 Then
mot = ActiveCell.Value
Sheets(3).Activate
Set plage = Sheets(3).Range("C2:C2000")
Set C = plage.Find(mot)
If Not C Is Nothing Then
A = C.Address
Sheets(3).Range(A).Select
End If
End If
End Sub
wape
Essaye comme ceci :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim mot As Variant
Dim plage As Variant
Dim C As Variant
If ActiveCell.Column = 4 And Range("Q" & ActiveCell.Row).Value <> 0 Then
mot = ActiveCell.Value
Sheets(3).Activate
Set plage = Sheets(3).Range("C2:C2000")
Set C = plage.Find(mot)
If Not C Is Nothing Then
A = C.Address
Sheets(3).Range(A).Select
End If
End If
End Sub
wape
