Bonjour,

j ai un probleme pour definir un Range. Je m explique : j ai stocke des valeurs de Classeur1 dans un tableau. J ouvre ensuite Classeur2, et pour chaque cellule d un range de Classeur2, je veux chercher la valeur qui correspond dans mon tableau, jusqu a trouver celle qui correspond.
Mon probleme : definir un range sur mon tableau.
Voici mon bout de code : (le probleme vient de Set Plage)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
For Each CellWanted In Range(Cells(7, 1), Cells(1100, 1))
    Set Plage = Range(matrix(1, 1), matrix(1, 1100))
    Set C = Plage.Find(CellWanted.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not C Is Nothing Then
        'mon code
    End If
 Next
J avais au depart essaye une autre maniere, qui marche tres bien, mais qui etait beaucoup trop longue. La voici :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
For Each CellWanted In Range(Cells(7, 1), Cells(1100, 1)) 
    For k = 7 To 1100
       If CellWanted.Value = matrix(0, k) Then
            'mon code
       End If
    Next
Next
Mon probleme principal est d optimiser mon code, et pour ca j ai pense au premier bout de code ci dessus, mais je ne trouve pas comment definir mon Range.

Merci d avance a qui pourra me depanner !