Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Mise à jour d'un tcd en vba - Excel 97

1 réponse
Avatar
Jobert
Je bloque sur la mise à jour d'un TCD

en Excel 2000 pas de problème

en Excel 97 l'instruction suivante ne fonctionne pas

ActiveSheet.PivotTables("TCD NC").PivotFields("Dossier Adhérent").
_
CurrentPage = Range("Adh_Dossier") & " " &
Range("Adh_Adhérent_Cel")

Mystère !

1 réponse

Avatar
isabelle
bonjour Jobert,

sous xl97 il faut passer par la colection .PivotItems

With ActiveSheet.PivotTables("TCD NC").PivotFields("Dossier Adhérent")
For Each PI In .PivotItems
If PI.Value = Range("Adh_Dossier") & " " & Range("Adh_Adhérent_Cel") Then
.DataRange = Range("Adh_Dossier") & " " & Range("Adh_Adhérent_Cel")
Exit For
Else
MsgBox "Cette valeur n'a pas été trouver"
End If
Next PI
End With

isabelle


Je bloque sur la mise à jour d'un TCD

en Excel 2000 pas de problème

en Excel 97 l'instruction suivante ne fonctionne pas

ActiveSheet.PivotTables("TCD NC").PivotFields("Dossier Adhérent").
_
CurrentPage = Range("Adh_Dossier") & " " &
Range("Adh_Adhérent_Cel")

Mystère !