J'ai créé un UserForm avec un ComboBox. Ce que je veux, c'est alimenter ce ComboBox avec une liste d'adresses qui sont contenue dans une feuille nommé "Adresses".
Je n'arrive absolument pas à l'alimenter, quoi que je fasse, cette liste reste vide.
Private Sub UserForm1_Activate()
Sheets("Adresses").Select
Me.ListeDestinataire.RowSource = "a3:" & Range("a3").End(xlDown).Address
(j'ai essayé .Range aussi)
End Sub
J'ai même essayé de créer une variable
Dim SourceDestinataire as Range
Me.ListeDestinataire.RowSource = SourceDestinataire
Mais rien à faire, dès que je fais dérouler ce ComboBox, il reste vide
Ce qui est étrange, c'est que lorsque je tape
Me.ListeDestinataire.
je n'ai pas RowSource dans la liste de propositions possibles.... Cependant je n'ai aucune erreur....
Je précise que ListeDestinataire est le nom que j'ai donné au ComboBox.
Continuons à l'aveuglette, mais une copie sans données confidentielles de ton classeur nous aiderait grandement.
A essayer :
Private Sub UserForm1_Activate()
Dim Lig As Integer, drLig As Integer
With Sheets("Adresses")
drLig = . Range("a3").End(xlDown).Row
For Lig = 3 To drLig
Me.ListeDestinataire.AddItem .Range("A" & Lig)
Next Lig
End With
End Sub
Il faut placer cette procédure, non pas dans l'événement Activate de ton Userform, mais dans l'événement Initialize :
Private Sub UserForm_Initialize()
Dim Lig As Integer, drLig As Integer
With Sheets("Adresses")
drLig = .Range("a3").End(xlDown).Row
For Lig = 3 To drLig
Me.ListeDestinataire.AddItem .Range("A" & Lig)
Next Lig
End With
End Sub
ça marche !!!!!!!!!!
Merci beaucoup pijaku !!!! T'as de la chance de pas être à côté de moi je t'embrasserai lol
Me manque plus qu'à régler mon problème de format de date (je veux qu'en tapant 12/2 par exemple, il m'insère 12 fev 2012, pour l'instant il me met 2 dec 2012)... mais je vais me débrouiller
- ton userform ne s'appelle pas userform1 mais userform (rajoute le sub en passant par la liste déroulante en haut et tu verras).
- ton combobox ne s'appelle pas ListeDestinataire mais combobox1
Et j'insiste, utilise plutôt .list que rowsource.
Private Sub UserForm_Activate()
Sheets("Adresses").Select
ComboBox1.List = Range("A3:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
End Sub
eric
Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
Salut Eriiic,
ton userform ne s'appelle pas userform1 mais userform Pas tout à fait d'accord avec toi. La propriété Name de son Userform indique bien UserForm1. Par conséquent, il s'appelle bien UserForm1. Par contre, tu as raison de souligner qu'il convient d'utiliser, dans le menu "général", le terme UserForm pour l'appliquer comme suit :
Private Sub Userform_Activate()
Yapa de Userform1.
Ensuite, sa Combobox s'appele bien ListeDestinataire. La Combobox1 est là à titre d'essai je penses...
Mais sur le code, tu as amplement raison, je n'ai pas poussé assez loin (toi si.) et ton code fonctionne impec :
Private Sub UserForm_Activate()
Sheets("Adresses").Select
ListeDestinataire.List = Range("A3:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
End Sub
Oui, d'ailleurs il utilises UserForm_Initialize et non UserForm1_Initialize...
Et ça doit marcher également avec .activate
(j'ai vu l'autre combobox ListeDestinataire)
Le problème est résolue. Mais si cela peux en aider certains. Cela ne marche pas avec Activate mais avec Initialize oui. (Enfin du moins pour moi en tout cas).
Toutes mes excuses eriiic, le ComboBox1 n'étais là que pour faire un test, mais j'ai oublié de l'enlever. Désolé
