4 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
20 sept. 2017 à 10:12
20 sept. 2017 à 10:12
Bonjour,
Private Sub onvatrouver()
Dim chaine As String
Dim maPlage As Range
Dim trouve As Range
chaine = "xxx"
Set maPlage = ActiveSheet.Columns(3)
Set trouve = maPlage.Cells.Find(what:=chaine, LookAt:=xlWhole)
If Not trouve Is Nothing Then
MsgBox trouve.Address
Else
MsgBox "Pas trouvé, désolé........."
End If
End Sub