Discussion :

[AntoineCompagnie]

J'essaye de peupler une ListBox à partir des fonctions de personnels déjà présente dans une colonne d'une feuille Excel.
Cependant je e trouve aucun moyen de le faire.

J'ai essayé de l'Initialize mais cela n'apparait pas dans le bandeau déroulant du code VBA à partir de mon UserForm AddReservist.



J'ai essayé de le faire directement dans le code, comme vous pouvez le voir sur la photo, mais ça ne change rien.
Aucune interaction n'est alors possible avec la ListBox.

J'ai finalement réussi à le modifier dans les propriétés mais le problème est qu'il ne me semble pas que j'ai les fonctions uniques mais plutôt autant de fonctions qu'il y a de personnels. J'aurais préféré une liste déroulante.

[patricktoulon]

bonjour
quand tu utilise rowsource tu ne peut pas faire des .add après par la suite

a la place de rowsource="...." tu met .list=range("xxxxx").value et la tu pourra faire des ajouts par la suite

[Bemirdor]

Bonjour, sur ta première photo, sur la sélection de gauche, sélectionne "UserForm" et sur celui de droite (sur celui où tu disais que tu ne trouvais pas Initialize), sélectionne justement Initialize qui apparaît.

Après ça tu peux remplir ta ComboBox1.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  ComboBox1.AddItem Range(RangeContenantTesItems)

Je ne suis pas un professionnel de VBA et j'ai peut-être mal compris ta question donc ce n'est pas forcément bon. J'essaye juste d'apporter une solution Bonne journée

[AntoineCompagnie]

@Patricktoulon
Merci beaucoup ! Néanmoins la feuille à laquelle je fais référence n'est pas dans la feuille active mais dans une autre feuille.
Comment puis-je faire référence à cette deuxième ?

Ensuite comment puis-je faire référence à des valeurs uniques ?

@Bermirdor
Merci aussi ! Cependant ma "UserForm" est bien AddReservist et je n'ai donc pas accès à Initialize.

[patricktoulon]

re
exemples divers

1°la feuille active est la feuille 1 et ta liste est en feuille2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.list=sheets("Feuil2").range("A1:B10")

2° si tu es sur la feuille active

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.list=activesheet.range("A1:B10")

3°si ta liste est dans la feuille 3 d'un autre classeur ouvert dans la même instance d'Excel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.list=workbooks("nom de l'autre classeur avec son extention).sheets("Feuil3").range("A1:B10")

et quoi que pour une lisibilité de code il vaut mieux variabiliser pour ce 3° exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
dim tablo,Wbk as workbooks
Set wbk=workbooks("nom de l'autre classeur avec son extention")'exemple ""monclasseur.xlsm""
tablo=wbk.sheets("Feuil3").range("A1:B10").value
combobox1.list=tablo

[AntoineCompagnie]

Merci pour ces réponses. Néanmoins en cliquant sur mon bouton qui fait apparaître ma UserForm AddReservistUserForm avec ma ComboBox ComboBoxFunction (j'ai changé la List pour une ComboBox pour avoir le côté "déroulant") et malgré avoir inséré le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
With ComboBoxFunction
    .List = Sheets("RECAP").Range("B2:B127").Value
End With

Je n'arrive toujours pas a obtenir la liste et j'ai une erreur d'exécution 424 : Objet requis.

[AntoineCompagnie]

J'ai réussi. L'initaisation est apparu dans le bouton déroulant en cliquant sur code sur mon UserForm. J'ai pris la première de vos méthodes et ça a fonctionné.
Néanmoins j'ai plein de duplications. J'aimerais ne prendre en compte que les instances uniques.

Pour cela j'ai essayé de faire autrement avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With ComboBoxSex_Reservist
     .AddItem = "M"
     .AddItem = "F"
End With

Mais du coup j'ai eu une erreur de compilation "Fonction ou variable attendue"