Listbox conditonnelle

[julien34]

Bonjour,

Je m'adresse à vous ce jour car confronté à un problème.

Je m'explique....

J'ai un formulaire en feuil 1 dont les infos sont renvoyées en feuil2 (base).
Pour chaque client, il est stipulé s'il faut effectuer une relance et a quelle date. Seulement certains clients n'ont pas besoin de relance, ils sont à jour.

Ma question est la suivante:
Est ce possible d'afficher une listbox (via bouton), me permettant de montrer uniquement les clients qui ont besoin d’être relancés (histoire d'avoir un bouton "consulter la liste des taches")

J’espère avoir été clair. Pas facile à expliquer.
D'avance merci
Julien

 

[Yaloo]

Re : Listbox conditonnelle

Es-tu sûr de tes N° de lignes ?

 

[julien34]

Re : Listbox conditonnelle

N° de lignes ??
De colonnes dans la base tu veux dire ?

 

[Yaloo]

Re : Listbox conditonnelle

Oui, oui, bien sûr, c'est de colonne dont je parle

A+

 

[julien34]

Re : Listbox conditonnelle

Les numéros de colonnes sont OK puisque la listbox les affiche
C'est plutot la condition qui ne fonctionne pas!

Les cellules 105 et 106 sont renseignées uniquement en 1ère entrée dans la base

Pourtant la listbox affiche l'entrée 1,2 et 4...Je ne comprends vraiment pas pourquoi !

C'est exactement le même code que toi en changeant les num de colonnes !

 

[Yaloo]

Re : Listbox conditonnelle

Chez moi, ça fonctionne.
J'ai essayé avec

If Not IsEmpty(.Cells(i, 105)) And Not IsEmpty(.Cells(i, 106)) Then

ou

If .Cells(i, 105) > 0 Then

A+

 

[julien34]

Re : Listbox conditonnelle

Bon ......
Tu me confirmes que le code est le suivant

Private Sub UserForm_Initialize()
k = 0
With Sheets("Base") 'MA FEULLE QUI CONTIENT LA BASE DE DONNEES
For i = 2 To .[A65000].End(xlUp).Row
If Not IsEmpty(.Cells(i, 105)) And Not IsEmpty(.Cells(i, 106)) Then
Me.ListBox1.AddItem
Me.ListBox1.List(k, 0) = .Cells(i, 1) 'COLONNE NUM DOSSIER
Me.ListBox1.List(k, 1) = .Cells(i, 3) 'COLONNE NOM
Me.ListBox1.List(k, 2) = .Cells(i, 4) 'COLONNE PRENOM
Me.ListBox1.List(k, 3) = .Cells(i, 10) 'COLONNE MARQUE
Me.ListBox1.List(k, 4) = .Cells(i, 11) 'COLONNE MODELE
Me.ListBox1.List(k, 5) = .Cells(i, 105) 'COLONNE ACTIONS
Me.ListBox1.List(k, 6) = .Cells(i, 106) 'COLONNE RELANCE'
k = k + 1
End If
Next i
End With
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub

 

[Yaloo]

Re : Listbox conditonnelle

Oui, je confirme, je viens de remettre ton code dans ton fichier exemple et ça fonctionne.
J'ai juste changé le nom de la feuille en BDD, mais c'est tout.
A+

 

[julien34]

Re : Listbox conditonnelle

Re Yaloo,

OK
Écoutes ça doit être une étourderie de ma part mais je ne vois pas où !
Peux tu prendre la peine de regarder le fichier ci joint ? C'est sur celui ci que je souhaite intégrer ce code

Merci d'avance
A+

 

[Yaloo]

Re : Listbox conditonnelle

C'est parce que tes cellules ne sont pas vides.
Fais "effacer le contenu" sur les cellules DA3 : DB10 de ta feuille "Base" et tu va voir qu'après ça va fonctionner.

Yaloo

 

[julien34]

Re : Listbox conditonnelle

Effectivement ça fonctionne ! Encore merci
Mais les cellules me semblaient vides. A quoi vois tu qu'elles ne l’étaient pas stp?

