problème selection.find avec variable

Bonjour,

J'essaye de savoir si c'est possible que le [what"nom"] dans Selection.Find soit une variable et si oui comment faire s'il vous plait?

exemple

Code:

---

1 2 3 4 5 6

Columns("B:B").Select Selection.Find(What:="ma_variable ", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate if selection.find = true then

---

Merci par avance

Bonjour,
Tout simplement en remplaçant la chaîne de caractères "maValeur" par le nom de la variable de type String

Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub t() Dim LookUpRange As Range ' Plage de recherche Dim CellFound As Range ' Cellule trouvée Dim LookupValue As String Set LookUpRange = Range("t_Staff").ListObject.ListColumns("Site").DataBodyRange LookupValue = "Lisbonne" Set CellFound = LookUpRange.Find(What:=LookupValue, After:=ActiveCell, LookAt:=xlWhole, LookIn:=xlValues) MsgBox "Trouvé " & LookupValue & " à l'adresse " & CellFound.Address Set LookUpRange = Nothing: Set CellFound = Nothing End Sub

---

A lire éventuellement Utiliser les variables en VBA Excel

Merci