[XL-2000] Listbox classée selon un terme [Résolu]

CIBOOX · 13/03/2010, 15h57

Bonjour
j'ai récupéré un code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
  k = 0
  With Sheets("fournisseurs")
   For i = 2 To .[A65000].End(xlUp).Row
    If .Cells(i, 14) > 0 Then
      Me.ListBox1.AddItem
      Me.ListBox1.List(k, 0) = .Cells(i, 1)
      Me.ListBox1.List(k, 1) = .Cells(i, 2)
      Me.ListBox1.List(k, 2) = .Cells(i, 14)
      k = k + 1
    End If
   Next i
 End With
End Sub

j'aimerai l'adapter avec la fonction like car je cherche avoir dans une listbox avec que les cellules contenant le mot moniteur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
  k = 0
  With Sheets("fournisseurs")
   For i = 2 To .[A65000].End(xlUp).Row
    If .Cells(i, 14) like "*moniteur*" Then
      Me.ListBox1.AddItem
      Me.ListBox1.List(k, 0) = .Cells(i, 1)
      Me.ListBox1.List(k, 1) = .Cells(i, 2)
      Me.ListBox1.List(k, 2) = .Cells(i, 14)
      k = k + 1
    End If
   Next i
 End With
End Sub

mais la listbox reste vide ........

casefayere · 13/03/2010, 16h06

Bonjour,
essaye de mettre en haut du module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Compare Text

ça permettra de ne pas tenir compte des majuscules ou minuscules
si ça ne suffit pas changes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .Cells(i, 14) like "*moniteur*" Then

pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .Cells(i, 14) like "*" & moniteur & "*" Then

a +

mercatog · 13/03/2010, 16h21

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
  Dim k As Integer, i As Integer
  With Sheets("fournisseurs")
   For i = 2 To .[A65000].End(xlUp).Row
      If InStr(UCase(.Cells(i, 14)), "MONITEUR") > 0 Then
      Me.ListBox1.AddItem
      Me.ListBox1.List(k, 0) = .Cells(i, 1)
      Me.ListBox1.List(k, 1) = .Cells(i, 2)
      Me.ListBox1.List(k, 2) = .Cells(i, 14)
      k = k + 1
    End If
   Next i
 End With
End Sub

CIBOOX · 13/03/2010, 19h56

Citation:

Envoyé par casefayere

onjour,
essaye e mettre en haut du module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Compare Text

ça permettra de ne pas tenir compte des majuscules ou minuscules
si ça ne suffit pas changes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .Cells(i, 14) like "*moniteur*" Then

pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If .Cells(i, 14) like "*" & moniteur & "*" Then

a +

MERCI A TOI CASEFAYERE ça marche !!!!!

Citation:

Envoyé par mercatog

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
  Dim k As Integer, i As Integer
  With Sheets("fournisseurs")
   For i = 2 To .[A65000].End(xlUp).Row
      If InStr(UCase(.Cells(i, 14)), "MONITEUR") > 0 Then
      Me.ListBox1.AddItem
      Me.ListBox1.List(k, 0) = .Cells(i, 1)
      Me.ListBox1.List(k, 1) = .Cells(i, 2)
      Me.ListBox1.List(k, 2) = .Cells(i, 14)
      k = k + 1
    End If
   Next i
 End With
End Sub

j'ai teste aussi ta methode t'es trop fort MERCATOG ça marche aussi!!!

je profite encore de vos connaissances et votre maitrise
car maintenant je dois mettre dans la listbox4 tous les autres appareils ....

en listbox1 j'ai les moniteurs
en listbox2 les micro-ordinateurs
en listbox3 les imprimantes
et en listbox4 le reste ( onduleur , micro, webcam etc )

j'ai tente le & mais j'ai les 4 listbox vident....

casefayere · 13/03/2010, 20h31

re,

essayes ce code pour 3 listbox, tu continueras pour 4 listbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub UserForm_Initialize()
Dim k As Integer, i As Integer
 k = 0
With Sheets("fournisseurs")
    For i = 2 To .[A65000].End(xlUp).Row
        If InStr(UCase(.Cells(i, 14)), "MONITEUR") > 0 Then
            Me.ListBox1.AddItem
            Me.ListBox1.Column(1, Me.ListBox1.ListCount - 1) = .Cells(i, 1)
            Me.ListBox1.Column(2, Me.ListBox1.ListCount - 1) = .Cells(i, 2)
            Me.ListBox1.Column(3, Me.ListBox1.ListCount - 1) = .Cells(i, 14)
        End If
        If InStr(UCase(.Cells(i, 14)), "MICRO-O") > 0 Then
            Me.ListBox2.AddItem
            Me.ListBox2.Column(1, Me.ListBox2.ListCount - 1) = .Cells(i, 1)
            Me.ListBox2.Column(2, Me.ListBox2.ListCount - 1) = .Cells(i, 2)
            Me.ListBox2.Column(3, Me.ListBox2.ListCount - 1) = .Cells(i, 14)
        End If
        If InStr(UCase(.Cells(i, 14)), "IMPRIM") > 0 Then
            Me.ListBox3.AddItem
            Me.ListBox3.Column(1, Me.ListBox3.ListCount - 1) = .Cells(i, 1)
            Me.ListBox3.Column(2, Me.ListBox3.ListCount - 1) = .Cells(i, 2)
            Me.ListBox3.Column(3, Me.ListBox3.ListCount - 1) = .Cells(i, 14)
        End If
        k = k + 1
   Next i
 End With

