sortir d'une procédure

[meldja]

Bonjour,

Tout d'abord, il n'y a pas d'urgence, je travaille sur un fichier juste pour le fun (pour me familiariser avec VBA).

Voila mon problème, je me suis amusé à charger un combobox dans une feuille qui peut prendre différente valeur.
Les valeurs qui seront traités sont "dm3" et "m3"
Sur l'évènement change de cette combobox, il doit effectuer une conversion (un nombre qui se trouve en cellule C5).

Seulement, si l'élément sélectionné de cette liste est différent de "dm3" ou "m3", il doit renvoyer un message d'erreur et quitter la procédure.
Tout fonctionne, sauf qu'il ne quitte pas la procédure tout de suite et on est obligé de clicker 2 fois sur le msgbox.
Je pensais qu'avec Exit sub ça le ferait mais apparemment non.
Voici le code :

Private Sub ComboBox2_Change()

Select Case ComboBox2.Value
Case Is = "dm3"
Range("J9").Value = Range("C5") / 1000
Case Is = "m3"
Range("J9").Value = Range("C5") / 1000000
Case Is <> "dm3"
MsgBox "impossible de convertir", , "ERREUR"
Exit Sub
Case Is <> "m3"
MsgBox "impossible de convertir", , "ERREUR"
Exit Sub
End Select
End Sub

J'espère que ma demande est claire, merci d'avance

 

[meldja]

Re : sortir d'une procédure

Re,
J'ai un peu amélioré le code qui était illogique, mais toujours le même problème, à savoir, obligé de clicker 2 fois sur le msgbox.
Select Case ComboBox2.Value
Case Is = "dm3"
Range("J9").Value = Range("C5") / 1000
Case Is = "m3"
Range("J9").Value = Range("C5") / 1000000
Case Else
MsgBox "impossible de convertir", , "ERREUR"
End Select

 

[gilbert_RGI]

Re : sortir d'une procédure

Bonjour

comme ceci peut-être 🙄

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Select Case ComboBox1.Value
Case Is = "dm3"
Range("J9").Value = Range("C5") / 1000
Case Is = "m3"
Range("J9").Value = Range("C5") / 1000000
Case Else
MsgBox "impossible de convertir", , "ERREUR"
End Select

End Sub

 

[meldja]

Re : sortir d'une procédure

Merci pour ta réponse,
J'ai testé et ça ne marche pas.

Bonne journée

 

[gilbert_RGI]

Re : sortir d'une procédure

mais si ça fonctionne voir le fj

😀

 

[meldja]

Re : sortir d'une procédure

Désolé, j'ai copié/collé ton code à la place du mien (en prenant soin de remplacer combobox1 par combobox2) et lorsque je clique sur une autre valeur que "dm3" ou "m3", rien ne se passe.
En plus, il fait toujours la même conversion, il divise toujours par 1000 000.
Voici le code que j'ai collé à la place du mien :

Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Select Case ComboBox2.Value
Case Is = "dm3"
Range("J9").Value = Range("C5") / 1000
Case Is = "m3"
Range("J9").Value = Range("C5") / 1000000
Case Else
MsgBox "impossible de convertir", , "ERREUR"
End Select

End Sub

 

[gilbert_RGI]

Re : sortir d'une procédure

mets plutôt ton fichier exemple ce sera plus facile 🙄

 

[meldja]

Re : sortir d'une procédure

Ok,
Encore merci pour ton aide.

 

[gilbert_RGI]

Re : sortir d'une procédure

Normal

dans la propriété linkedcell il y avait k3
qui redonnait la valeur de k3 dans la combobox
d'où deux fois la sortie par Case Else

oups pas besoin de l'exit sub à la ligne Case Else
voilà rectifié

 

[meldja]

Re : sortir d'une procédure

Ok, merci,
J'ai compris l'erreur.
J'ai testé et c'est bon.
Sinon, le fichier que tu m'as envoyé est trop bizarre, ça me sort une page web (celle de ce site).
Bonne journée

 

[gilbert_RGI]

Re : sortir d'une procédure

moi je l'ouvre correctement

le revoici sauvegardé en version 2003

je me suis peut-être trompé à l'enregistrement ????