Discussion :

[sims92.66]

Bonjour à tous,

J'ai réussi à mettre en place un code qui me permet de chercher la valeur d'une cellule selon deux critères variables.
J'aimerai maintenant passer à l'étape supérieur en programmant une boucle dans mon code.
Autrement j'aimerai ne plus figer la ligne 25 de mon code mais la faire varier avec un pas de +1.
J'ai essayé d'insérer une autre boucle while mais le code plante.

Merci pour vos réponses.

Bonne journée

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
Sub rechercheh()
 
 
i = 2
 
While IsEmpty(Cells(i, 1)) = False
 
    If Cells(25, 2) = Cells(i, 1) Then
 
    j = 3
    While IsEmpty(Cells(1, j)) = False
 
         If Cells(1, j) = Cells(25, 3) Then
            Cells(25, 4) = Cells(i, j)
         End If
 
    j = j + 1
    Wend
 
 
    End If
 
i = i + 1
 
Wend
 
 
End Sub

[Daniel.C]

Bonjour,

Autrement j'aimerai ne plus figer la ligne 25 de mon code mais la faire varier avec un pas de +1.

De quelle valeur à quelle valeur ? voici un exemple de 1 à 10.

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
Sub rechercheh()
Dim x As Long, i As Long, j As Long
i = 2
For x = 1 To 10
    While IsEmpty(Cells(i, 1)) = False
        If Cells(x, 2) = Cells(i, 1) Then
            j = 3
            While IsEmpty(Cells(1, j)) = False
                 If Cells(1, j) = Cells(x, 3) Then
                    Cells(x, 4) = Cells(i, j)
                 End If
            j = j + 1
            Wend
        End If
    i = i + 1
    Wend
Next x
End Sub

[sims92.66]

Merci Daniel, pour ta réponse.

J'aimerai la faire varier tant qu'il y a quelque chose d’inscrits.

J'ai essayé ton code Daniel mais celui-ci ne passe pas à la valeur suivante.
Il n'effectue la recherche que pour la ligne 25.

[Daniel.C]

Essaie :

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
Sub rechercheh()
i = 2
While IsEmpty(Cells(i, 1)) = False
    If Cells(25, 2) = Cells(i, 1) Then
       j = 3
       While IsEmpty(Cells(1, j)) = False
            For x = 1 To 10 '*** à modifier
                If Cells(1, j) = Cells(x, 3) Then
                   Cells(x, 4) = Cells(i, j)
                End If
            Next x
       j = j + 1
       Wend
    End If
i = i + 1
Wend
End Sub

[sims92.66]

J'ai modifié ton code pour le faire la recherche sur une autre feuille de mon classeur. Cependant, les valeurs cherchées ne correspondent pas.

Ci-joint le 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
15
16
17
Sub rechercheh()
i = 2
While IsEmpty(Sheets("VL").Cells(i, 1)) = False
    If Sheets("Contrôle Niveau 2").Cells(360, 3) = Sheets("VL").Cells(i, 1) Then
       j = 2
       While IsEmpty(Sheets("VL").Cells(1, j)) = False
            For x = 360 To 371 '*** à modifier
                If Sheets("VL").Cells(1, j) = Sheets("Contrôle Niveau 2").Cells(x, 11) Then
                   Sheets("Contrôle Niveau 2").Cells(x, 19) = Sheets("VL").Cells(i, j)
                End If
            Next x
       j = j + 1
       Wend
    End If
i = i + 1
Wend
End Sub

[Daniel.C]

J'ai du mal à comprendre c que tu veux faire. Peut-être :

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
Sub rechercheh()
i = 2
While IsEmpty(Cells(i, 1)) = False
    If Cells(i, 2) = Cells(i, 1) Then
    j = 3
    While IsEmpty(Cells(1, j)) = False
         If Cells(1, j) = Cells(25, 3) Then
            Cells(i, 4) = Cells(i, j)
         End If
    j = j + 1
    Wend
    End If
i = i + 1
Wend
End Sub