True & false en macro

Re: True & false en macro

Salut Temjeh,

La méthode Find renvoie Nothing si critère non trouvé.
Elle renvoie un objet Range dans le cas contraire.

Comme tu demandes d'Activer le résultat, la tentative d'activation de Nothing donne une erreur.

Il faudrait passer par une variable intermédiaire et faire un test dessus avant de poursuivre.

Du genre :

Dim R as Range

Set R = Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)

if not R is Nothing then
TextBox2 = R.Offset(0, 1)
endif


Je n'ai pas testé mais ça devrait fonctionner.

Cordialement.
Didier_mDF

Re: True & false en macro

J"esssaie juste de comprendre ta formule puis j'y arrive pas trop mais tout ce que je sais c'est que ca fonctionne trés bien!!!!!

Merci Didier pour ton aide

Temjeh

Re: True & false en macro

Re- Temjeh,

if not R is Nothing then
TextBox2 = R.Offset(0, 1)
endif

Ca veux juste dire :

Si le Résultat de la recherche est différent de "Rien" alors on définit la valeur de TextBox2.

Nb :
J'ai également remplacé ton :
"RésultatRecherche".Activate
TextBox2 = ActiveCell.Offset(0, 1)

Par :
TextBox2 = "RésultatRecherche".Offset(0, 1)

C'est plus court et plus rapide car ça évite une activation de cellule intermédiaire inutile.

En espérant t'avoir un peu éclairé sur le sujet.
@+
Didier_mDF

Re: True & false en macro

Merci J'étudie ça

Temjeh