Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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