Discussion :

[kaglaborn]

Salut à tous,

J'ai dans un tableau de ce genre

N° de ligne	élément
1	A
2	A
3	B
4	A
5	B

J'ai crée ce code afin de chercher l'élément que je souhaite (prédéfini au préalable dans une combobox de userform) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Cmd_val_Click()
    If ComboBox1 <> "" And ComboBox2 = "" Then
        Dim C As Range
        With Sheets("Table_Composant")
            For Each C In .Range("B3", .Cells(Rows.Count, 2).End(xlUp))
                If C.Value = ComboBox1.Value Then
                    'relève moi le numero des lignes où se trouve C.value
                End If
             Next C
        End With
    End If
 
End Sub

Mon problème est que je sais pas quoi mettre pour obtenir un ensemble de données correspondant au numéro de ligne de chaque élément.
Dans le tableau ci-dessus si nous avons sélectionné au préalable l'élément "A", les solutions seraient {1, 2, 4}.
J'ai mis mon problème en commentaire dans le code au niveau du 2ème IF.

Je vous remercie d'avance.
Karl

[antonysansh]

Bonjour Karl,

Tu peux tester comme ceci :

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
Private Sub Cmd_val_Click()
    If ComboBox1 <> "" And ComboBox2 = "" Then
        Dim C As Range, s As String
        With Sheets("Table_Composant")
            For Each C In .Range("B3", .Cells(Rows.Count, 2).End(xlUp))
                If C.Value = ComboBox1.Value Then
                    s = s & C.Row & ", "
                    'relève moi le numero des lignes où se trouve C.value
                End If
             Next C
        End With
    End If
    s = Left(s, Len(s) - 2)
    MsgBox s
End Sub

Pour le moment c'est juste un MsgBox mais tu peux faire ce que tu veux de la variable s.

EDIT :
For Each C In .Range("B3", .Cells(Rows.Count, 2).End(xlUp)) fonctionne ?
la syntaxe n'est pas plutot
For Each C In .Range(Range("B3"), .Cells(Rows.Count, 2).End(xlUp))ou
For Each C In .Range([B3], .Cells(Rows.Count, 2).End(xlUp))

[Invité]

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
Public dico As Object
Sub test()
Dim r As Range, i As Integer
 Set dico = CreateObject("Scripting.Dictionary")
Set r = ActiveSheet.Range("A1").CurrentRegion
For i = 2 To r.Rows.Count
    If dico.exists(r(i, 2).Value) = False Then dico.Add r(i, 2).Value, i
Next
 
End Sub
 
Sub testVeleur()
Debug.Print dico.Item("B")
End Sub

[kaglaborn]

Bonjour Karl,

Tu peux tester comme ceci :

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
Private Sub Cmd_val_Click()
    If ComboBox1 <> "" And ComboBox2 = "" Then
        Dim C As Range, s As String
        With Sheets("Table_Composant")
            For Each C In .Range("B3", .Cells(Rows.Count, 2).End(xlUp))
                If C.Value = ComboBox1.Value Then
                    s = s & C.Row & ", "
                    'relève moi le numero des lignes où se trouve C.value
                End If
             Next C
        End With
    End If
    s = Left(s, Len(s) - 2)
    MsgBox s
End Sub

Pour le moment c'est juste un MsgBox mais tu peux faire ce que tu veux de la variable s.

EDIT :
For Each C In .Range("B3", .Cells(Rows.Count, 2).End(xlUp)) fonctionne ?
la syntaxe n'est pas plutot
For Each C In .Range(Range("B3"), .Cells(Rows.Count, 2).End(xlUp))ou
For Each C In .Range([B3], .Cells(Rows.Count, 2).End(xlUp))

Super ! Exactement ce que je souhaitais pour la variable s !

Pour la syntaxe, apparemment ça fonctionne.
au départ, j'avais mis cela :

Code :

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

For Each C In .Range(.[B3], Cells(Rows.Count, 4).End(xlUp))

Mais il ne m'acceptait pas le "." devant les crochets... Du coup j'ai mis des guillemets...
Pour tout te dire, j'ai commencé (j'étais au niveau 0) le codage en général il y a 2 semaines environ. Il y a donc certaines règles syntaxiques que je n'ai pas encore assimilé... Quand j'ai des problème, je débogue et cherche ou essaye des choses ^^
Donc au final le code marchait mais j'ai corrigé par ce que tu m'as proposé :

Code :

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

For Each C In .Range(.[B3], .Cells(Rows.Count, 2).End(xlUp))

je te remercie pour ta réponse en tout cas

Dans ton code, tu as marqué :

Code :

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

 s = Left(s, Len(s) - 2)

A quoi cela correspond ?

Karl

[antonysansh]

Simplement parce qu'avec s = s & C.Row & ", " j’ajoute ", " après chaque numéro de ligne.

Donc à la fin j'ai un truc de ce genre : 1, 5, 6, 7, 12,
Mais comme c'est pas beau j'enlève les deux derniers caractères, le point-virgule et l'espace, avec s = Left(s, Len(s) - 2)
Si pas clair regarde dans l'aide VB les fonctions Left et Len (les équivalents de =Gauche et =NBCAR en formule Excel)

[kaglaborn]

Ah ok, pour l'explication c'est bon. Ce soir je me coucherai moins bête encore
Merci

[Invité]

Juste pour information vue que tu as résolu ton problème!

sur mon poste #3

Code :

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

1
2
3
Sub testVeleur()
Valeur= Sheets("Table_Composant").cells( dico.Item(ComboBox1.Value ),"B").value
End Sub