[XL-2007] Recherche VBA de valeurs dans 261 listes

Recherche VBA de valeurs dans 261 listes

Bonjour,

Je souhaite faire une recherche de valeurs dans 261 listes.

Etant novice en VBA je dois recopier la requetes 261 fois.

Existe-t-il un autre moyen svp ?

Ci dessous le code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
     If Get_Chaine(4, 14, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 14, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Tab>")
        End If
 
        If Get_Chaine(4, 15, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 15, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Tab>")
        End If
 
        If Get_Chaine(4, 16, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 16, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Tab>")
        End If
 
        If Get_Chaine(4, 17, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 17, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Tab>")
        End If
 
        If Get_Chaine(4, 18, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 18, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Tab>")
        End If
 
        If Get_Chaine(4, 19, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 19, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Tab>")
        End If
 
        If Get_Chaine(4, 20, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 20, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Tab>")
        End If
 
        If Get_Chaine(4, 21, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 21, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Tab>")
        End If
 
        If Get_Chaine(4, 22, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 22, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Tab>")
        End If
 
        If Get_Chaine(4, 23, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 23, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Tab>")
        End If
 
        If Get_Chaine(4, 24, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 24, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Tab>")
        End If
 
        If Get_Chaine(4, 25, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 25, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Tab>")
        End If
 
        If Get_Chaine(4, 26, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 26, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Tab>")
        End If
 
        If Get_Chaine(4, 27, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, 27, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
        Else
        Touche ("<Pf8>")
        End If

Bonjour,

De ce que je comprends de ton explication un peu laconique 8O je ferais simplement une boucle...

Code:

1
2
3
4
5
6
7
8
9
Dim j As Integer
 
For j = 1 To 261
     If Get_Chaine(4, j, 61) Like ("*" & (Cells(i, 2).Value) & "*") And Get_Chaine(2, j, 69) Like ("*" & (Cells(i, 3).Value) & "*") Then
        Touche ("X")
     Else
         Touche ("<Tab>")
     End If
Next j

Merci

Merci pour ta réponse.

En revanche, je dois passer d'une liste à la suivante à l'aide de la touche "Tab".
Comment faire une boucle dans une autre boucle stp ?

Un peu de lecture ;)