Gestion des erreurs

[ldexplorer]

n'ouvrir l'userform que si la feuille en cours n'est pas ...

Bonjour à vous le forum,

Mon petit classeur avance et avance grâce à votre concours notamment.

J'en viens à mettre des codes de gestions d'erreur.

A l'aide d'un userform "saisieacte", j'introduis des actes dans la feuille courante.
J'appelle cet userform à l'aide d'un bouton.

Je souhaiterais ajouter par un module que si la feuille "Recap" est la feuille courante alors il ouvre un userform nommée "erreur" autre que "saisie acte"

chronologiquement, il se passerait ceci :
-1- clique bouton
-2- vérifie si feuille courante est recap, si oui alors vers userform "erreur si non alors userform "saisieacte"

Sub vérif

Dim O As Worksheet
Set O = Sheets(Me.TextNom.Text)

If O = Sheets("Recap")
Then erreur.show
Else saisieacte.show

end sub

Mais le code n'est pas valide. Pouvez vous m'aider. Merci d'avance

 

[pierrejean]

Re : n'ouvrir l'userform que si la feuille en cours n'est pas ...

Bonsoir Lionel
A tester​

[LEFT]Sub vérif
If Activesheet.Name="Recap" then
erreur.show
Else 
saisieacte.show
End if
end sub[/LEFT]

 

[ldexplorer]

Re : Gestion des erreurs

Merci Pierrejean

Ta solution fonctionne à merveille