liste de choix et VBA

[f1f00]

Bonjour

J'ai un problème mon utilisateur doit choisir un mois dans une liste et en fonction de cela et en cliquant sur le bouton cela ouvre une feuille du classeur. Mais si il ne choisi pas cela ouvre quand même le classeur avec un message d'erreur qui demande de déboguer la macro. J'aimerai que lorsque l'utilisateur n'a pas fait de choix il y ait un message d'erreur qui lui dise
"Choisissez d'abord un mois!" pour ne pas que la macro se bloque.
Merci d'avance

Je vous montre le fichier
Regarde la pièce jointe iZiCompta.xls

 

[Hulk]

Re : liste de choix et VBA

Hello,

Heu je ne veux pa être asdfsdfeksjhhgidvusdfgkwsk, mais si tu mets des mots de passes dans ton fichier, on va avoir de la peine à t'aider..

Dépose le même fichier sans données confidentielles et sans mot de passe !

Cdt, Hulk.

 

[JNP]

Re : liste de choix et VBA

Bonjour Hulk, F1F00 🙂,
Euh, Hulk, tu me donnera la traduction de "asdfsdfeksjhhgidvusdfgkwsk" 😀?
Non seulement les feuilles sont protégées par mot de passe, mais... il n'y a pas de listes déroulantes (ou elles sont bloquées en même temps que la feuille), et plus fort, nulle part dans la macro il n'est fait référence à une cellule concernant ces listes déroulantes...😱
Si par hasard, un jour, il y a une référence à une liste (en B6 sur iZiCompta par exemple), il te suffira de mettre

If Sheets("iZiCompta").Range("B6") = "" Then
MsgBox("Il faut saisir un mois, screugneugneu...!")
Exit Sub
End If

Bon courage 😎

 

[f1f00]

Re : liste de choix et VBA

Pardon lol je n'avais pas fait attention

Regarde la pièce jointe iZiCompta(1).xls

 

[Hulk]

Re : liste de choix et VBA

Re,

Bon ben si bien saisis, je te propose ceci qui va dans le sens de JNP...

Cdt, Hulk.



P. S. Jnp, "asdfsdfeksjhhgidvusdfgkwsk" veut dire "ch..nt" !... 😀 et "screugneugneu" ?? 😀

 

[f1f00]

Re : liste de choix et VBA

JNP j'ai essayé ta formule mais je ne sais pas bien ou la palcer si bien quequand je la mais la macro plante lorsque l'utilisateur choisi queque chose donc c'est pas génial.

 

[f1f00]

Re : liste de choix et VBA

Merci Hulk pour ton aide c'est exactement ca que je rechercher masi petit problème, après que la fenetre "Vous devez choisir un mois" apparait la macro bug quand même. Moi je voudrais qu'apres le message rien ne se passe alors que la les feuilles s'ouvrent quand même et la macro plante. A tu une idée?

 

[Hulk]

Re : liste de choix et VBA

Re,

Peut-être avec le On Error Resume Next

Private Sub CommandButton1_Click()
On Error Resume Next
If [B6] = "" Then MsgBox "Vous devez choisir un mois !"
bouton = 1
charge
End Sub

Idem pour les autres, tu rajoutes le On Error Resume Next en début de procédure.

Cdt, Hulk.

 

[Hulk]

Re : liste de choix et VBA

Re,

Au fait non, bien mieux comme ça, toujours comme le proposait l'ami Jnp !

Private Sub CommandButton1_Click()
On Error Resume Next
If [B6] = "" Then
MsgBox "Vous devez choisir un mois !"
Exit Sub
End If
bouton = 1
charge
End Sub

Private Sub CommandButton2_Click()
On Error Resume Next
If [C6] = "" Then
MsgBox "Vous devez choisir un mois !"
Exit Sub
End If
bouton = 2
charge
End Sub

Private Sub CommandButton3_Click()
On Error Resume Next
If [D6] = "" Then
MsgBox "Vous devez choisir un mois !"
Exit Sub
End If
bouton = 3
charge
End Sub

Private Sub CommandButton4_Click()
On Error Resume Next
If [E6] = "" Then
MsgBox "Vous devez choisir un mois !"
Exit Sub
End If
bouton = 4
charge
End Sub

Nettement mieux !

Cdt, Hulk.

 

[f1f00]

Re : liste de choix et VBA

Perfecto!!!
Merci beaucoup pour ton aide

 

[JNP]

Re : liste de choix et VBA

Re 🙂,
Désolé, j'étais un peu parti, mais à priori c'est bon 😛.
Hulk : Screugneugneu, c'est comme m'enfin, c'est dans LaGaffe...
Bonne journée 😎