Alimenter une listbox sous conditions

  • Initiateur de la discussion Initiateur de la discussion crapoto
  • 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 !

crapoto

XLDnaute Nouveau
Bonjours à tout le forum et merci de l'aide que vous nous donner.

Voila, je joint un fichier, c'est plus simple que de se lancer dans de grand discours.
Je voudrait que la listbox ne prenne pas les lignes ou il y a un X dans la derniere colonne.
je cherche mais je n'y arrive pas.
Un grand merci à celui qui pourrait eclairer ma lanterne. [file name=classeur_20050605113610.zip size=11391]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/classeur_20050605113610.zip[/file]

Message édité par: crapoto, à: 05/06/2005 11:46
 

Pièces jointes

Bonjour crapoto

Modifie ton code ainsi
Code:
Private Sub initlistbox()
Dim c As Range
Dim x As Byte
Me.NouvListe.Clear

DER = Sheets('feuil1').Range('A2').End(xlDown).Row
x = 0
For Each c In Range('A2:A' & DER)
    If c.Offset(0, 12) = '' Then
        With NouvListe
           .AddItem c
           .List(x, 0) = c
           .List(x, 1) = c.Offset(0, 2)
           .List(x, 2) = Format(c.Offset(0, 4), '###0.00')
           .List(x, 3) = Format(c.Offset(0, 6), '###0.00')
           .List(x, 4) = Format(c.Offset(0, 8), '###0.00')
           .List(x, 5) = c.Offset(0, 12)
           .List(x, 6) = c.Row
           x = x + 1
       End With
    End If
Next c
End Sub

@+Jean-Marie
 
- 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
2
Affichages
1 K
bebere
B
D
Réponses
5
Affichages
1 K
david
D
P
  • Question Question
Réponses
0
Affichages
842
Palemeilleur
P
Réponses
2
Affichages
2 K
B
Réponses
1
Affichages
2 K
bleu_azur
B
Réponses
3
Affichages
1 K
Réponses
4
Affichages
1 K
D
  • Question Question
Réponses
3
Affichages
1 K
David
D
Réponses
4
Affichages
1 K
S
Réponses
5
Affichages
2 K
H
W
Réponses
12
Affichages
1 K
W
Retour