Fameuses guillemets dans une formule de calcul

Version imprimable

05/05/2020, 09h55
ALEX80800

Fameuses guillemets dans une formule de calcul

Bonjour,

Je suis perdu dans les guillemets quand elles font référence à l'appel d'un fichier et quand la formule elle même fait référence à des guillemets et "&"

Code:

.Range("P" & l + compteur).FormulaLocal = "=SOMME.SI(VARIABLEMATERIEL!$D:$D;$M" & l + compteur & ";INDIRECT(ADRESSE(1;COLONNE($P$1)+SI(CNUM(GAUCHE($P$1;4))=Sommaire!$E$3;-5;8);;;'VARIABLEMATERIEL')""& "":"" & ""ADRESSE(400;COLONNE($P$1)+SI(CNUM(GAUCHE($P$1;4))=Sommaire!$E$3;-5;8);;;)))*SOMME.SI(TarifAppliquer!$D:$D;$M" & l + compteur & ";INDIRECT(ADRESSE(1;COLONNE($P$1)+SI(CNUM(GAUCHE($P$1;4))=Sommaire!$E$3;8;22);;;'TarifAppliquer')""&"":"" & ""ADRESSE(400;COLONNE($P$1)+SI(CNUM(GAUCHE($P$1;4))=Sommaire!$E$3;8;22);;;)))"

La formule de calcul excel est :

Code:

=SOMME.SI(VARIABLEMATERIEL!$D:$D;VARIABLEMATERIEL!M65;INDIRECT(ADRESSE(1;COLONNE($P$1)+SI(CNUM(GAUCHE($P$1;4))=Sommaire!$E$3;-5;8);;;"VARIABLEMATERIEL")&":"&ADRESSE(400;COLONNE($P$1)+SI(CNUM(GAUCHE($P$1;4))=Sommaire!$E$3;-5;8);;;)))*SOMME.SI(TarifAppliquer!$D:$D;TarifAppliquer!M65;INDIRECT(ADRESSE(1;COLONNE($P$1)+SI(CNUM(GAUCHE($P$1;4))=Sommaire!$E$3;8;22);;;"TarifAppliquer")&":"&ADRESSE(400;COLONNE($P$1)+SI(CNUM(GAUCHE($P$1;4))=Sommaire!$E$3;8;22);;;)))

Merci de votre aide
05/05/2020, 11h39
riaolle
Bonjour,
~~Tout d'abord, pour écrire une formule avec FormulaLocal, il faut que ce soit en anglais.~~ EDIT : faux !
Le plus simple pour savoir où mettre les guillemets et être sûr de la syntaxe et de procéder ainsi :
1. Dans la feuille, écrire la formule à l'endroit souhaité (à la main!).
2. Lancer l'enregistreur de macro.
3. Double-cliquer dans la cellule de la formule (entrer dans la cellule comme si on voulait la modifier).
4. Cliquer sur entrer.
5. Arrêter l'enregistreur de macro.
6. Regarder ce que ça donne comme code.
05/05/2020, 12h06
ALEX80800

riaolle,

merci pour ce retour.

Concernant

Citation:

pour écrire une formule avec FormulaLocal, il faut que ce soit en anglais

dans ma macro j'ai ce code qui fonctionne sans souci

Code:

Range("P" & l).FormulaLocal = "=SI(ET(DATE(GAUCHE($P$1;4);COLONNE(P" & l & ")-15;1)>$AE" & l & ";DATE(GAUCHE($P$1;4);COLONNE(P" & l & ")-15;1)<$M" & l & ");$AF" & l & ";0)+SI($O" & l & ">$M" & l & ";SI(ET(DATE(GAUCHE($P$1;4);COLONNE(P" & l & ")-15;1)>$M" & l & ";DATE(GAUCHE($P$1;4);COLONNE(P" & l & ")-15;1)<$O" & l & ");$N" & l & ";0);0)"

et pour

Citation:

Lancer l'enregistreur de macro.

ce n'est pas un réflexe que j'ai. Mais compte tenu qu'elle répond à mon besoin, j'adopte pour l'avenir.

Merci grandement.

Le bon code au cas ou ça servirait

Code:

.Range("P" & l + compteur).FormulaLocal = "=SOMME.SI(VARIABLEMATERIEL!$D:$D;$M" & l + compteur & ";INDIRECT(ADRESSE(1;COLONNE($P$1)+SI(CNUM(GAUCHE($P$1;4))=Sommaire!$E$3;-5;8);;;""VARIABLEMATERIEL"")&"":"" &ADRESSE(400;COLONNE($P$1)+SI(CNUM(GAUCHE($P$1;4))=Sommaire!$E$3;-5;8);;;)))*SOMME.SI(TarifAppliquer!$D:$D;$M" & l + compteur & ";INDIRECT(ADRESSE(1;COLONNE($P$1)+SI(CNUM(GAUCHE($P$1;4))=Sommaire!$E$3;8;22);;;""TarifAppliquer"")&"":"" &ADRESSE(400;COLONNE($P$1)+SI(CNUM(GAUCHE($P$1;4))=Sommaire!$E$3;8;22);;;)))"