Zone de liste excell ?????????

Question

Salut, je voudrais savoir plusieurs petitte chose sur les zones de liste d'Excel (pas les combobox de VB).

Est t'il possible de leur appliquer la propri&#233;t&#233; rowsource comme a une combobox VB ?
Est t'il possible de leur appliqu&#233;e du code sur les proc&#233;dure change ou exit &#233;galement comme pour les combobox VB?

J'ai essay&#233; mais j'y arrive pas, si c'est possible pouvez vous me donner un exemple.

Maintenent une question sur les combobox VB cette fois-ci.

Je n'arrive pas utiliser la proprit&#233; rowsource sur une feuille excell mais dans une userform pas de pb, pourkoi?

Voil&#224; c'est tout.
Merci d'avance et bonne soir&#233;e.

Olivier

jpleroisse · Answer

Pour les Zones de liste Excel, je ne connais pas de code, si ce n'est pour la cr&#233;ation par du code VBA .

Sub CreerListe()
Range("A5").Select
   With Selection.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="jean, pierre, louis"
    .IgnoreBlank = True
    .InCellDropdown = True
    .ShowInput = True
    .ShowError = True
    End With
End Sub

Pour les Combobox plac&#233;s sur une feuille, il faut utiliser la m&#233;thode AddItem.

Private Sub ComboBox1_Change()
ActiveCell = ComboBox1.Value
ActiveCell.Select
End Sub


Private Sub ComboBox1_GotFocus()
Dim vCellule As Object
ComboBox1.Clear
For Each vCellule In Range("A1:A10")
If vCellule <> "" Then
ComboBox1.AddItem vCellule.Value
End If
Next
End Sub

Dans cet exemple, les valeurs contenues dans les cellules A1:A10 sont ajout&#233;es dans le combobox, ensuite, si tu s&#233;lectionnes une cellules dans le feuille et que sur cliques sur le Combo, la valeur sera introduite dans cette cellule.

jpleroisse

valtrase · Answer

Lut,
Si tu as tes donn&#233;es dans A1:A10 tu peux faire:
ListBox1.RowSource = "A1:A10"
Ou
ListBox1.RowSource = "Plage1" Si tu as nomm&#233; ta plage.

En ce qui concerne une listbox incorpor&#233;e dans une feuille c'est ListFillRange que tu dois utiliser.
Pour l'&#233;v&#232;nement Change y'a pas de prob
ci-dessous un click sur un item afficheras la valeur de l'item dans le Label
Private Sub ListBox1_Change()
Label1.Caption = ListBox1.Value
End Sub
Idem pour Enter et Exit

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

jpleroisse · Answer

OK Jean-Paul, mais un Combobox plac&#233; directement sur la feuille n'a pas la propri&#233;t&#233; RowSource, Sauf s'il est sur un UserForm.

jpleroisse

valtrase · Answer

Jp....Jp.....
Faut prendre le temps de lire tout le post !!

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

olivier857 · Answer

Ok merci bien pour vos r&#233;ponse.

Le ListFillRange est effectivement bien utile pour les zone de liste excell et les combobox de vb.

Les propro&#233;t&#233; change enter et exit fonctionne bien mais que pour les combobox vb, je ne sais pas si il est possible de faire pareil pour les zonz de list d'excel. Moi je n'y arrive pas.

merci

olivier

Zone de liste excell ?????????

5 réponses

Discussions similaires