COMBOBOX - liste valeurs via Rowsource [RESOLU]

  • Initiateur de la discussion Initiateur de la discussion dieu08
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dieu08

XLDnaute Occasionnel
Bonjour les forumiteux,

En travaillant sur le post d'un utilisateur de forum, j'ai tenté d'alimenter la valeur de combobox via ".rowsource" et non par le biais de ".AddItem".

Ne parvenant pas à m'en sortir j'ai fini par une boucle utilisant ".AddItem" :

VB:
For i = 1 To 17 Step 4
        For j = 12 To 44 Step 16
                With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
                DisplayAsIcon:=False, Left:=Cells(j, i).Left, Top:=Cells(j, i).Top, Width:=Range("A" & j & ":D" & j).Width, Height:= _
                Range("A" & j & ":D" & j).Height)
                .Name = "Comb" & l
                    For m = 2 To 16
                        With .Object
                            .AddItem Cells(m, 21).Value
                        End With
                    Next m
                 End With
        l = l + 1
        Next j
Next i

Ce dernier est tout à fait fonctionnel.

Néanmoins, je désirerai savoir comment alimenter la valeur des combobox par "rowsource" en utilisant une plage de données déterminée au préalable.

Merci d'avance de vos retours.
 
Bonjour Nicole,

J'ai consulté votre fichier qui donne un très bonne aperçu de la gestion des Combobox. Je vous remercie.

Je vais le conserver comme fichier de référence 😉

Concernant ma situation, j'ai abouti à ce morceau de script :

VB:
For i = 1 To 17 Step 4
        For j = 12 To 44 Step 16
                With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
                DisplayAsIcon:=False, Left:=Cells(j, i).Left, Top:=Cells(j, i).Top, Width:=Range("A" & j & ":D" & j).Width, Height:= _
                Range("A" & j & ":D" & j).Height)
                .Name = "Comb" & l
                    With .Object
                    .List = Range("U2:U16").Value
                    End With
                End With
        l = l + 1
        Next j
Next i

Il semblerait que la manière dont j'inclue les Combobox ne me permettent pas d'utiliser le ".Me" qui, je pense, est exclusivement réservé aux "private sub". Qu'en pensez-vous ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
586
Réponses
0
Affichages
377
Retour