Liste de validation dynamique dans Userform (Combobox)

[hypo78]

Bonjour à tous,

je souhaiterai avoir l'équivalent d'une liste de validation dans une combobox allant chercher sa plage de référence avec la fonction indirect.

Pour être plus simple, le petit fichier en pièce jointe.

Merci d'avance.

Edit : chgt du titre car "nouveau problème"

 

[MichD]

Re : Liste de validation dans Userform (Combobox)

Bonjour,

En supposant que j'ai compris la question :

Copie ceci dans le module du formulaire :

'--------------------------------
Private Sub UserForm_Initialize()
With Worksheets("Feuil1")
Me.ComboBox1.AddItem .Range("A13").Value
Me.ComboBox2.AddItem .Range("B13").Value
Me.ComboBox3.AddItem .Range("C13").Value
End With
End Sub
'--------------------------------

 

[BOISGONTIER]

Re : Liste de validation dans Userform (Combobox)

Bonsoir,

Private Sub UserForm_Initialize()
  Me.ComboBox1.List = [liste1].Value
End Sub
Private Sub ComboBox1_Click()
  Me.ComboBox2.List = Range(Me.ComboBox1).Value
End Sub

Private Sub ComboBox2_Click()
  Me.ComboBox3.List = Range(Me.ComboBox2).Value
End Sub

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVcascadeIndirectForm.xls

JB

 

[hypo78]

Re : Liste de validation dans Userform (Combobox)

Bonjour JB,

rapidité et efficacité comme d'habitude.
Merci.

Cordialement.

Edit : merci aussi MichD, mais les cellules n'étaient qu'une illustration de ce que je veux obtenir, dans mon fichier elles n'existent pas.

 

[hypo78]

Re : Liste de validation dans Userform (Combobox)

Bonjour,

j'avance doucement sur le projet en consultant régulièrement le site de JB, mais là encore un petit problème :

Lorsque je saisi un nouveau nom dans mon UserForm, il ne s'ajoute pas à ma liste personnels.

Cordialement.

 

[hypo78]

Re : Liste de validation dynamique dans Userform (Combobox)

Re,

un petit Up, car après recherche çà à l'air simple, mais il y a truc que je dois omettre....

 Private Sub Choix_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsError(Application.Match(Me.ComboBoxNom, Range("personnels"), 0)) And Me.ComboBoxNom <> "" Then
Range("personnels").End(xlDown).Offset(1, 0) = Me.ComboBoxNom
Range("personnels").Sort key1:=Range("personnels")(1)
End If
End Sub

Merci d'avance d'y jeter un oeil.

 

[hypo78]

Re : Liste de validation dynamique dans Userform (Combobox)

Bonjour à tous,

Personne pour m'aider??

Bon dimanche