MsgBox en fonction de valeurs d'un menu déroulant Excel

Bonjour

je cherche un code VBA qui me permettrait, en fonction de valeurs d'un menu déroulant, d'obtenir une message box (VbOkOnly) avec un message d'information.

Actuellement, voila ce que j'ai fait

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Valeur As Variant Valeur = Range("C5")   If Valeur = ("30/360") Then MsgBox ("la base 30/360 ne s'applique que pour les crédits à court terme", vbOKOnly + vbInformation, "Information")   ElseIf Valeur = ("Exact/360") Then MsgBox ("la base E/360 ne s'applique que pour les crédits à court terme" , vbOKOnly + vbInformation, "Information")   Else: MsgBox ("la base E/365 ne s'applique que pour les crédits à long terme", vbOKOnly + vbInformation, "Information")   End Sub

---

Bien sur ça ne marche pas, et je précise que je suis débutant premier sous niveau en VBA
Merci pour votre aide

Bonsoir,
essayes ce code , en regardant mes questions

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_Change(ByVal Target As Range) 'ta liste déroulante, que j'appellerais liste de validation est en C5 ? 'si oui Dim Valeur As String Valeur = Range("C5") '30/360 représente une donnée de la liste ? 'si oui If Valeur = "30/360" Then MsgBox "la base 30/360 ne s'applique que pour les crédits à court terme", vbOKOnly, vbInformation 'idem ci-dessous ElseIf Valeur = "Exact/360" Then MsgBox "la base E/360 ne s'applique que pour les crédits à court terme", vbOKOnly, vbInformation   Else: MsgBox "la base E/365 ne s'applique que pour les crédits à long terme", vbOKOnly, vbInformation End If End Sub

---

Bonjour,
Mis à part que j'opterais pour un Select Case plutôt que des ElseIf, je ne saisi pas bien ta demande.

Je vais essayer d'être plus clair.

En C5 d'une feuille excel, j'ai un menu déroulant avec 3 valeurs :
30/360
Exact/360
Exact/365

Je souhaite informer l’utilisateur de la particularité des 3 valeurs via des msgbox, à savoir
pour le 30/360 : la base 30/360 ne s'applique que pour les crédits à court terme
pour le Exact/360 : la base E/360 ne s'applique que pour les crédits à court terme
et pour le Exact/365 : la base E/365 ne s'applique que pour les crédits à long terme

Mon d'objectif est donc qu'une "popup" apparaisse à chaque fois qu'une valeur est choisie :
par exemple, l'utilisateur choisi la valeur Exact/360 => ouverture du message informatif "la base Exact/360..."
Il clique sur OK et c'est tout.

Bonjour,

Si c'est bien une liste de validation comme précisé par casefayere, tu pourrais utiliser le message de saisie lorsque tu crées cette liste (2e onglet).

De cette façon, l'utilisateur a toute l'info nécessaire avant même de faire sa sélection et n'a pas à cliquer "OK" à chaque fois qu'il fait une entrée...

Citation:

---

Si c'est bien une liste de validation comme précisé par casefayere, tu pourrais utiliser le message de saisie lorsque tu crées cette liste (2e onglet)

---

tout juste

Ok ça marche

merci bcp !

Aie nouveau pb.

En fait, la macro ne réagit pas qu'au changement de ma cellule C5

Dès qu'un autre volet déroulant est modifié d'une autre cellule, le message apparaît.

En plus, j'ai également une macro solver qui, quand je la lance, fait apparaître le message de manière répétée

merci pour votre aide, à nouveau

Bonjour,
tu as gardé l'évènement "Worksheet_Change" ? si oui, tes problèmes sont logiques, if faut insérer une condition If (en haut de module) qui vérifie que l'adresse de Target correspond à l'adresse de la cellule concernée

Désolé je suis une buse en vba

pourrais tu me montrer ce que cela donnerait sur le code que tu as corrigé?

merci !!!!!

essayes ce code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Worksheet_Change(ByVal Target As Range) Dim Valeur As String 'ta liste déroulante, que j'appellerais liste de validation est en C5 ? 'si oui If Target.Address = "$C$5" Then Valeur = Range("C5") If Valeur = "30/360" Then MsgBox "la base 30/360 ne s'applique que pour les crédits à court terme", vbOKOnly, vbInformation ElseIf Valeur = "Exact/360" Then MsgBox "la base E/360 ne s'applique que pour les crédits à court terme", vbOKOnly, vbInformation   Else: MsgBox "la base E/365 ne s'applique que pour les crédits à long terme", vbOKOnly, vbInformation End If End If   End Sub

---

Yes ça marche

Encore merci pour ton aide