remplir liste déroulante avec du code

[VBA_première_fois]

bonjour , je suis nouveau sur ce forum et débutant en VBA

qui peut me dire pourquoi je n'arrive pas à afficher dans ma liste déroulante les données A2:A9 de ma feuille Utilisateur

NB: je ne souhaite pas utiliser la cellule RowSource
merci

 

[Compte Supprimé 979]

Re : remplir liste déroulante avec du code

Salut VBA première fois et bienvenue parmis nous 😉

Tu dis ne pas vouloir utiliser RowSource et pourtant tu as du code (mal placé)

Private Sub utilisateur_Change()
  Worksheets("Sheet1").utilisateur.RowSource = "utilisateurs!A2:A9"
End Sub

Alors que veux-tu exactement 😕

Sinon le bon code est à placer dans ThisWorkbook
et c'est ListFillRange

Private Sub Workbook_Open()
  Worksheets("Sheet1").utilisateur.ListFillRange = "utilisateurs!A2:A9"
End Sub

A+

 

[VBA_première_fois]

Re : remplir liste déroulante avec du code

bonjour BrunoM45 , et merci pour l'accueil chaleureux

ha oui j'ai oublier un mot dans phrase

effectivement je ne souhaite pas utiliser RowSource ( qui se trouve dans propirité ) mais je veux utiliser du code .

je sais que dans

Private Sub utilisateur_Change()
  Worksheets("Sheet1").utilisateur.RowSource = "utilisateurs!A2:A9"
End Sub

quelque chose cloche , mais je n'arrive pas à voir l'erreur , c'est bête je sais , mais mon but c'est d'apprendre 😉

 

[pierrejean]

Re : remplir liste déroulante avec du code

bonjour VBA_première_fois

et bienvenue sur XLD

une possibilité parmi d'autres

Edit Salut Bruno

 

[Compte Supprimé 979]

Re : remplir liste déroulante avec du code

Re,

Réponse dans mon fil précédent que j'ai modifié

La propriété "RowSource" n'existe pas pour ce type d'objet 😉

Pour le savoir, tu crées du code dans Feuil1
En commençant par : Me.
Nota :Me = Moi = objet conteneur, en l'occurence "Feuil1"
Puis : Utilisateur.
Etc ....

A chaque fois tu as les propriétés du conteneur qui s'affiche et tu sais donc lesquels utiliser 😉

A+

 

[VBA_première_fois]

Re : remplir liste déroulante avec du code

pierrejean ton code marche bien , il est un peu speed
un peu compliqué pour mon pauvre cerveau

For n = 2 To Sheets("utilisateurs").Range("A65536").End(xlUp).Row
  utilisateur.AddItem Sheets("utilisateurs").Range("A" & n)

mais je veux savoir ce que represente End(xlUp).


BrunoM45 merci pour l'information , mais Me represente -t-il tjrs la Feuil1 😕

Merci

 

[VBA_première_fois]

Re : remplir liste déroulante avec du code

BrunoM45
haaaaaaa j'ai compris ,
me= l'objet conteneur j'ai zappé cette partie , merci bien reçu 😱

 

[Compte Supprimé 979]

Re : remplir liste déroulante avec du code

Re,

mais Me represente -t-il tjrs la Feuil1

Très très bonne question, mais comme je l'ai mis dans mon Nota
"Me" représente le conteneur ...du code
Donc si tu mets du code dans un USF (UserForm) pour les intimes 😉😀
"Me" représente ton USF
Du code dans feuil15
"Me" représente ta feuille 15

Etc ...

Mais "Me" n'est pas utilisable partout, attention !
Et mieux vaux utiliser le vrai nom
Sheets("Feuil1"). / Userform1.

A+

Edit : oups trop tard ... 🙂 Bien joué

 

[pierrejean]

Re : remplir liste déroulante avec du code

Re
Sheets("utilisateurs").Range("A65536").End(xlUp).Row
=numero de la Derniere ligne (row) non vide (end(xlup) de la colonne A de la feuille "utilisateurs"

 

[VBA_première_fois]

Re : remplir liste déroulante avec du code

ok merci

A+ pour une nouvelle question

 

[Habitude]

Re : remplir liste déroulante avec du code

Pour ajouter

Dans le cas où tu appel un userform dans ta feuil1

me = ton userform

me.Parent = ta feuil1

Parent étant un objet qui appel l'objet "me"

 

[Habitude]

Re : remplir liste déroulante avec du code

Dans une feuille

appeler me.parent reviens a appeler thisworkbook.
A la différence que si une feuille est appelé dans un autre classeur.
le Parent change...