mercatog · 13/03/2010, 20h50

Re,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub UserForm_Initialize()
Dim i As Integer
Dim j As Byte
Dim k() As Integer
Dim Typ
 
Typ = Array("MONITEUR", "MICRO-", "IMPRIMAN", "")
ReDim k(UBound(Typ))
 
With Sheets("fournisseurs")
    For i = 2 To .[A65000].End(xlUp).Row
        For j = 0 To UBound(Typ)
            If InStr(UCase(.Cells(i, 14)), Typ(j)) > 0 Then
                Me.Controls("ListBox" & j + 1).AddItem
                Me.Controls("ListBox" & j + 1).List(k(j), 0) = .Cells(i, 1)
                Me.Controls("ListBox" & j + 1).List(k(j), 1) = .Cells(i, 2)
                Me.Controls("ListBox" & j + 1).List(k(j), 2) = .Cells(i, 14)
                k(j) = k(j) + 1
                Exit For
            End If
        Next j
    Next i
End With
End Sub

CIBOOX · 13/03/2010, 21h28

merci à vous deux !!!!

ouha la belle boucle trop fort !!!

je prends pas tous le code mais ça marche !!!!
je connaissais pas que pour le restedes appareils on met ""

petite question au niveau du

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Typ = Array("MONITEUR", "MICRO-", "IMPRIMAN", "")
ReDim k(UBound(Typ))

est ce que l' ordre moniteur micro imprim a son importance pour le reste des appareils ?

mercatog · 13/03/2010, 21h47

l'odre impose quelle listbox doit être remplie avec l'item correspondant

listbox1--> item 1: moniteur
listbox2--> item 2; micro
...

Typ = Array("MONITEUR", "MICRO-", "IMPRIMAN", "")
"" doit être en dernier (listbox4)

CIBOOX · 13/03/2010, 21h58

Merci pour tes explications MERCATOG

CIBOOX · 15/03/2010, 11h35

Bonjour
j'ai adapté la boucle
mais j'aimerai aussi avoir le cumul pour les quatre catégories en caption
mais j'ai une erreur 138....
il faut cliqué sur bouton 4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub UserForm_Initialize()
Dim i As Integer
Dim j As Byte
Dim k() As Integer
Dim Typ
 
Typ = Array("MONITEUR", "MICRO-", "IMPRIMAN", "")
ReDim k(UBound(Typ))
 
With Sheets("feuil2")
    For i = 2 To .[A65000].End(xlUp).Row
        For j = 0 To UBound(Typ)
            If InStr(UCase(.Cells(i, 5)), Typ(j)) > 0 Then
                Me.Controls("ListBox" & j + 1).AddItem
                Me.Controls("ListBox" & j + 1).List(k(j), 0) = .Cells(i, 6)
                Me.Controls("ListBox" & j + 1).List(k(j), 1) = .Cells(i, 5)
                k(j) = k(j) + 1
                Label1.Caption = k & " MONITEURS"
                Label2.Caption = k & " IMPRIMANTES"
                Label3.Caption = k & " MICRO-ORDINATEURS"
                Label4.Caption = k & " AUTRES MATERIEL"
 
 
                Exit For
            End If
        Next j
    Next i
End With
End Sub

mercatog · 15/03/2010, 13h51

De la même manière (à condition de renommer tes Label: LabelZ pour la Listebox ListboxZ)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub UserForm_Initialize()
Dim i As Integer
Dim j As Byte
Dim k() As Integer
Dim Typ
 
Typ = Array("MONITEUR", "MICRO-ORDINATEUR", "IMPRIMANTE", "")
ReDim k(UBound(Typ))
 