Et au fait si je mets
For i = 1 To .[A65000].End(xlUp).Row au lieu de For i = 2 To .[A65000].End(xlUp).Row

Histoire de voir les en têtes de colonnes ça ne pose pas de pbs particuliers ?

A+
Julien

 

[Yaloo]

Re : Listbox conditonnelle

Ah, ça c'est la question....
Je me suis déjà fais piéger avec ça, donc maintenant je fais attention.
Tu peux mettre

If .Cells(i, 105) <> "" Then

Ca devrait fonctionner

A+

 

[julien34]

Re : Listbox conditonnelle

Effectivement ça fonctionne. Ca me rassure le ""

Et concernant les en têtes de colonnes dans les listbox
J'ai fais For i = 1 To .[A65000].End(xlUp).Row au lieu de For i = 2 To .[A65000].End(xlUp).Row

Ca ne m'a pas l'air très propre!

Dans les propriétés de la listbox j'affiche les en tetes de colonnes mais il n'y a rien dedans. Tu peux m'aiguiller peut etre ?

 

[klin89]

Re : Listbox conditonnelle

Re julien34,

Avec la propriété List, tu ne peux pas afficher les en-têtes de colonnes dans ta listbox.
Pour contourner le problème, vois ce fil :

https://www.excel-downloads.com/threads/en-tetes-dune-listbox-multi-colonnes.115202/

Klin89

 

[julien34]

Re : Listbox conditonnelle

Merci Klin89,

Mais en tant que bon débutant je n'arrive pas à utiliser le code vers le quel tu m'as orienté qui a l'air pourtant très efficace ! Quelqu'un peut il m'aider? Mon fichier est joint un peu plus haut si besoin

Private Sub UserForm_Initialize()
  NbCol = [clients].CurrentRegion.Columns.Count
  Me.ListBox1.ColumnCount = NbCol
  Me.ListBox1.List = Range("clients").Resize(, NbCol).Value
  x = 15
  For i = 1 To NbCol
    retour = Me.Controls.Add("Forms.Label.1", "Label" & i, True)
    Me("label" & i).Caption = Cells(1, i)
    Me("label" & i).Top = 40
    Me("label" & i).Left = x
    x = x + Columns(i).Width * 1.1
    temp = temp & Columns(i).Width * 1.1 & ";"
  Next
  Me.ListBox1.ColumnWidths = temp
  For b = 1 To NbCol: Set Lbl(b).GrLabel = Me("Label" & b): Next b
End Sub

Avec mon code de base sur mon fichier

Private Sub UserForm_Initialize()
k = 0
With Sheets("Base") 'MA FEULLE QUI CONTIENT LA BASE DE DONNEES
For i = 1 To .[A65000].End(xlUp).Row
If .Cells(i, 105) <> "" Then
Me.ListBox1.AddItem
Me.ListBox1.List(k, 0) = .Cells(i, 1) 'COLONNE NUM DOSSIER
Me.ListBox1.List(k, 1) = .Cells(i, 3) 'COLONNE NOM
Me.ListBox1.List(k, 2) = .Cells(i, 4) 'COLONNE PRENOM
Me.ListBox1.List(k, 3) = .Cells(i, 10) 'COLONNE MARQUE
Me.ListBox1.List(k, 4) = .Cells(i, 11) 'COLONNE MODELE
Me.ListBox1.List(k, 5) = .Cells(i, 105) 'COLONNE ACTIONS
Me.ListBox1.List(k, 6) = .Cells(i, 106) 'COLONNE RELANCE'
k = k + 1
End If
Next i
End With
End Sub

 

[Yaloo]

Re : Listbox conditonnelle

D'après ce que j'ai pu tester, je ne pense pas que cela fonctionne. Car les données à mettre dans ta listbox ne sont pas dans des colonnes qui se suivent. De plus, comme l'a indiqué Klin les listbox sont limités à 10 colonnes, alors que là tu en as 106.

Mais comme tu ne fais pas de sélection, le fait de mettre ta plage à partir de la ligne 1, peut te permettre d'afficher tes entêtes.

A+