XL 2016 Afficher des colonnes dans une ListBox

Modeste geedee

XLDnaute Barbatruc

• 21 Octobre 2017

• #2

Bonsour®

ARNAUD ZIRIPE à dit:

Bonsoir chers tous
Bonsoir le forum
je m'adresse à vous pour un petit souci.
En effet j'ai dans la feuil1 de mon classeur les colonnes A à w qui contiennent des infos
j'ai aussi une Listbox et je souhaiterais avoir dans la listbox uniquement les colonnes A, D et M et cela en passant par la fenêtre propiété de la listbox .
Merci pour votre aide.

Cliquez pour agrandir...

combobox activeX

BoundColumn est la colonne dont la valeur clé sera renvoyé dans LinkedCell

sans aucune ligne de code

 

Dernière édition: 21 Octobre 2017

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Octobre 2017

• #3

Bonsoir ARNAUD ZIRIPE, Modeste geedee,

Nombreux exemples sur le forum, un de plus avec la propriété List :

Code:

Sub USF()
Dim t, liste(), i&
t = [Tableau1].Resize(, 13)
ReDim liste(1 To UBound(t), 1 To 3)
For i = 1 To UBound(t)
  liste(i, 1) = t(i, 1)
  liste(i, 2) = t(i, 4)
  liste(i, 3) = t(i, 13)
Next
With UserForm1
  .ListBox1.List = liste
  .Show
End With
End Sub

Cette propriété n'est pas dans la fenêtre des propriétés mais c'est la meilleure méthode.

Fichier joint.

Edit : on peut utiliser la même méthode de remplissage si la ListBox est dans la feuille de calcul.

Bonne nuit.

 

Pièces jointes

• ListBox(1).xlsm

  29 KB · Affichages: 78

Dernière édition: 21 Octobre 2017

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Octobre 2017

• #4

Re,

Dans ce fichier (2) voyez les macros dans le code de la feuille et dans ThisWorkbook.

Re bonne nuit.

 

Pièces jointes

• ListBox(2).xlsm

  32.4 KB · Affichages: 62

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Octobre 2017

• #5

Bonjour à tous, salut Nicole,

Si l'on veut des en-têtes on peut utiliser les propriétés RowSource ou ListFillRange.

Le rendu n'est pas terrible, c'est mieux avec des Labels comme le montre Nicole.

Fichiers joints, il y a très peu de codes VBA.

A+

 

Pièces jointes

• ListBox avec en-têtes(1).xlsm

  29.8 KB · Affichages: 57
• ListBox avec en-têtes(2).xlsm

  32.5 KB · Affichages: 50

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Octobre 2017

• #6

Bonjour Nicole, le forum,

Oui il vaut mieux ne pas modifier la RowSource.

Mais s'il faut le faire il suffit de retirer le focus de la ListBox :

Code:

Private Sub ListBox1_Click()
   If ActiveControl.Name <> "ListBox1" Then Exit Sub
   CommandButton1.SetFocus 'ôte le focus de la ListBox
   MsgBox "coucou"
End Sub

Fichier joint.

Bonne journée.

 

Pièces jointes

• ListBoxAvecTitreColonnes(1).xls

  85.5 KB · Affichages: 50
• ListBoxAvecTitreColonnes(1 bis).xls

  85 KB · Affichages: 54

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 22 Octobre 2017

• #7

Bon_jour

On peut toujours fournir un exemple pour se retrouver embêté comme avec RowSource et ShowModal à False.

Voici un autre exemple sans RowSource , avec ShowModal à False , dans lequel la liste du formulaire ne se met pas à jour (avec le code donné).

J'en étais resté là (avec un Tableau).

Pour pallier aux inconvénients, dans tous les cas, il faudra des étapes supplémentaires*.

*comme le fait Job dans son dernier classeur.

 

Pièces jointes

• ListBoxMultiColonnesDisc3.xls

  57 KB · Affichages: 130
• Colonnes ListBox (ActiveX Usf).xlsm

  29.1 KB · Affichages: 53

Vote positif 0 Vote négatif

ARNAUD ZIRIPE

XLDnaute Occasionnel

• 22 Octobre 2017

• #8

Bonsoir Job75
Bonsoir BISON Nicole
Bonsoir Si...
Bonsoir le Forum
Je vous remercie de l'importance accordée à ma préoccupation.
Je suis plus que satisfais de vos propositions et vous remercie énormément.
Une foire encore Merci à tous

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 22 Octobre 2017

• #9

ARNAUD ZIRIPE à dit:

Bonsoir Job75

Une foire encore Merci à tous

Cliquez pour agrandir...

Et moi je sent le gaz !!!

 

Vote positif 0 Vote négatif