Discussion :

[ALEX80800]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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

[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.

[ALEX80800]

riaolle,

merci pour ce retour.

Concernant

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.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);;;)))"