Condition Date avec FormulaLocal

Version imprimable

Bonjour,

J'ai un petit problème avec l'insertion d'une condition "< date" lorsque j'utilise FormulaLocal.

Soit, dans le cas de ce code ci-contre, j'ai en résultat "FAUX FAUX" - aucune idée de pourquoi ça double, mais ce n'est pas mon problème (pour le moment)

Et lorsque je double le guillemet autour du signe <, j'ai une erreur 1004.

J'aimerai savoir comment faire pour que cela fonctionne correctement en utilisant ce critère : " < " & Résumé!$B$5 ? (qui est une date)
En TOTAL!Z:Z j'ai aussi des dates et la formule, directement écrite dans Excel fonctionne très bien.

Je vous mets le code ci-dessous, merci beaucoup de votre temps ! :)
Code:

1 2 3 4 5 6 7 8 9 10 Sub Test_ReelConso() Lig_Budget = 9 Do While Lig_Budget < 25 Worksheets("Résumé").Cells(Lig_Budget, 3).FormulaLocal = "=SI(Résumé!$A$2=""TOTAL"";SOMME.SI.ENS(TOTAL!W:W;TOTAL!X:X;Résumé!A" & Lig_Budget & ");TOTAL!Z:Z;" < "&Résumé!$B$5);2)" Lig_Budget = Lig_Budget + 1 Loop End Sub

26/11/2019, 09h40
Philippe Tulliez
Bonjour,
L'utilisation de la propriété FormulaLocal n'est pas une bonne idée à une époque où l'on internationalise tout.
La propriété Formula serait un meilleur choix pour rendre pérenne l'application et éviter le retour d'un utilisateur qui travaillerait avec une version excel d'une autre interface linguistique.

Pour en savoir plus sur le sujet, je te conseille la lecture de ces deux billets
- Ecrire une formule dans Excel à l'aide d'une procédure VBA
- Comment écrire une formule plus complexe dans une cellule ?
26/11/2019, 09h42
ARTURO83

Bonjour,

Essayez ceci, pas testé

Code:

Worksheets("Résumé").Cells(Lig_Budget, 3).FormulaLocal = "=SI(Résumé!$A$2=""TOTAL"";SOMME.SI.ENS(TOTAL!W:W;TOTAL!X:X;A" & Lig_Budget & ";TOTAL!Z:Z;""<$B$5"");2)"

ou bien

Code:

Worksheets("Résumé").Cells(Lig_Budget, 3).FormulaR1C1 = "=IF(Résumé!R2C1=""TOTAL"",SUMIFS(TOTAL!C[20],TOTAL!C[21]," & Lig_Budget & ",TOTAL!C[23],""<$B$5""),2)"

Cdlt

Je vous remercie de votre temps, j'en suis arrivé à un résultat concluant pour cette première partie de formule. La seconde partie concernera la condition "FAUX".

Déjà je me suis rendu compte qu'il y avait une parenthèse en trop juste après : & Lig_Budget &"). Cette parenthèse est désormais supprimée.

Des espaces inutiles rendaient la formule inefficace, j'ai donc remplacé ces espaces par un guillemet ce qui donne la partie :

Code:

TOTAL!Z:Z;""<"" &Résumé!$B$5

Ces espaces ainsi ignorés, la formule fonctionne parfaitement.

Je tiens de nouveau à vous remercier de votre temps.

La seconde partie du code ne sera pas bien compliquée puisqu'il n'y a qu'une condition à rajouter qui ne concerne que du texte. Je penserai bien évidemment à doubler les guillemets si nécessaire.

Bonne journée à vous, je vous quitte sur ce petit code !

Je retiens bien votre proposition de passer sous .Formula pour que celle-ci soit "trans-langue", mais dans l'état actuel des choses je n'ai aucun souci sur ce point-là. S'il m'advient de rencontrer ce genre de problème je saurai changer FormulaLocal en Formula. Merci pour la proposition !
Code:

1 2 3 4 5 6 7 8 9 10 Sub Test_ReelConso() Lig_Budget = 9 Do While Lig_Budget < 25 Worksheets("Résumé").Cells(Lig_Budget, 3).FormulaLocal = "=SI(Résumé!$A$2=""TOTAL"";SOMME.SI.ENS(TOTAL!W:W;TOTAL!X:X;Résumé!A" & Lig_Budget & ";TOTAL!Z:Z;""<"" &Résumé!$B$5);2)" Lig_Budget = Lig_Budget + 1 Loop End Sub

26/11/2019, 10h43
MarcelG
Bonjour à vous, Bonjour au Forum,

Utiliser une boucle Do While me semble compliquer une architecture de code qui pourrait être simple avec une seule formule.
Ce qui n'empêche pas une certaine rigueur.

Outre cette recommandation de travailler avec Formula et la lecture des billets de Philippe, que je salue au passage, tu peux:
- Commencer par écrire sur Excel une formule dont le résultat est correct
- Reporter la formulation en VBA sur la fenêtre Exécution

Code:

?Range("A1").Formula

puis touche Entrée
- La procédure en découlerait simplement
Code:

1 2 3 4 Sub laformulation() Const maformule As String = "la formule retournée précédemment" Worksheets("lawks").Range("A1:A5").Formula = maformule End Sub