With Sheets("feuil2")
    For i = 2 To .[A65000].End(xlUp).Row
        For j = 0 To UBound(Typ)
            If InStr(UCase(.Cells(i, 5)), Typ(j)) > 0 Then
                Me.Controls("ListBox" & j + 1).AddItem
                Me.Controls("ListBox" & j + 1).List(k(j), 0) = .Cells(i, 6)
                Me.Controls("ListBox" & j + 1).List(k(j), 1) = .Cells(i, 5)
                k(j) = k(j) + 1
                If j = UBound(Typ) Then
                    Me.Controls("Label" & j + 1).Caption = k(j) & " AUTRE MATERIEL"
                Else
                    Me.Controls("Label" & j + 1).Caption = k(j) & " " & Typ(j) & "S"
                End If
                                Exit For
            End If
        Next j
    Next i
End With
End Sub

CIBOOX · 15/03/2010, 19h54

avec ton code j'ai 11 moniteurs en label1.caption
j'aimerai avoir le total de moniteurs soit 39 moniteurs....

mercatog · 15/03/2010, 20h11

Citation:

j'aimerai avoir le total de moniteurs soit 39 moniteurs.

à vos ordres!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub UserForm_Initialize()
Dim i As Integer
Dim j As Byte
Dim k() As Integer
Dim NB() As Integer
Dim Typ
 
Typ = Array("MONITEUR", "MICRO-ORDINATEUR", "IMPRIMANTE", "")
ReDim k(UBound(Typ))
ReDim NB(UBound(Typ))
 
With Sheets("feuil2")
    For i = 2 To .[A65000].End(xlUp).Row
        For j = 0 To UBound(Typ)
            If InStr(UCase(.Cells(i, 5)), Typ(j)) > 0 Then
                Me.Controls("ListBox" & j + 1).AddItem
                Me.Controls("ListBox" & j + 1).List(k(j), 0) = .Cells(i, 6)
                Me.Controls("ListBox" & j + 1).List(k(j), 1) = .Cells(i, 5)
                k(j) = k(j) + 1
                NB(j) = NB(j) + .Cells(i, 6)
                If j = UBound(Typ) Then
                    Me.Controls("Label" & j + 1).Caption = NB(j) & " AUTRE MATERIEL"
                Else
                    Me.Controls("Label" & j + 1).Caption = NB(j) & " " & Typ(j) & "S"
                End If
                                Exit For
            End If
        Next j
    Next i
End With
End Sub

CIBOOX · 15/03/2010, 20h18

MERCI MERCATOG pour ta superbe boucle

13/03/2010, 21h47	#8
mercatog Expert Confirmé Sénior Inscription : juillet 2008 Messages : 5 457 Détails du profil Informations forums : Inscription : juillet 2008 Messages : 5 457 Points : 12 790 Points : 12 790	l'odre impose quelle listbox doit être remplie avec l'item correspondant listbox1--> item 1: moniteur listbox2--> item 2; micro ... Typ = Array("MONITEUR", "MICRO-", "IMPRIMAN", "") "" doit être en dernier (listbox4) __________________ Cordialement.
	00

13/03/2010, 21h58	#9
CIBOOX Nouveau Membre du Club Inscription : décembre 2006 Messages : 194 Détails du profil Informations forums : Inscription : décembre 2006 Messages : 194 Points : 32 Points : 32	Merci pour tes explications MERCATOG Dernière modification par CIBOOX ; 15/03/2010 à 12h47.
	00

13/03/2010, 16h06	#2
casefayere Expert Confirmé Dominique LEMAIRE caviste Inscription : décembre 2006 Messages : 2 108 Détails du profil Informations personnelles : Nom : Dominique LEMAIRE Âge : 57 Localisation : France, Ardennes (Champagne Ardenne) Informations professionnelles : Activité : caviste Secteur : Agroalimentaire - Agriculture Informations forums : Inscription : décembre 2006 Messages : 2 108 Points : 3 888 Points : 3 888	Bonjour, essaye de mettre en haut du module : Code : Sélectionner tout - Visualiser dans une fenêtre à part Option Compare Text ça permettra de ne pas tenir compte des majuscules ou minuscules si ça ne suffit pas changes : Code : Sélectionner tout - Visualiser dans une fenêtre à part If .Cells(i, 14) like "moniteur" Then pour Code : Sélectionner tout - Visualiser dans une fenêtre à part If .Cells(i, 14) like "" & moniteur & "" Then a +
	00

15/03/2010, 19h54	#12
CIBOOX Nouveau Membre du Club Inscription : décembre 2006 Messages : 194 Détails du profil Informations forums : Inscription : décembre 2006 Messages : 194 Points : 32 Points : 32	avec ton code j'ai 11 moniteurs en label1.caption j'aimerai avoir le total de moniteurs soit 39 moniteurs....
	00

15/03/2010, 20h18	#14
CIBOOX Nouveau Membre du Club Inscription : décembre 2006 Messages : 194 Détails du profil Informations forums : Inscription : décembre 2006 Messages : 194 Points : 32 Points : 32	MERCI MERCATOG pour ta superbe boucle
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email