[VBA-E]Cbx - gestion de la valeur null

Bonjour,

J'ai une liste deroulante dans une form excel qui recupere les valeurs de 2 colonnes d'une feuille.:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub cbxProj_DropButtonClick()   With Sheets("Data").Range("A1")   Me.cbxProj.RowSource = "Data!A1:B" & Sheets("Data").Cells(1, 1).End(xlDown).Row   End With   End Sub

---

Certains boutons de ma form(donc evenement) dependent de la selection dans cette liste. Cela fonctionne correctement mais le pb c'est que lorsque je ne selectionne rien et donc que la selection reste vide, j'ai une erreur lorsqu'un evenement base sur cette selection est lance.

J'ai essaye la chose suivante mais ca ne marche pas:

Code:

---

1 2 3 4 5

If cbxProj.List(cbxProj.ListIndex) Is Null Then   MsgBox ("Select a project first!")   End If

---

Une idee?

A mon avis, ceci devrait marcher:

Code:

---

1 2 3 4 5

If cbxProj.Listindex = -1 Then   MsgBox ("Select a project first!")   End If

---

Effectivement ca marche, Merci bien!

Pour ton info, inutile d'écrire Résolu dans le sujet, tu as un bouton en bas et à gauche de la fenêtre qui fait ça pour toi :wink:

A+