[VBA-E] Recupéré une recherche par find

Bonjour, je fais une recherche sur une colonne et je voudrais récuperer
le resultat de ma recherche, mais je ne parviens pas à récuperer
le contenu du résultat.

J'ai une erreur sur LeTypeActOther<>"":

Citation:

---

Object Variable or With block variable not set

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sheet = "WBS Market Research" With Worksheets(Sheet).Range("G:G") Set LeTypeActOther = .Find(What:="other", MatchCase:=False)     If LeTypeActOther <> "" Then rep = MsgBox("Do you want to put the Activities Types " & LeTypeActOther & " at the bottom of the Pivot Table ", vbYesNo) If rep = vbYes Then ActiveSheet.PivotTables(NouveauNomTCD).PivotFields("Activities Type"). _ PivotItems(LeTypeActOther).Position = Number_ActivType End If End If End With

---

D'avance merci de votre réponse.

LeTypeActOther est un objet... essai plutôt

Code:

---

if not (LeTypeActOther is nothing )...

---

le type de LeTypeActOther doit être un Range

Code:

---

1 2 3 4 5 6 7 8

Dim LeTypeActOther As Range ... Set LeTypeActOther = Worksheets(Sheet).Find(What:="other", MatchCase:=False) If Not LeTypeActOther Is Nothing Then MsgBox LeTypeActOther.Text ... End If

---

Merci de vos réponses.
Ca marche