Bonjour à tous,
J'ai un soucis dans un test avec If Not Is Nothing Then.
Je rentre jamais dans le test si la valeur n'est pas présente dans la plage de recherche.
Je souhaite afficher MsgBox "non présent".
Sinon le programme fonctionne bien et sélectionne la cellule désirée si la valeur est dans la plage. C'est déjà ça ahah.
Sub cherche()
Dim plage As Range
Dim cellule As Range
Set plage = Range("A1:DB1")
Set cellule = Range("A1")
Dim add As Range
Set add = plage.Find(cellule, LookIn:=xlValues, lookat:=xlWhole)
If Not add Is Nothing Then
add.Select
Else
MsgBox "non présent"
End If
End Sub
SI vous avez une correction à me proposer je bloque