Discussion :

[abouhossam]

bjr à tous
j'ai le code suivant:

Code :

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

1
2
3
With Sheets("mouvement")
For Each cel In .Range("e2:e" & .Range("e65536").End(xlUp).Row)
If cel.Value = LBmoteurcadre.Value Then

LBmoteurcadre est listbox;

je veux faire la condition sur la valeur de la 2ème colonne de la ligne selectionnée de LBmoteurcadre.
veuillez m'aider svp
merci.

slt
autre façon de poser m'a question
mon code est:

Code :

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

1
2
3
4
Private Sub Bvalider_Click()
With Sheets("mouvement")
For Each cel In .Range("d2:d" & .Range("d65536").End(xlUp).Row)
If cel.Value = LBmoteurcadre.Value Then

je veux le chose suivante:

Code :

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

1
2
3
4
Private Sub Bvalider_Click()
With Sheets("mouvement")
For Each cel In .Range("d2:d" & .Range("d65536").End(xlUp).Row)
If cel.Value = LBmoteurcadre.Value and .range("e" & cel.row).value = la valeur de la 2ème colonne Then

est ce clair ?

noter que
ma listbox LBmoteurcadre a 2 colonne.
merci

slt
autre façon de poser m'a question
mon code est:

Code :

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

1
2
3
4
Private Sub Bvalider_Click()
With Sheets("mouvement")
For Each cel In .Range("d2:d" & .Range("d65536").End(xlUp).Row)
If cel.Value = LBmoteurcadre.Value Then

je veux le chose suivante:

Code :

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

1
2
3
4
Private Sub Bvalider_Click()
With Sheets("mouvement")
For Each cel In .Range("d2:d" & .Range("d65536").End(xlUp).Row)
If cel.Value = LBmoteurcadre.Value and .range("e" & cel.row).value = la valeur de la 2ème colonne Then

car ma listbox LBmoteurcadre a 2 colonnes.
je pense que c'est clair ?

[ouskel'n'or]

Je suppose une listbox à deux colonne dans un userform.
Pour afficher la première colonne et récupérer la seconde tu dois mettre

Code :

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

1
2
Listbox1.TextColumn = 1
Listbox1.BoundColumn = 2

Ensuite tu récupères .value
Bonne soirée

Edit
Dans cet exemple, tu peux en même temps récupérer la sélection dans la 1ère colonne avec

Code :

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

Sélection = Listbox1.Text

[abouhossam]

j'ai bien changé mon code et ça ne donne rien.

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
Private Sub Bvalider_Click()
With Sheets("mouvement")
LBmoteurcadre.TextColumn = 1
LBmoteurcadre.BoundColumn = 2
For Each cel In .Range("d2:d" & .Range("d65536").End(xlUp).Row)
If cel.Value = LBmoteurcadre.Value And .Range("e" & cel.Row).Value = LBmoteurcadre.BoundColumn.Value Then  
.Range("g" & cel.Row).Value = Format(TBdate.Value, "dd/mm/yyyy")
.Range("h" & cel.Row).Value = Format(facturevente.Value, ">")
End If
Next
End With
facturevente.Value = ""
LBmoteurcadre.Clear
LBmodèle.Clear
CBsté.Value = ""
End Sub

merci.

[ouskel'n'or]

Déclare "cel as range" et tu nous reviens

[abouhossam]

cel as range est bien déclaré
car la macro est

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
Dim cel As Range 'variable de boucle qui represente les element de la feuil "recap" de la col article
Dim str As String 'variable de comparaison
Dim Unique As New Collection
Dim Valeur As Range
Dim lg As Integer
Dim Tableau()
Dim boolVerif As Boolean
Dim celtableau As Variant
Private Sub Bvalider_Click()
With Sheets("mouvement")
LBmoteurcadre.TextColumn = 1
LBmoteurcadre.BoundColumn = 2
For Each cel In .Range("d2:d" & .Range("d65536").End(xlUp).Row)
If cel.Value = LBmoteurcadre.Value And .Range("e" & cel.Row).Value = LBmoteurcadre.BoundColumn.Value Then
 
.Range("g" & cel.Row).Value = Format(TBdate.Value, "dd/mm/yyyy")
.Range("h" & cel.Row).Value = Format(facturevente.Value, ">")
 
End If
Next
End With
facturevente.Value = ""
LBmoteurcadre.Clear
LBmodèle.Clear
CBsté.Value = ""
TBdate.Value = Format(Now, "dd/mm/yyyy")
End Sub

merci.

[ouskel'n'or]

Plutôt qu'examiner les valeurs ligne par ligne, utilise Find pour trouver la première valeur puis vérifie la seconde. Cette méthode est infiniment plus rapide et est décrite dans l'aide en ligne.

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
Sub Bvalider_Click()
Dim Flm As Worksheet
Dim Plage As Range, cel As Range, firstAddress As String
    Set Flm = Worksheets("mouvement")
    Set Plage = Flm.Range("d2:d" & Flm.Range("d65536").End(xlUp).Row)
    With Plage
        Set cel = .Find(LBmoteurcadre.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not cel Is Nothing Then
            firstAddress = cel.Address
            Do
                If cel.Offset(0, 1).Value = LBmoteurcadre.Value Then
                    cel.Offset(0, 3).Value = Format(TBdate.Value, "dd/mm/yyyy")
                    cel.Offset(0, 3).Value = Format(facturevente.Value, ">")
                    Exit Do
                End If
                Set cel = .FindNext(cel)
            Loop While Not cel Is Nothing And cel.Address <> firstAddress
        End If
    End With
    facturevente.Value = ""
    LBmoteurcadre.Clear
    LBmodèle.Clear
    CBsté.Value = ""
    TBdate.Value = Format(Now, "dd/mm/yyyy")
End Sub

Le seul pb que tu peux rencontrer (que je n'ai pas vérifié) est sur la ligne

With FLm.Range("d2:d" & .Range("d65536").End(xlUp).Row)

Tu peux tester pour moi ?

Edit
Pour ton code, que vient faire "BoundColumn" ici ?

LBmoteurcadre.BoundColumn.Value

BoundColumn est fixé au départ, ensuite tu utilises "LBmoteurcadre.Value"

Edit
Code corrigé

[abouhossam]

ça marche pas
il donne un message d'erreur:
référence incorrecte ou non qualifiée.
et selectionne:

Code :

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

With FLm.Range("d2:d" & .Range("d65536").End(xlUp).Row)

ouskel'n'or
est ce qu'il ya une méthode pour copier les valeurs de la ligne selectionnée d'une listbox et les coller dans une feuille sachant que la listbox a 2 colonnes?
si il y a une méthode je dis que mon problème va être résolu
merci.