VBA Excel : Alimenter ComboBox [Résolu]

Réponse 2 / 9

Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention 183

Salut,
Dans la propriété RowSource de la combobox, tu ne peux pas mettre ta zone d'adresses via une zone nommée ?

Réponse 3 / 9

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Bonjour
Essaye :

Me.ListeDestinataire.RowSource = "Feuil1!A2:A10"

Réponse 4 / 9

sifusalade Messages postés 134 Date d'inscription Statut Membre Dernière intervention 7

J'ai déjà essayé... ça marche pas

Me.ListeDestinataire.RowSource = "Adresses!A3:A10"

J'ai même essayé de remplacer

Me

par

Userform1

UserForm1 étant le nom mon UserForm

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 9

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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

Réponse 6 / 9

sifusalade Messages postés 134 Date d'inscription Statut Membre Dernière intervention 7

Je viens d'essayer, ça ne marche toujours pas. Dommage je n'avez pas encore essayé ça, j'avais espoir lol

Je vais envoyé le fichier, comment je fais ?

Réponse 7 / 9

Morgothal Messages postés 1236 Date d'inscription Statut Membre Dernière intervention 183

Comme ceci ;)

Réponse 8 / 9

sifusalade Messages postés 134 Date d'inscription Statut Membre Dernière intervention 7

Merci.

Voici le fichier

https://forums.commentcamarche.net/forum/affich-25777033-vba-excel-alimenter-combobox#p25777280

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

Voici le fichier

Ben non, râté!
mé iléoulefichié

sifusalade Messages postés 134 Date d'inscription Statut Membre Dernière intervention 7

pourtant j'ai j'ai cliqué sur le bouton copier le lien lol

Je retente :
http://cjoint.com/12au/BHhjJbPXJ9Y.htm

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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

sifusalade Messages postés 134 Date d'inscription Statut Membre Dernière intervention 7

ç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

Merci beaucoup

Réponse 9 / 9

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Re,

- 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.

sifusalade Messages postés 134 Date d'inscription Statut Membre Dernière intervention 7

????

Pourtant, j'ai bien UserForm1 pour l'userform et ListeDestinataire pour le ComboBox....

Le code de pijaku fonctionne d'ailleurs

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 761

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

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

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)

eric

sifusalade Messages postés 134 Date d'inscription Statut Membre Dernière intervention 7

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é

eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention 7 275

Cela ne marche pas avec Activate .
Si, j'ai testé mon code, confirmé par pijaku (salut au passage :-) )

eric

VBA Excel : Alimenter ComboBox

9 réponses

Votre réponse

Discussions similaires