Paramétrer une erreur d'une variable non trouvée ?

[lebarbo]

Bonjour le forum, bonjour à tous,

J'ai fait une fonction :

NoLigne = Columns(ColonneE & ":" & ColonneE).Find(Nom).Row

avec colonneE qui est une variable que je saisi dans une inputbox mais qui ici n'a pas beaucoup d'importance.

Dès fois le "Nom" n'est pas trouvé et ça bug j'aimerais dans ce cas lui donner un ordre à executer du genre :

Si tu ne trouves pas "Nom" Affiche moi le message : "erreur dans la recherche" et continue.

Je connais On error resume next mais je ne sais pas comment faire pour qu'il execute autre chose.

Merci

 

[wilfried_42]

Re : Paramétrer une erreur d'une variable non trouvée ?

salut lebado

on error goto erreur
NoLigne = Columns(ColonneE & ":" & ColonneE).Find(Nom).Row
on error goto 0
suite de ton code

goto fin
erreur:
traitement de l'erreur
fin:
end sub

salutations

 

[Hervé]

Re : Paramétrer une erreur d'une variable non trouvée ?

bonjour

une autre solution en evitant le on error :

Dim c As Range

'ton inputbox

Set c = Columns(ColonneE & ":" & ColonneE).Find(nom)

If Not c Is Nothing Then
NoLigne = c.Row
Else
MsgBox "pas trouvé": Exit Sub
End If

salut

 

[lebarbo]

Re : Paramétrer une erreur d'une variable non trouvée ?

Bonjour à vous deux et MERCI...

J'ai compilé un peu des deux j'ai pris le code de wilfried_42 en rajoutant le Exit sub de Hervé que je ne connaissais pas non plus pour éviter le bug de la macro et pour sortir de l'execution.

Je ne sais pas pourquoi mais je code un peu et je n'ai pas du tout d'intuitivité avec les Set, donc je fais tous mes codes sans les Set.

Est ce que c'est grave Docteur ? ; )

Bye

 

[PascalXLD]

Re : Paramétrer une erreur d'une variable non trouvée ?

Bonjour

lorsque tu travailles avec des variables objets ici un range tu es obligé de les affecter avec set et non directement

Set c = Columns(ColonneE & ":" & ColonneE).Find(nom)

et non

c = Columns(ColonneE & ":" & ColonneE).Find(nom)

 

[lebarbo]

Re : Paramétrer une erreur d'une variable non trouvée ?

Ok Pascal mais comme je l'ai dit pour moi ça n'est pas du tout intuitif mais si tu dis que c'est nécessaire alors il faudra que je m'y mette un jour lol. J'arrive toujours à faire ce que je veux sans utiliser de Set mais peut-être que je me limite ne sachant pas vraiment ce que ça apporte en supplément.

Sinon wilfried_42, je voulais savoir le "on error goto 0" apporte quoi de plus dans le code je n'arrive pas à le décripter.

Merci

 

[PascalXLD]

Re : Paramétrer une erreur d'une variable non trouvée ?

RE

Le on error goto 0 te sort de la gestion d'erreur en cours c'est à dire

on error goto erreur

donc si tu n'as pas le on error goto 0 et que tu as une erreur dans la suite du code il ira à la ligne erreur. Mais avec le on error goto 0 si tu as une erreur dans la suite du code tu auras un bug.

 

[lebarbo]

Re : Paramétrer une erreur d'une variable non trouvée ?

oki merciiiiiiiiii