Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème avec mon LISTBOX

  • Initiateur de la discussion Initiateur de la discussion NICOALBERT
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

NICOALBERT

XLDnaute Occasionnel
Bonjour le Forum,

Je viens vers vous car j'ai un soucis avec mon LISTBOX dans l'UserForm "USF_Search".

Ce que je cherche à faire c'est que dans le listbox je retrouve le résultat de la feuille RECHERCHE tout en pouvant cacher certaine colonne comme je l'ai fait , mon seul problème c'est que je ne sait pas comment faire pour afficher les 59 colonnes (puisque la je n'arrive à afficher que 18 colonnes) et avoir une barre de titre dans mon LISTBOX , peut etre que j'utilise le mauvais contrôle.

Cordialement.
 

Pièces jointes

Re : Problème avec mon LISTBOX

Salut,

Moi j'arrive bien à afficher les 59 colonnes, dans RowSource tu dois mettre : RECHERCHE!A4:BG100
Que l'on peut d'ailleurs à définir via VBA
Code:
Private Sub CommandButton1_Click()
  Dim DLig As Long
  '
  ' MISEENPLACERECHERCHECHEVAUX Macro
  ' Macro enregistrée le 02/08/2011 par nicolas
  '
  ' Ouvrir la base avant
  OuvrirBase
  ' Ensuite
  Sheets("RECHERCHE").Select
  Range("BH1").Copy Destination:=Range("K1")
  Range("BH2").Copy Destination:=Range("K1")
  Range("BH3").Copy Destination:=Range("K1")
  Range("BH4").Copy Destination:=Range("K1")
  Range("BH5").Copy Destination:=Range("K1")
  Range("BH6").Copy Destination:=Range("K1")
  Range("BH7").Copy Destination:=Range("K1")
  Range("BH8").Copy Destination:=Range("K1")
  Range("BH9").Copy Destination:=Range("K1")
  Range("BH10").Copy Destination:=Range("K1")
  Range("BH11").Copy Destination:=Range("K1")
  Range("BH12").Copy Destination:=Range("K1")
  Range("BH13").Copy Destination:=Range("K1")
  Range("BH14").Copy Destination:=Range("K1")
  Range("BH15").Copy Destination:=Range("K1")
  Range("BH16").Copy Destination:=Range("K1")
  Range("BH17").Copy Destination:=Range("K1")
  Range("BH18").Copy Destination:=Range("K1")
  Range("BH19").Copy Destination:=Range("K1")
  Range("BH20").Copy Destination:=Range("K1")
  Range("BH21").Copy Destination:=Range("K1")
  Range("BH22").Copy Destination:=Range("K1")
  ' Afficher les données dans la list box
  Me.ListBox1.RowSource = "" : Me.ListBox1.Clear
  DLig = Range("A" & Rows.Count).End(xlUp).Row
  Me.ListBox1.RowSource = "RECHERCHE!A5:BG" & DLig
  ' Fermer la base après
  FermerBase
End Sub

A+
 
Dernière modification par un modérateur:
Re : Problème avec mon LISTBOX

Re,

ColumnHeads = True spécifie que la première cellule précédent la plage source est utilisée comme titre dans la ListBox.
Il faut donc définir la plage à partir de la ligne 5 et non 4

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
299
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…