Problème avec mon LISTBOX

[NICOALBERT]

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.

 

[Compte Supprimé 979]

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

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+

 

[NICOALBERT]

Re : Problème avec mon LISTBOX

Re,

y a t'il possibilité que la première ligne soit en en tête? ainsi reste toujours apparente

@+

 

[Compte Supprimé 979]

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+

 

[NICOALBERT]

Re : Problème avec mon LISTBOX

Re,

J'avais bien vu pour ColumnHeads mais je ne savais pour la plage . Un grand merci pour ton aide.

@+