VBA - Problème avec la fonction .Find

Version imprimable

Bonjour,

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

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,

15/11/2019, 11h24
MarcelG

Bonjour et bienvenue sur le Forum,

2 remarques au préalable
- Pour tout code reporté, utiliser les balises #
- A chaque ligne, tel que tu as déclaré tes variables, sauf la dernière, celles-ci le sont toutes en Variant

Voir ce tutoriel.

Il est opportun de bien paramétrer la méthode Find.
Ceci notamment pour la recherche dans les valeurs ou les formules, dans une cellule intégrale ou une partie de celle-ci.
Il me paraît utile, enfin, de préciser la nature des paramètres.

Code:

.Find(What:=...)

Tu peux consulter l'aide Microsoft sur cette méthode.

Réponse

Bonjour MarcelG,

Merci pour ta réponse je pense que ce n'est pas possible de faire mon code de cette façon. Je suis entrain d'essayer avec le code suivant mais j'ai toujours des problèmes :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim CT(1 To 4), CAT(1 To 4) As Range Dim D0, critere1, critere2, critere, AdresseTrouvee As String Dim SumSQ As Double Dim i, j As Integer SumSQ = 0 For j = 1 To 4 critere = Sheets("CQM_1").Cells(1, j).Value Set CT(j) = Sheets("TEMP").Range("A15:OP47").Find(critere) Set CAT(j) = Sheets("CQM_1").Range("A1:T33").Find(critere) For i = 1 To 8 SumSQ = SumSQ + carre(Application.StDev(CT(j).Offset(i, 0).Value, CT(j).Offset(i + 8, 0).Value, CT(j).Offset(i + 16, 0).Value, CT(j).Offset(i + 24, 0).Value)) Next i CAT(j).Offset(4, 0).Value = Sqr(1 / 8 * SumSQ) Next j
L'objectif de ce code est de recherché des mots qui sont dans la plage A1:A4 l'un après l'autre puis de faire un calcul spécifique. Le code fonctionne et le calcul fonctionne bien je l'ai déjà essayé auparavant. Le problème c'est que le code ne fonctionne que pour le mot en A1 mais pas pour les autres. C'est comme-ci la boucle FOR ne fonctionnait pas ...

Est-ce que vous avez une idée ?

Merci d'avance.

Salutations,

Bonjour,

Citation:

Envoyé par KevinWilhems

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

Je pense que tu fais une utilisation hasardeuse de tes variables, regardes si ceci ne fonctionnerait pas de façon plus juste

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Sub test()
Dim CT, CAT As Range
Dim D0, critere1, critere2, critere, AdresseTrouvee As String
Dim i, j As Integer
 
critere = Split("D0,VLCC", ",")
 
For j = 0 To 1
 
    Set CT = Sheets("TEMP").Range("A15:OP47").Find(critere(j))
    If Not CT Is Nothing Then MsgBox critere(j) & " => " & CT.Address
 
    Set CAT = Sheets("CQM_1").Range("A1:T33").Find(critere(j))
    If Not CAT Is Nothing Then MsgBox critere(j) & " => " & CAT.Address
 
 
Next j
Set CT = Nothing
Set CAT = Nothing
End Sub