Discussion :

[révèr]

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 :

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

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

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

[ARTURO83]

Bonjour,

Essayez ceci, pas testé

Code :

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

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 :

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

    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

[révèr]

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 :

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

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 :

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

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

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

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

?Range("A1").Formula

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

Code :

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

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