PERSONNE N'A SU REPONDRE

Question

Je vous explique. 
ATTENTION: TOUT CECI SE PASSE SUR UNE FEUILLE EXCEL (vbexcel)

Alors. J'ai plusieurs combobox (environ 50), qui doivent contenir les mêmes données. Pour cela je dois parcourir l'intégralité de ces combobox pour ajouter les mêmes données.

Voici mon code qui ne marche pas:


Private Sub CmdRemplir_Click()

Dim tableauCombo()
Dim cpt As Integer

For cpt = 1 To 50
ReDim Preserve tableauCombo(cpt)
tableauCombo(cpt) = "CbA" & cpt
Next cpt

For cpt = 1 To 50
    Feuil1.Shapes(tableauCombo(cpt)).AddItem "toto"
Next cpt

End Sub


Merci, s'il vous le pouvez réfléchir sur ce sujet et si vous trouver expliqure moi très clairement
Merci

Y.C

mourad183 · Answer

essaie:

for cpt=0 to 49
ReDim Preserve tableauCombo(cpt)
tableauCombo(cpt) = "CbA" & cpt
Next cpt

For cpt = 0 To 49
Feuil1.Shapes(tableauCombo(cpt)).AddItem "toto"
Next cpt

yoarf · Answer

Bah c exactement la même chose !
Tu te fous de moi ? Ca marche pas !
Y.C

cs_PhilippeE · Answer

J'ai regardé le problème de plus près (cf post antérieur) et fait quelques tests.
A priori les ComboBox présentes sur les Feuille Excel n'ont pas la méthode AddItem. Les sources de données sont définies dans des Range

ex :

    With ActiveSheet.Shapes("Drop Down 1")
        .ListFillRange = "$A$1:$A$3"
    End With

yoarf · Answer

Hello !

Je ne vois pas ce que tu ve m'expliquer.
LE code que tu a écris , je ne le comprends pas et il n'est pas reconnu ("Drop down 1") par exemple.

Alors tu fais comment pour parcourir les combobox ???
Y.C

cs_PhilippeE · Answer

Bon alors Drop Down 1 à Drop Down n c'est le nom des combo box que j'insère sur ma feuille Excel chez moi.

Je parle des Combo incluses dans Excel, pas celles de la librairie Forms 2.0.

Essayes déjà d'arriver à écrire dans une des combo box ...
En adaptant mon exemple, ça donne quelque chose dans le genre :
ActiveSheet.Shapes("CbA" & cstr("2")).ListFillRange = "$A$1:$Z$26"

J'ai volontairement séparé le CbA du 2 pour vérifier que ça s'intègre dans une boucle.

PS : As-tu essayé de manipuler tes combobox après avoir fait Outils -> Macro -> Nouvelle Macro pour regarder la façon qu'Excel utilise pour y accéder ?

cs_santiago69 · Answer

Pour creer un menu deroulant dans une cellule :

range("A1").validation.add xlvalidatelist, xlValidAlertStop, , "je,tu,il,elle,nous,vous,ils,elles"

il y a 10 types de personnes : ceux qui comprennent le binaire et ceux qui ne le comprennent pas.

PERSONNE N'A SU REPONDRE

6 réponses

Discussions similaires