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