colonne de listbox

Version imprimable

bjr à tous
j'ai le code suivant:
Code:

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:

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:

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:

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:

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 ?

22/10/2008, 18h56
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:

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élection = Listbox1.Text

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

Code:

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.

22/10/2008, 19h40
ouskel'n'or

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

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

Code:

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.

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:

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

Citation:

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

Tu peux tester pour moi ?

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

Citation:

LBmoteurcadre.BoundColumn.Value

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

Edit
Code corrigé

23/10/2008, 10h51
abouhossam

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

Code:

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.

Comme je t'ai dit, je n'ai pas testé (!)
Remplace ça
Code:

1 2 3 4 5 Dim FLm as worksheet, 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 'la suite du code
Testé.
Si tu as toujours un problème, il ne viendra plus de là.
Il manquait simplement la référence à la feuille avant le range FLm.Range("d65536")

23/10/2008, 13h23
abouhossam

un autre message d'erreur:
membre de méthode ou de données introuvable
on selectionnant:

Code:

FLm.cel.Offset(0, 3).Value = Format(TBdate.Value, "dd/mm/yyyy")

merci.

vous n'avez pas repondu à ma question
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.
23/10/2008, 14h17
ouskel'n'or

Citation:

Envoyé par abouhossam

un autre message d'erreur:
membre de méthode ou de données introuvable
on selectionnant:

Code:

FLm.cel.Offset(0, 3).Value = Format(TBdate.Value, "dd/mm/yyyy")

merci.

Oui, je n'ai pas testé cette partie (sans ton ficher cela m'aurait été difficile...) et j'ai laissé FLm.
J'ai corrigé la procédure dans le poste précédent.
Ceci dit, pour ta seconde intervention, modère tes exigeances. N'oublie pas que nous sommes tous des bénévoles et que nous ne sommes pas à ta disposition. La méthode que tu réclames, je te l'ai donnée dans ma première réponse.
Si tu veux en savoir plus, consulte la FAQ et les tutoriels
Sauf erreur commise - que tu aurais pu identifier si tu t'étais donné la peine d'aller dans l'aide en ligne, à Find - je pense avoir suffisamment porté d'attention à ta question.
Essaie de trouver seul la solution avec les renseignements fournis.
Bonne journée
23/10/2008, 15h34
abouhossam

ouskel'n'or
je t'envoie le fichier
je peux avoir des doublons dans la colonne N°cadre et N°moteur mais jamais un couple (N°moteur;N°cadre) soit en double.
mais comme la listbox LBmoteurcadre ne fait la recherche que sur la colonne N°moteur; quand je click sur le bouton valider , la macro m'envoie le N° facturevente pour les N°moteur sans prendre en considération son N°cadre
merci.

je pense que les conditions doivent se faire avec le couple (N°moteur;N°cadre) pour ne pas avoir de problèmes.
mais je ne sais pas comment faire
merci.
23/10/2008, 21h03
ouskel'n'or

Regarde la réponse 6. Corrigée et testée.
24/10/2008, 10h21
abouhossam

bjr ouskel'n'or
j'ai corrigé mon code
et voilà le resultat:
la macro s'execute sans qu'il colle les valeurs date vente et N° facture vente sur le tableau
le fichier est ci-joint
merci.
24/10/2008, 17h52
ouskel'n'or

Je n'ai regardé que la correspondance N°moteur-N°cadre

Citation:

je peux avoir des doublons dans la colonne N°cadre et N°moteur mais jamais un couple (N°moteur;N°cadre) soit en double.

Et ça, c'est corrigé.
Pour date vente et N° facture vente je n'ai pas vu où tu avais mis le code. Je regarde.
Mais peut-être as-tu trouvé entre temps
Tu dis

Bien sûr, la colonne dans laquelle tu recherches est la colonne d alors que le N° de cadre (colonne 2 de la listbox) est dans la colonne e. Ensuite, je n'ai pas vu où tu fixais BoundColumn et textColumn
Ajoute ça à ton code

Code:

1
2
3
4
Private Sub UserForm_Activate()
    Me.LBmoteurcadre.BoundColumn = 2
    Me.LBmoteurcadre.TextColumn = 1
End Sub

Et corrige cette procédure

Code:

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("e2:e" & Flm.Range("e65536").End(xlUp).Row)
    With Plage
        Set cel = .Find(Me.LBmoteurcadre.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not cel Is Nothing Then
            firstAddress = cel.Address
            Do
                If cel.Value = Me.LBmoteurcadre.Value Then
                    cel.Offset(0, 2).Value = Format(CDate(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

Testé aussi

24/10/2008, 18h54
abouhossam

merci ouskel'n'or
j'ai copier ton code mais j'ai un problème
tu peux ouvrir le fichier ci-joint et voir l'exemple pour:
sté = "SAHARACYCLE"
modèle = "LIBERO"
N° moteur = "ASC159" ===> il est toujours afficher sur LBmoteurcadre en double même si un est vendu
merci.
25/10/2008, 00h18
ouskel'n'or

Et si tu expliquais la finalité de l'appli en une seule fois? A chacun de tes messages il y a un nouvel élément.
Que dois-tu renseigner ?
Que veux-tu chercher ?
Que veux-tu obtenir ?
Bref, qu'est censée faire ton appli ?
Là, j'ai cherché LBmoteurcadre pour récupérer la date, et le N° de facture.
Essaie de comprendre le code et corrige-le en fonction de ce que tu veux.
Déjà, il semblerait que c'est bien LBmoteurcadre mais qu'ensuite c'est le No moteur, ce que fait pas le code que je t'ai passé.
As-tu regardé Offset, dans l'aide en ligne ?
Si tu corriges, vérifie le No de colonne et si tu le corriges, corrige l'offset.
La moindre des chose est que tu participes autrement qu'en testant ce qu'on te met.
Bon week-end
25/10/2008, 10h32
abouhossam

merci de tes conseils