Listbox ne s'alimente qu'avec feuille Active

[cathodique]

Bonjour ,

J'ai voulu essayé le concept d'UserInterfaceOnly. Mais je suis confronté à une difficulté.

Dans l'userform, J'ai mis une Listbox qui est alimentée à partir de la feuille "Ref".

Lorsque je lance l'userform en étant sur la feuille Ref, la listbox est alimentée.

Mais en le lançant à partir de la feuille "Menu" via le bouton, elle est vide.

Je ne parviens à trouver mon erreur. Merci de m'aider.

Bon dimanche.

ps: il s'agit de l'userform Produit

 

[pierrejean]

Bonjour cathodique
Ajouter Ws dans la ligne Tb=

' .Unprotect 1234
dl = Ws.Range("A" & Rows.Count).End(xlUp).Row
Tb = Ws.Range("A2:G" & dl).Value
' .Protect 1234
End With

 

[cathodique]

Pierrejean , merci beaucoup.

J'avoue ne pas m'être rendu compte. D'autant plus que sur le ligne du dessus, je l'avais mis.

Encore merci.

Bon dimanche

 

[cathodique]

Re, une autre question stp.

Aurais-tu une idée pour ajouter l'entête de colonnes ou ajouter des libellés juste au dessus de la listbox.

merci par avance.

 

[pierrejean]

Re

Tb = Ws.Range("A1:G" & dl).Value

Avec propriété de listbox :ColumnHeads=true

 

[cathodique]

Merci Pierrejean, mais ça ne fonctionne pas.
J'ai bien l'affichage des entêtes mais les champs sont vides.
C'est pour ça que je voudrais rajouter des labels au-dessus
et que leur position s'ajuste aux colonnes de la listbox.

Merci ta proposition.

ps: j'ai bien trouvé sur le site de Boisgontier, mais je n'arrive pas à adapter à mon userform.

 

[pierrejean]

Re

Chez moi ça marche !!!!

 

[Staple1600]

Bonjour le fil, le forum, cathodique, pierrejean

Pour infos

La propriété ColumnHeads des contrôles ListBox et ComboBox ne fonctionne que si l'on utilise la propriété RowSource et donc est inopérante avec la méthode AddItem et la propriété List.

 

[Lone-wolf]

Bonjour à tous

@cathodique : une proposition. Tu rajoute une 2ème listbox hauteur 18 ou 20, et dans initialize tu met ListBox2.RowSource = xxxx

 

[cathodique]

Re

Chez moi ça marche !!!!

, désolé je ne m'étais pas rendu compte avec ColumnHeads=true (sur ton fichier elle est à False).

Mais un souci réside au moment d'alimenter les textboxs à partir de la listbox, plantage.

Merci beaucoup.

 

[cathodique]

Bonjour le fil, le forum, cathodique, pierrejean

Pour infos

Merci JM,

Oui, tu ne le fais rappeler, je l'avais déjà lu sur le forum.

Encore merci.

 

[cathodique]

Bonjour à tous

@cathodique : une proposition. Tu rajoute une 2ème listbox hauteur 18 ou 20, et dans initialize tu met ListBox2.RowSource = xxxx

Merci Lone-wolf,

En effet, c'est une piste à exploiter. Je vais essayer ton idée.

Encore merci

 

[Staple1600]

Re

Chez moi, j'ai bien les entêtes dans la ListBox avec le code* ci-dessous
(*code de test simple,non finalisé)

Private Sub UserForm_Initialize()
Dim WS As Worksheet, Source$
Set WS = Sheets("Ref")
Source = WS.[A1].Parent.Name & "!" & WS.Range("A2", WS.Cells(Rows.Count, "G").End(xlUp)).Address
With ListBox1
.Clear
.ColumnHeads = True: .ColumnCount = 7: .RowSource = Source
End With
End Sub

 

[Lone-wolf]

Re

@cathodique : pour que la listbox garde son hauteur , il faut la paramétrer dans usf_activate.

 

[Staple1600]

Re

@Lone-wolf
Tu as du zapper mon précédent message, non ?
Pas besoin d'utiliser 2 ListBox, une seule suffit
(voir le code VBA dans le précédent message)