XL 2016 Chercher une valeur à partir d'une variable

[ninos06]

salut à tous
ci-joint mon programme

Sub cherche()

Dim x As Range

Dim x1 As String

Dim x2 As String

Dim r As String

Sheets("nabil").Select

r = Range("A1").Value

Sheets("DBF").Select

Range("A1").Select

Set x = Range("A1:C20000").Find("*2.500.200,00", , xlValues, xlWhole, , , False)

je veut changer le montant 2.500.200,00 par une variable que je saisie dans la cellule A1 dans la feuille Nabil

x1 = x.Row + 2

x2 = x.Row - 31

Sheets("DBF").Select

Range("A" & x1 & ":C" & x2).Select

End Sub

je veut changer le montant 2.500.200,00 par une variable que je saisie dans la cellule A1 dans la feuille Nabil


mes salutations

 

[Dranreb]

Bonjour.
Essayez :

Set x = Range("A1:C20000").Find(r, , xlValues, xlPart, , , False)

 

[ninos06]

merci Dranreb ca marche cool