Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Excel international?

Excel international?

7 réponses
Avatar
René Delcourt
Bonjour les excellents,
Ma macro ci-après consiste à alterner la source de données de mon Tab.Cr.Dyn.
Elle s'adresse aussi à des utilisateurs germaniques et là, ça coince.
J'ai compris pourquoi :
"Transposebrut!L1C1:L197C8" = "Transposebrut!Z1S1:Z197S8"
Utiliser le langage international R1C1 ne m'avancera pas puisque c'est du
string.
Quelqu'un a-t-il une suggestion?
---------------------------------------
If ActiveSheet.PivotTables("TCeV").SourceData = "Transposebrut!L1C1:L197C8"
Then
ActiveSheet.Range("b7").Select
ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"Transpose!R1C1:R197C8"
et inversément
--
René Delcourt
Signaler un problème avec ce contenu

7 réponses

Supprimer
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
Avatar
AV
Utiliser le langage international R1C1 ne m'avancera pas ..


Hum...hum.. T'es bien sur que
= "Transposebrut!R1C1:R197C8"
ne marche pas ?

AV

Avatar
René Delcourt
Bonjour AV (pléonasme)
Hum...hum.. T'es bien sur que
= "Transposebrut!R1C1:R197C8"
ne marche pas ?
Merci de t'ntéresser à mon problème.

Oui. J'ai testé.
Cela doit être dû à la différence entre
SourceData = "Transposebrut!L1C1:L197C8" (c'est du texte) et
SourceData:= "Transposebrut!R1C1:R197C8" (c'est une valeur)
--
René Delcourt



Utiliser le langage international R1C1 ne m'avancera pas ..


Hum...hum.. T'es bien sur que
= "Transposebrut!R1C1:R197C8"
ne marche pas ?

AV






Avatar
AV
Pour te convaincre que la syntaxe :
SourceData:= "Transposebrut!R1C1:R197C8"
est valide, regarde un exemple là :


http://cjoint.com/?ispFwQjRPb

AV

Avatar
René Delcourt
Je suis tout à fait d'accord avec toi.
Mon problème ne porte pas sur
Sourcedata:= "Transposebrut!R1C1:R197C8"
mais sur
Sourcedata="Transposebrut!R1C1:R197C8" (sans le ":")(dans la condition IF)
où la condition est faussée puisque dans un Excel français il interprète
"Transposebrut!L1C1:L197C8"
et en allemand
"Transposebrut!Z1S1:Z197S8"
--
René Delcourt



Pour te convaincre que la syntaxe :
SourceData:= "Transposebrut!R1C1:R197C8"
est valide, regarde un exemple là :


http://cjoint.com/?ispFwQjRPb

AV






Avatar
AV
Mon problème ne porte pas sur
Sourcedata:= "Transposebrut!R1C1:R197C8"


Ok...j'avais lu un peu en diagonale
Et si tu nommais le tableau source du TCD?
Tu te dégagerais des "contraintes locales" pour tester le contenu de
"DataSource".

If ActiveSheet.PivotTables("Tableau croisé dynamique2").SourceData = "tablo"
Then MsgBox "zz"

AV

Avatar
René Delcourt
Voilà ce que je voulais lire!
J'essaierai demain, te remercie maintenant et te souhaite de bon moment ce
soir.
--
René Delcourt



Mon problème ne porte pas sur
Sourcedata:= "Transposebrut!R1C1:R197C8"


Ok...j'avais lu un peu en diagonale
Et si tu nommais le tableau source du TCD?
Tu te dégagerais des "contraintes locales" pour tester le contenu de
"DataSource".

If ActiveSheet.PivotTables("Tableau croisé dynamique2").SourceData = "tablo"
Then MsgBox "zz"

AV






Avatar
René Delcourt
Je m'en suis sorti ainsi.
Je me suis battu avec le "=" et le RefersTo.
Merci de ton aide

If "=" & ActiveSheet.PivotTables("TCkV").SourceData =
ActiveWorkbook.Names("TN").RefersToR1C1Local Then

--
René Delcourt



Mon problème ne porte pas sur
Sourcedata:= "Transposebrut!R1C1:R197C8"


Ok...j'avais lu un peu en diagonale
Et si tu nommais le tableau source du TCD?
Tu te dégagerais des "contraintes locales" pour tester le contenu de
"DataSource".

If ActiveSheet.PivotTables("Tableau croisé dynamique2").SourceData = "tablo"
Then MsgBox "zz"

AV