erreur 91 avec Cells.find

[peper-eliot]

Bonsoir le forum

Je fais appel à vous pour un petit problème dont je suppose connaître la cause mais que je ne sais pas comment contourner.

Essayons d'être le plus clair possible...lol

J'ai un USF qui utilise une textBox rentrer un N° d'étudiant
Comme la liste est longue, je préfère passer comme ça plutôt que d'utiliser une combo à 1200 lignes... lol

MAIS (aïe), il faut bien que je vérifie si le n° concorde avec la base

j'utilise donc le code suivant
​

Neleve = TextBox1.Value

Set WS_eleves = ThisWorkbook.Sheets(9)
WS_eleves.Select
Range("A1").Select
Cells.Find(What:=Neleve,LookAt:=xlWhole,SearchOrder:=xlByColumns).Activate

OR (patatra), si le N° rentré n'existe pas dans la base, VBA génère l'erreur suivante :

erreur 91
variable objet ou variable de bloc With non définie

En faisant une recherche sur cette erreur, je pense que c'est parceque j'ai tenté d'utiliser une variable objet ayant la valeur Nothing

Je chauffe ????????????????????????

J'ai bien essayé de rajouter

Set Nok = Nothing

If Cells.Find(What:=Neleve, LookAt:=xlWhole, SearchOrder:=xlByColumns) = Nok Then
MsgBox "erreur de saisie"

ben ça marche pas........

Alors on essaye, on bidouille, mais là, faut humblement que je reconnaisse mes limites et fasse appel aux codeurs bienfaiteurs du forum - lol

Merci d'avance pour votre aide

PS1 : au passage, est-il posssible d'éviter les select de WS_eleves.Select et Range("A1").Select avant de lancer une recherche ?

PS2 : PostVL, c'est vraiment bien...

 

[myDearFriend]

Re- peper-eliot,


Vite fait, tu devrais peut-être pouvoir faire un truc comme ça :

Dim Rech As Variant

Neleve = TextBox1.Value
Set Rech = ThisWorkbook.Sheets(9).Cells.Find(What:=Neleve, LookAt:=xlWhole, SearchOrder:=xlByColumns)

If Not Rech Is Nothing Then
... (Traitement)
...
Else
MsgBox "erreur de saisie"
End If



Cordialement,
Didier_mDF

 

[peper-eliot]

Salut le forum
Bonjour et merci Didier_mDF... ça marche !

Tout d'abord, mille excuses pour mes remerciements si tardif...
Ça m'apprendra à bien cocher la case en bas de ma demande...
D'autant plus que la réponse fut rapidement donnée
Alors, encore merci Didier_mDF, parce-que des dear friend comme ça, faut les chouchouter... lol

Longue vie au forum


@+ peper-eliot