listbox

[GHISLAIN]

bonjour a tous

j'utilise ce code pour alimenter une listbox

Dim l As Integer
Dim Plage As String

l = Sheets("liste2").Range("B65536").End(xlUp).Row
Plage = Sheets("liste2").Range("B3:b" & l).Address
ListBox1.RowSource = "liste2!" & Plage


je souhaiterai savoir si il y a une possibilité d'alimenter ma listebox , avec toute les colonnes b3:B de toute les feuilles presentent du classeur en excluant certaines feuilles tel que "modele", "liste" , "liste2", "modele2".

merci a tous de votre aide

amicalement

ghislain

 

[Softmama]

Re : listbox

Bonjour,

Vois si ce code peut t'aider :

Private Sub UserForm_Initialize()
Dim c As Range, TablExclus, sh, Exclu As Boolean, t As Integer
TablExclus = Array("modele", "liste", "liste2", "modele2")  'noter toutes les feuilles à exclure
For Each sh In ThisWorkbook.Sheets
    Exclu = False
    For t = LBound(TablExclus) To UBound(TablExclus)
      If sh.Name = TablExclus(t) Then Exclu = True
    Next t
    If Not Exclu Then
      With sh
        For Each c In .Range("B3:B" & .Range("B65536").End(xlUp).Row)
          ListBox1.AddItem c
        Next
      End With
    End If
Next sh
End Sub

 

[GHISLAIN]

Re : listbox

bonjour Softmama,

merci d etre passé sur mon fil , le code fonctionne a merveille , merci d avoir solutionné mon projet

amicalement

ghislain

 

[GHISLAIN]

Re : listbox

RE,

je viens de m apercevoir que si la feuille n'a pas de valeur a partir de la b3, la listbox recupere le titre de la colone soit la valeur de b2 est il possible de supprimer cette recuperation de valeur ??

merci de ton aide
amicalment

ghislain

 

[Softmama]

Re : listbox

Re,

à tester, modifie la macro ainsi :

Private Sub UserForm_Initialize()
Dim c As Range, TablExclus, sh, Exclu As Boolean, t As Integer
TablExclus = Array("modele", "liste", "liste2", "modele2")  'noter toutes les feuilles à exclure
For Each sh In ThisWorkbook.Sheets
    Exclu = False
    For t = LBound(TablExclus) To UBound(TablExclus)
      If sh.Name = TablExclus(t) Then Exclu = True
    Next t
    If Not Exclu Then
      With sh
        If .Range("B3") <> "" then
          For Each c In .Range("B3:B" & .Range("B65536").End(xlUp).Row)
            ListBox1.AddItem c
          Next
        End if
      End With
    End If
Next sh
End Sub

 

[GHISLAIN]

Re : listbox

re ,

merci bien ca fonctionne impec

bonne soiree

amicalement

ghislain

 

[GHISLAIN]

Re : listbox

re , en esperant ne pas abuser de ton temps ,

sur un autre user je souhaite utiliser le meme code que tu m'a proposé et qui fonctionne a merveille, et je souhaiterais y amener une variante sans biensure y parvenir .

je souhaiterai lorque je renseigne un textbox avec la premiere lettre exempe R seule les valeurs commençaant par R s'affiche dans cette listbox

j ai supposé que modifier cette ligne If .Range("c3") <> "" Then


par If .Range("c3") = UCase(Left(c.Value, Len(TextBox1.Value))) Then

suffirai mais ça ne fonctionne pas !

en esperant de ne pas abuser

je te remercie d 'avance

amicalement

ghislain

 

[Softmama]

Re : listbox

Bonjour,

en repartant de mon code qui pointait sur B3 et non C3, cela devrait donner :

Private Sub UserForm_Initialize()
Dim c As Range, TablExclus, sh, Exclu As Boolean, t As Integer
TablExclus = Array("modele", "liste", "liste2", "modele2")  'noter toutes les feuilles à exclure
For Each sh In ThisWorkbook.Sheets
    Exclu = False
    For t = LBound(TablExclus) To UBound(TablExclus)
      If sh.Name = TablExclus(t) Then Exclu = True
    Next t
    If Not Exclu Then
      With sh
        If .Range("B3") <> "" then
          For Each c In .Range("B3:B" & .Range("B65536").End(xlUp).Row)
            if TextBox1Text = Left(c,Len(TextBox1.Text)) Then ListBox1.AddItem c
          Next
        End if
      End With
    End If
Next sh
End Sub

 

[GHISLAIN]

Re : listbox

bonjour Softmama,

je te remercie de ta disponibilité ainsi que de tes competences en la matiere, et d'avoir pris le temps de solutionner mes demandes je te souhaite une bonne journee

amicalement

ghislain

 

[GHISLAIN]

Re : listbox

re bonjour Softmama,

j aurais besoin d'une information supplementaire conceernant les codes que tu m'a transmis !!

j ai beau chercher sur le forum je ne parviens pas a l'adapter

si apres avoir controlé ma colonne "B3"" je souhaite que dans ma listbox apparaisse la ligne complete correspondante soit de A a J


j ai donc modifié cette ligne , j ai effectivement toute la ligne mais les donnees sont inscrite les une sous les autres et pas en colonne
meme en ayant modifié les propriété du columnCount
j ai effectivement les colonnes mais pas les données dedans

.Range("A3:J" & .Range("J65536").End(xlUp).Row)

si tu as un moment pour m'eclairer sur mon erreur

je t en remercie par avance

amicalement

ghislain

 

[Softmama]

Re : listbox

Bonjour,

Si j'ai bien compris le pb, essaie ceci:

Private Sub UserForm_Initialize()
Dim c As Range, TablExclus, sh, Exclu As Boolean, t As Integer
TablExclus = Array("modele", "liste", "liste2", "modele2")  'noter toutes les feuilles à exclure
ListBox1.Columncount = 10
For Each sh In ThisWorkbook.Sheets
    Exclu = False
    For t = LBound(TablExclus) To UBound(TablExclus)
      If sh.Name = TablExclus(t) Then Exclu = True
    Next t
    If Not Exclu Then
      With sh
        If .Range("B3") <> "" then
          For Each c In .Range("B3:B" & .Range("B65536").End(xlUp).Row)
            if TextBox1Text = Left(c,Len(TextBox1.Text)) Then
              ListBox1.AddItem
              For t=0 to 9 'colonnes A à J
                Listbox1.List(Listbox1.ListCount-1, t ) = c.offset(0,t-1)
              next t
            end if
          Next
        End if
      End With
    End If
Next sh
End Sub

Mais à tester, n'ayant pas de fichier sur lequel travailler.

 

[GHISLAIN]

Re : listbox

re, Softmama,

sans avoir le fichier affaire résolu , me reste plus qu' a envoyer tout ça en impression , (je devrai pouvoir m'en sortir la ) .

Merci bien et un grand WOHAAA pour tes competences sincerement

bonne soiree

amicalement

ghislain