Problème de msgbox

[Arnaud61]

Bonjour,

J'ai actuellement un soucis avec une listbox et un msgbox.

Dans un userform, j'ai mi une listbox.

L'utilisateur doit sélectionner entre 4 choix (1,2,3,4).

J'aimerais que si l'utilisateur oublie de faire une sélection avant d'appuyer sur le bouton "Valider", un message s'affiche.
Et que dans mon message une fois que l'utilisateur ai cliqué sur "Ok" que le message disparaisse.

Voici mon code:

Private Sub Bouton_valider_Click()
If ListBox_Priorité.ListIndex = -1 Then
MsgBox ListBox_Priorité("Veuillez sélectionner une priorité!", vbOKOnly + vbExclamation, "Avertissement")
End If
Sheets("Nouvelle Tâche - Arnaud").Range("B5").Value = ListBox_Priorité.List(ListBox_Priorité.ListIndex)
Nouvelle_Tâche.TextBox_Priorité = Sheets("Nouvelle Tâche - Arnaud").Range("B5").Value
Unload Priorité
End Sub


Private Sub UserForm_Initialize()
ListBox_Priorité.List = Sheets("Variables").Range("K3:K6").Value
End Sub

J'ai une erreur concernant le msgbox "incompatibilité de type"...

Merci

 

[Pierrot93]

Re : Problème de msgbox

Bonjour Arnaud,

pas sur d'avoir tout compris. Modifies peut être ton code comme suit :

If ListBox_Priorité.ListIndex = -1 Then
MsgBox "Veuillez sélectionner une priorité!", vbOKOnly + vbExclamation, "Avertissement"
End If

bonne journée
@+

 

[JNP]

Re : Problème de msgbox

Bonjour,
Rentre ta pliste box comme premier champs :
TabBox = 1
Et utilise la sortie de ta listbox :
Private Sub ListBox_Priorité_Exit()
pour vérifier que la réponse est bien entre 1 et 4.😎

 

[Arnaud61]

Re : Problème de msgbox

Problème résolu!

Merci pierrot!

1heure de bloqué à cause d'une parenthèse...

Je ne comprends pas trop étant donné que dans mes recherches (autres fil, etc) je voyais toujours les parenthèses avec la propriété msgbox. 😕

Edit: j'ai revérifié mes documents et effectivement il n'y a pas de parenthèses... Je me suis emmelé les pinceaux! On va mettre ça sur le compte de la fatigue! 😀

 

[Pierrot93]

Re : Problème de msgbox

Re,

tu mets entre parenthèse lorsque tu veux utiliser le résultat renvoyé dans une variable comme ci dessous :

x = MsgBox("Veuillez sélectionner une priorité!", vbOKOnly + vbExclamation, "Avertissement")

@+

 

[Arnaud61]

Re : Problème de msgbox

Merci pour la leçon Pierrot! 😉