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<>"":
Object Variable or With block variable not set
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.