If Not Is Nothing Then else ne marche pas

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

Bonjour

1) tu inclus ta cellule A1 dans ta recherche.... c'est B1 ou C1 au départ de ta plage

2) Ci joint une proposition de macro qui marche ..... a priori.... et sélectionne la cellule trouvée

3° Pas raccordée à ton bouton search !!

Cordialement

FINDRH

Bonjour nonesofar, bonjour le forum,

Comme tu inclus A1 dans la recherche sur une plage. La condition est toujours vérifiée et donc A1 sera systématiquement sélectionnée...

[Édition]

Bonjour Findrh nos posts se sont croisés...

Hello les gars,

@FINDRH en effet ta proposition marche nickel et départ bien en cellule C1.

@ThauThème Merci

Voila au top sujet résolu.

Rechercher des sujets similaires à "not nothing then else marche pas"