Discussion :

[hassanNait]

Bonjour tout le monde,

J'ai besoin de votre aide pour mon projet de fin de formation, qui consiste à réaliser une application pour gérer les ressources humaines.
mon problème doit être très simple mais je galère avec depuis une semaine, je suis novice.
mon problème: je veux remplir une combobox qui est sur une feuille par des données d'une colonne dynamique d'une autre feuille du même claseur.

Merci forum

[BENNASR]

Bonjour hassan, la forum
si tu parle d'un combobox sur un usf et non pas un activeX tu peux faire comme ça :

Code :

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

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 2 To Sheets("feuil1").Range("A65536").End(xlUp).Row ' à adapter
  ComboBox1 = Sheets("feuil1").Range("A" & i)
  If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("feuil1").Range("A" & i) ' pour ne pas avoir des doublons dans la liste
Next i
 
End Sub

[hassanNait]

Bonjour BENNASR et merci pour votre réaction, en fait il s'agit d'un combobox que j'ai inserer sur ma feuille et non pas sur un userform, j'ai trouver des tas de codes sur ce forum et sur d'autres forum que j'ai essayer d'adapter à mon application, mais ça n'a pas marcher.

Voila un exemple de ce que je souhaite réaliser

[unparia]

Bonjour
Je n'ouvre jamais un classeur tiers.

Intéresse-toi à la propriété ListFillRange d'une combobox placée sur une feuille de calcul et utilise-la.

[BENNASR]

comme dit unparia
definir la propriete ListFillRange de la combobox avec des cellules d'un onglet exemple: feuil1!A1:A10 et ensuite vous ecrivez dans les dites cellules.

[hassanNait]

Merci beaucoup unparia et Bennasr pour votre aide, mais je n'est pas préciser que ma combobox doit me servir pour rechercher les données de la colonne qui, comme j'ai dis est mise à jour régulièrement.

[patricktoulon]

sinon en vba dans le module de ta feuil1 tu met ceci

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Activate()
    With ComboBox1
        .ColumnCount = 2
        .List = Sheets("Feuil2").[B3].CurrentRegion.Value
    End With
End Sub

et si tu veux qu'elle soit a jour a chaque fois que tu clique dessus pour la derouler met le code dans l'evenement du bouton de la combo

Code :

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

1
2
3
4
5
6
Private Sub ComboBox1_DropButtonClick()
With ComboBox1
        .ColumnCount = 2
        .List = Sheets("Feuil2").[B3].CurrentRegion.Value
    End With
End Sub