Discussion :

[actuenligne]

Bonjour à tous,

J'essaye d'utiliser la methode .find en VBA.

Quand je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set actual_range = .Find("x", lookat:=xlWhole)

ça marche très bien.

Dès lors, pourquoi donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ref_val = Sheets("feuil1").Range("A1").Value
Set actual_range = .Find(ref_val, lookat:=xlWhole)

ne marche pas ??
J'ai bien vérifié avec une MsgBox, ref_val est bien un string.
Avez-vous une idée ?

Merci d'avance, et bonne fin de journée

[gFZT82]

Bonjour actuenligne,

Voici un exemple avec une recherche de ref_val dans la colonne B.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim ref_val As String
Dim actual_range As Range
 
    ref_val = Sheets("Feuil1").Range("A1").Value
 
    With Worksheets("Feuil1").Range("B:B")
        Set actual_range = .Find(ref_val, LookIn:=xlValues)
        MsgBox "Trouvé : " & actual_range
    End With
End Sub

Cordialement.

[actuenligne]

Ah, c'était donc ce LookIn:=xlValues qui me manquait !
Merci beaucoup gFZT82, et merci aussi d'avoir pris le temps
de me montrer un exemple.

Bonne journée !