XL 2010 Listbox source fixe

bbb38

XLDnaute Accro

• 20 Décembre 2018

• #2

Bonjour harry2226h, le forum,
Je ne suis pas certain d’avoir compris ta demande.
Cordialement,
Bernard

 

Pièces jointes

• harry226h_listbox.xlsm

  32.9 KB · Affichages: 18

Vote positif 0 Vote négatif

harry226h

XLDnaute Junior

• 20 Décembre 2018

• #3

Bonjour @bbb38 , en effet je me suis pas exprimer clairement.
Par exemple dans le fichirr d'origine lorsque je me place sur la feuille 1, tout marche a merveille, mais lorsque je vais sur la feuille 4, la listbox n'affiche plus que le contenu de la feuille 4 donc vide.
J'aimerai que quelque soit la feuille sur laquelle je suis, j'ai le meme resultat que sur la feuille 1.

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 20 Décembre 2018

• #4

harry226h à dit:

Bonjour @bbb38 , en effet je me suis pas exprimer clairement.
Par exemple dans le fichirr d'origine lorsque je me place sur la feuille 1, tout marche a merveille, mais lorsque je vais sur la feuille 4, la listbox n'affiche plus que le contenu de la feuille 4 donc vide.
J'aimerai que quelque soit la feuille sur laquelle je suis, j'ai le meme resultat que sur la feuille 1.

Cliquez pour agrandir...

nommer la source ...

 

Vote positif 0 Vote négatif

harry226h

XLDnaute Junior

• 20 Décembre 2018

• #5

Bonjour
J'ai nommer la source mais c'est toujours pareil. Quand je change de feuille ca n'affiche pas les bonne données de la feuille 1

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 20 Décembre 2018

• #6

Bonjour le fil, bonjour le forum,

Peut-être comme ça, remplace tout ton code par celui-ci :

VB:

Private Sub UserForm_Initialize()
Dim i As Integer

For i = 1 To Sheets.Count
  Me.ComboBox1.AddItem Sheets(i).Name
Next i
Me.ComboBox1.ListIndex = 0
End Sub

Private Sub ComboBox1_Change()
Dim O As Worksheet
Dim DerLgn As Integer
Dim plage As Range
Dim large As String
Dim i As Long

Set O = Sheets(Me.ComboBox1.Text)
DerLgn = O.Cells(O.Rows.Count, 11).End(xlUp).Row
Set plage = O.Range("K1").CurrentRegion
For i = 1 To plage.Columns.Count
  large = large & ";" & Round(plage.Columns(i).Width)
Next i
large = Mid(large, 2, 200)
With Me.ListBox2
  .RowSource = O.Name & "!" & plage.Address
  .ColumnHeads = True
  .ColumnWidths = large
  .ColumnCount = plage.Columns.Count
End With
End Sub

 

Vote positif 0 Vote négatif

harry226h

XLDnaute Junior

• 20 Décembre 2018

• #7

Bonjour @Robert , merci ça marche.
Serait il possible de garder les entête des colonne? C'est à dire avoir "Département", "No" et "Chef-lieu" en entête au lieu des lettre de colonne?

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 20 Décembre 2018

• #8

Bonjour le fil, bonjour le forum,

Perso, je n'utilise jamais les en-têtes. Je leur préfère une ListBox supplémentaire. Voir la pièce jointe...
J'ai gardé tes RowSource ma c'est aussi une chose que le n'utilise jamais.

 

Pièces jointes

• Harry_v01.xlsm

  30.2 KB · Affichages: 23

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 20 Décembre 2018

• #9

harry226h à dit:

Bonjour
J'ai nommer la source mais c'est toujours pareil. Quand je change de feuille ca n'affiche pas les bonne données de la feuille 1

Cliquez pour agrandir...

gestion dynamique de la source nommée (masource)

affectation des propriétés listbox2

il n'y a plus lieu de définir ces propriétés dans le code ...

 

Pièces jointes

• listbox .xlsm

  35.1 KB · Affichages: 22

Vote positif 0 Vote négatif

harry226h

XLDnaute Junior

• 20 Décembre 2018

• #10

Finalement c'est réglé.
Merci à tous

 

Vote positif 0 Vote négatif