Gestion des erreurs VBA
Bonjour à tous,
Je souhaite faire un code qui me permet de gérer une erreur ainsi:
Le code doit fixer "Datefinexo" = B3
Si la cellule B3 est erronée (#NOM! par exemple)
Alors dans ce cas on fixe la valeur "Datefinexo" avec une inputbox mannuellement
Voici le code actuel, le problème est qu'il me dit que la variable Datefinexo se répète 2 fois !
Mais je ne peux pas mettre autre chose sinon, je ne pourrai pas reprendre cette variable plus loin la macro ...
J'espère avoir été clair ^^
Merci à vous!
Sub macro()
On Error GoTo gestionErreurs
Dim Datefinexo As String
Datefinexo = ActiveSheet.Range("B3").Value
gestionErreurs:
Dim quoi As String
Datefin = InputBox("Saisir la date du reclassement : ")
Dim Datefinexo As String
Datefinexo = Datefin
Bonjour,
essayez avec le test :
If Err>1 ThenSub macro()
Dim Datefinexo As String, Quoi As String
On Error Resume Next
Datefinexo = ActiveSheet.Range("B3").Value
If Err>1 Then Datefinexo = InputBox("Saisir la date du reclassement : ")
On Error Goto 0Pas essayé...
@ bientôt
LouReeD
Parfait !!!
Merci beaucoup
Merci @ vous de vos remerciements !
@ bientôt
LouReeD