Bonjour,

Je suis débutant en VBA et je bloque depuis quelques jours sur le code suivant :

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
Dim CT, CAT As Range
Dim D0, critere1, critere2, critere, AdresseTrouvee As String
Dim i, j As Integer
 
critere1 = "D0"
critere2 = "VLCC"
 
For j = 1 To 2
 
    critere = "Critere" & CStr(j)
    Set CT = Sheets("TEMP").Range("A15:OP47").Find(critere)
    Set CAT = Sheets("CQM_1").Range("A1:T33").Find(critere)
 
    AdresseTrouvee = CT.Adresse
    MsgBox (AdresseTrouvee)
 
    Set CT = Nothing
    Set CAT = Nothing
 
Next j
Je n'arrive pas à comprendre pourquoi mais la fonction .Find ne veut pas prendre le paramètre "critere" pourtant j'ai vérifié c'est bien un String.

Est-ce que vous avez une idée ?

Merci d'avance.

Salutations,