Bonjour le forum.
Tout d'abord meilleurs vœux toutes et tous.
Que chaque jours de cette nouvelle année vous apport ainsi qu'a ceux et celles qui vous sont chers, la santé et le reste il faudra faire le nécessaire pour que cela soit ao top.
Bon je me remet un peu a la création sous excel, une petit appli que m'évitera un peu de manipulation.
La je tente de récupérer des données dans deux combobox et je ne vois vraiment pas ou je fais une bourde.
Dans un premier temps je vous met le code, pour voir si celui ci est cohérant et je vous joindrez la feuille ou sont stockées les données pour celui-ci.
Donc pour les données
Clients cela se passe dans le feuille "Donnes" a partir de B5 pas de limitte
Type de prestation se sera a partir de D5 et jusqu'à D6
Je vous remercie par avance.
Cordialement, G'Claire
Tout d'abord meilleurs vœux toutes et tous.
Que chaque jours de cette nouvelle année vous apport ainsi qu'a ceux et celles qui vous sont chers, la santé et le reste il faudra faire le nécessaire pour que cela soit ao top.
Bon je me remet un peu a la création sous excel, une petit appli que m'évitera un peu de manipulation.
La je tente de récupérer des données dans deux combobox et je ne vois vraiment pas ou je fais une bourde.
Dans un premier temps je vous met le code, pour voir si celui ci est cohérant et je vous joindrez la feuille ou sont stockées les données pour celui-ci.
Donc pour les données
Clients cela se passe dans le feuille "Donnes" a partir de B5 pas de limitte
Type de prestation se sera a partir de D5 et jusqu'à D6
Code:
Private Sub UserForm_initualise()
Sheets("Donnees").Activate
Dim i As Integer 'Client
Dim j As Integer 'Type de prestation
Me.CBX_Client.Clear
Me.CBX_TypeDePrestation.Clear
With Sheets("Donnees")
For i = 5 To Range("B65536").End(xlUp).Row 'selection a partir de la ligne 5
For j = 5 To Range("D6").End(xlUp).Row 'selection a partir de la ligne 5
CBX_Client = Range("B" & i)
CBX_TypeDePrestation = Range("D" & j)
If CBX_Client.ListIndex = -1 And Range("B" & i) <> "" Then _
CBX_Client.AddItem Range("B" & i)
If CBX_TypeDePrestation.ListIndex = -1 And Range("D" & j) <> "" Then _
CBX_TypeDePrestation.AddItem Range("D" & j)
Next j
Next i
End With
End SubJe vous remercie par avance.
Cordialement, G'Claire
