Listbox ne s'alimente qu'avec feuille Active

pierrejean

XLDnaute Barbatruc

• 27 Mai 2018

• #2

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

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 27 Mai 2018

• #3

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

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 27 Mai 2018

• #4

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mai 2018

• #5

Re

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

Avec propriété de listbox :ColumnHeads=true

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 27 Mai 2018

• #6

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.

😉

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 27 Mai 2018

• #7

Re

Chez moi ça marche !!!!

 

Pièces jointes

• Suivi prix articles - Copie.xlsm

  42.4 KB · Affichages: 18

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mai 2018

• #8

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.

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Mai 2018

• #9

Bonjour à tous 🙂

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

 

Dernière édition: 27 Mai 2018

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 27 Mai 2018

• #10

pierrejean à dit:

Re

Chez moi ça marche !!!!

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 27 Mai 2018

• #11

Staple1600 à dit:

Bonjour le fil, le forum, cathodique, pierrejean

Pour infos

Cliquez pour agrandir...

Merci JM😉,

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

Encore merci.🙂

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 27 Mai 2018

• #12

Lone-wolf à dit:

Bonjour à tous 🙂

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

Cliquez pour agrandir...

Merci Lone-wolf😉,

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

Encore merci🙂🙂🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mai 2018

• #13

Re

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

VB:

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 27 Mai 2018

• #14

Re

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mai 2018

• #15

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)

 

Vote positif 0 Vote négatif