Discussion :

[comme de bien entendu]

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.

[SfJ5Rpw8]

LeTypeActOther est un objet... essai plutôt

Code :

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

if not (LeTypeActOther  is nothing )...

[dadavyvy]

le type de LeTypeActOther doit être un Range

Code :

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

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

[comme de bien entendu]

Merci de vos réponses.
Ca marche