XL 2016 Afficher des colonnes dans une ListBox

[ARNAUD ZIRIPE]

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.

 

[Modeste geedee]

Bonsour®

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.

combobox activeX

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

sans aucune ligne de code

 

[job75]

Bonsoir ARNAUD ZIRIPE, Modeste geedee,

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

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.

 

[job75]

Re,

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

Re bonne nuit.

 

[job75]

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+

 

[job75]

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 :

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.

 

[Si...]

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.

 

[ARNAUD ZIRIPE]

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

 

[Modeste geedee]

Bonsoir Job75

Une foire encore Merci à tous

Et moi je sent le gaz !!!