J'ai créé un tcd qui me renseigne sur la disponibilté de mes associés.
J'eus aimé ;-) que ce tcd se mette à jour automatiquement à chaque fois
qu'une cellule spécifique est modifiée (A15)
J'ai aussi essayé de travailler avec un tcd en utilisant le pivot PAGE mais
l'aspect de mon tcd est totalement modifié, ce que je ne désire pas.
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
Denis Michon
Bonjour Rodrigue,
à copier dans le module feuille où l'action se déroule. PivotTables(1), dans ta feuille, l'index de la collection PivotTables() n'est peut être pas 1 à adapter ou à remplacer par son nom.
'-------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A15").Address Then PivotTables(1).PivotCache.Refresh End If
End Sub '--------------------
Salutations!
"Rodrigue" a écrit dans le message de news:% Salut
J'ai créé un tcd qui me renseigne sur la disponibilté de mes associés. J'eus aimé ;-) que ce tcd se mette à jour automatiquement à chaque fois qu'une cellule spécifique est modifiée (A15)
J'ai aussi essayé de travailler avec un tcd en utilisant le pivot PAGE mais l'aspect de mon tcd est totalement modifié, ce que je ne désire pas.
Merci pour vos conseils ROD
Bonjour Rodrigue,
à copier dans le module feuille où l'action se déroule.
PivotTables(1), dans ta feuille, l'index de la collection PivotTables() n'est peut être pas 1 à adapter ou à remplacer
par son nom.
'--------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A15").Address Then
PivotTables(1).PivotCache.Refresh
End If
End Sub
'--------------------
Salutations!
"Rodrigue" <rodrigue_chat@netcourrier.com> a écrit dans le message de news:%23sAg1cQsDHA.2304@tk2msftngp13.phx.gbl...
Salut
J'ai créé un tcd qui me renseigne sur la disponibilté de mes associés.
J'eus aimé ;-) que ce tcd se mette à jour automatiquement à chaque fois
qu'une cellule spécifique est modifiée (A15)
J'ai aussi essayé de travailler avec un tcd en utilisant le pivot PAGE mais
l'aspect de mon tcd est totalement modifié, ce que je ne désire pas.
à copier dans le module feuille où l'action se déroule. PivotTables(1), dans ta feuille, l'index de la collection PivotTables() n'est peut être pas 1 à adapter ou à remplacer par son nom.
'-------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A15").Address Then PivotTables(1).PivotCache.Refresh End If
End Sub '--------------------
Salutations!
"Rodrigue" a écrit dans le message de news:% Salut
J'ai créé un tcd qui me renseigne sur la disponibilté de mes associés. J'eus aimé ;-) que ce tcd se mette à jour automatiquement à chaque fois qu'une cellule spécifique est modifiée (A15)
J'ai aussi essayé de travailler avec un tcd en utilisant le pivot PAGE mais l'aspect de mon tcd est totalement modifié, ce que je ne désire pas.
Merci pour vos conseils ROD
Rodrigue
IMPECC !! pas une virgule à changer ..
je ne puis m'enpêcher d'en demander un peu plus ... quelle syntaxe permettrait de mettre automatiquement le tcd à chaque modif de la liste source ?? (j'ai essayé dans ta routine des trucs du genre ..... Range ("C2:E125") mais sans succès ...)
en tout cas MERCI de ton aide ROD
"Denis Michon" a écrit dans le message news: 6ELvb.60008$
Bonjour Rodrigue,
à copier dans le module feuille où l'action se déroule. PivotTables(1), dans ta feuille, l'index de la collection PivotTables() n'est peut être pas 1 à adapter ou à remplacer
par son nom.
'-------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A15").Address Then PivotTables(1).PivotCache.Refresh End If
End Sub '--------------------
Salutations!
"Rodrigue" a écrit dans le message de news:%
Salut
J'ai créé un tcd qui me renseigne sur la disponibilté de mes associés. J'eus aimé ;-) que ce tcd se mette à jour automatiquement à chaque fois qu'une cellule spécifique est modifiée (A15)
J'ai aussi essayé de travailler avec un tcd en utilisant le pivot PAGE mais
l'aspect de mon tcd est totalement modifié, ce que je ne désire pas.
Merci pour vos conseils ROD
IMPECC !!
pas une virgule à changer ..
je ne puis m'enpêcher d'en demander un peu plus ...
quelle syntaxe permettrait de mettre automatiquement le tcd à chaque modif
de la liste source ??
(j'ai essayé dans ta routine des trucs du genre ..... Range ("C2:E125") mais
sans succès ...)
en tout cas MERCI de ton aide
ROD
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message news:
6ELvb.60008$Ng3.12001@charlie.risq.qc.ca...
Bonjour Rodrigue,
à copier dans le module feuille où l'action se déroule.
PivotTables(1), dans ta feuille, l'index de la collection PivotTables()
n'est peut être pas 1 à adapter ou à remplacer
par son nom.
'--------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A15").Address Then
PivotTables(1).PivotCache.Refresh
End If
End Sub
'--------------------
Salutations!
"Rodrigue" <rodrigue_chat@netcourrier.com> a écrit dans le message de
news:%23sAg1cQsDHA.2304@tk2msftngp13.phx.gbl...
Salut
J'ai créé un tcd qui me renseigne sur la disponibilté de mes associés.
J'eus aimé ;-) que ce tcd se mette à jour automatiquement à chaque fois
qu'une cellule spécifique est modifiée (A15)
J'ai aussi essayé de travailler avec un tcd en utilisant le pivot PAGE
mais
l'aspect de mon tcd est totalement modifié, ce que je ne désire pas.
je ne puis m'enpêcher d'en demander un peu plus ... quelle syntaxe permettrait de mettre automatiquement le tcd à chaque modif de la liste source ?? (j'ai essayé dans ta routine des trucs du genre ..... Range ("C2:E125") mais sans succès ...)
en tout cas MERCI de ton aide ROD
"Denis Michon" a écrit dans le message news: 6ELvb.60008$
Bonjour Rodrigue,
à copier dans le module feuille où l'action se déroule. PivotTables(1), dans ta feuille, l'index de la collection PivotTables() n'est peut être pas 1 à adapter ou à remplacer
par son nom.
'-------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A15").Address Then PivotTables(1).PivotCache.Refresh End If
End Sub '--------------------
Salutations!
"Rodrigue" a écrit dans le message de news:%
Salut
J'ai créé un tcd qui me renseigne sur la disponibilté de mes associés. J'eus aimé ;-) que ce tcd se mette à jour automatiquement à chaque fois qu'une cellule spécifique est modifiée (A15)
J'ai aussi essayé de travailler avec un tcd en utilisant le pivot PAGE mais
l'aspect de mon tcd est totalement modifié, ce que je ne désire pas.
Merci pour vos conseils ROD
Denis Michon
Bonjour Rodrigue,
Est-ce que ceci résout ta difficulté :
à copier dans le module feuille où l'action se déroule
'------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Range("C2:E125"), Target) If Not Rg Is Nothing Then PivotTables(1).PivotCache.Refresh End If Set Rg = Nothing
End Sub '-------------------------
Salutations!
"Rodrigue" a écrit dans le message de news:% IMPECC !! pas une virgule à changer ..
je ne puis m'enpêcher d'en demander un peu plus ... quelle syntaxe permettrait de mettre automatiquement le tcd à chaque modif de la liste source ?? (j'ai essayé dans ta routine des trucs du genre ..... Range ("C2:E125") mais sans succès ...)
en tout cas MERCI de ton aide ROD
"Denis Michon" a écrit dans le message news: 6ELvb.60008$
Bonjour Rodrigue,
à copier dans le module feuille où l'action se déroule. PivotTables(1), dans ta feuille, l'index de la collection PivotTables() n'est peut être pas 1 à adapter ou à remplacer
par son nom.
'-------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A15").Address Then PivotTables(1).PivotCache.Refresh End If
End Sub '--------------------
Salutations!
"Rodrigue" a écrit dans le message de news:%
Salut
J'ai créé un tcd qui me renseigne sur la disponibilté de mes associés. J'eus aimé ;-) que ce tcd se mette à jour automatiquement à chaque fois qu'une cellule spécifique est modifiée (A15)
J'ai aussi essayé de travailler avec un tcd en utilisant le pivot PAGE mais
l'aspect de mon tcd est totalement modifié, ce que je ne désire pas.
Merci pour vos conseils ROD
Bonjour Rodrigue,
Est-ce que ceci résout ta difficulté :
à copier dans le module feuille où l'action se déroule
'-------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
Set Rg = Intersect(Range("C2:E125"), Target)
If Not Rg Is Nothing Then
PivotTables(1).PivotCache.Refresh
End If
Set Rg = Nothing
End Sub
'-------------------------
Salutations!
"Rodrigue" <rodrigue_chat@netcourrier.com> a écrit dans le message de news:%23XpndQSsDHA.1060@TK2MSFTNGP12.phx.gbl...
IMPECC !!
pas une virgule à changer ..
je ne puis m'enpêcher d'en demander un peu plus ...
quelle syntaxe permettrait de mettre automatiquement le tcd à chaque modif
de la liste source ??
(j'ai essayé dans ta routine des trucs du genre ..... Range ("C2:E125") mais
sans succès ...)
en tout cas MERCI de ton aide
ROD
"Denis Michon" <denis.michon@cgocable.ca> a écrit dans le message news:
6ELvb.60008$Ng3.12001@charlie.risq.qc.ca...
Bonjour Rodrigue,
à copier dans le module feuille où l'action se déroule.
PivotTables(1), dans ta feuille, l'index de la collection PivotTables()
n'est peut être pas 1 à adapter ou à remplacer
par son nom.
'--------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A15").Address Then
PivotTables(1).PivotCache.Refresh
End If
End Sub
'--------------------
Salutations!
"Rodrigue" <rodrigue_chat@netcourrier.com> a écrit dans le message de
news:%23sAg1cQsDHA.2304@tk2msftngp13.phx.gbl...
Salut
J'ai créé un tcd qui me renseigne sur la disponibilté de mes associés.
J'eus aimé ;-) que ce tcd se mette à jour automatiquement à chaque fois
qu'une cellule spécifique est modifiée (A15)
J'ai aussi essayé de travailler avec un tcd en utilisant le pivot PAGE
mais
l'aspect de mon tcd est totalement modifié, ce que je ne désire pas.
à copier dans le module feuille où l'action se déroule
'------------------------- Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range Set Rg = Intersect(Range("C2:E125"), Target) If Not Rg Is Nothing Then PivotTables(1).PivotCache.Refresh End If Set Rg = Nothing
End Sub '-------------------------
Salutations!
"Rodrigue" a écrit dans le message de news:% IMPECC !! pas une virgule à changer ..
je ne puis m'enpêcher d'en demander un peu plus ... quelle syntaxe permettrait de mettre automatiquement le tcd à chaque modif de la liste source ?? (j'ai essayé dans ta routine des trucs du genre ..... Range ("C2:E125") mais sans succès ...)
en tout cas MERCI de ton aide ROD
"Denis Michon" a écrit dans le message news: 6ELvb.60008$
Bonjour Rodrigue,
à copier dans le module feuille où l'action se déroule. PivotTables(1), dans ta feuille, l'index de la collection PivotTables() n'est peut être pas 1 à adapter ou à remplacer
par son nom.
'-------------------- Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A15").Address Then PivotTables(1).PivotCache.Refresh End If
End Sub '--------------------
Salutations!
"Rodrigue" a écrit dans le message de news:%
Salut
J'ai créé un tcd qui me renseigne sur la disponibilté de mes associés. J'eus aimé ;-) que ce tcd se mette à jour automatiquement à chaque fois qu'une cellule spécifique est modifiée (A15)
J'ai aussi essayé de travailler avec un tcd en utilisant le pivot PAGE mais
l'aspect de mon tcd est totalement modifié, ce que je ne désire pas.
