Discussion :

[coubz82]

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 VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonsoir,
essayes ce code , en regardant mes questions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

[coubz82]

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.

[parmi]

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...

[casefayere]

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

[coubz82]

Ok ça marche

merci bcp !