Discussion :

[Thierry42]

Bonjour,
Je galère depuis hier sur un problème. Et je vous assure que j'ai écumé tous les forums, mais je ne trouve pas de solution...

Voici mon problème. Je suis en train de créer une feuille Excel pour que ma fille puisse gérer simplement son compte bancaire (oui je sais il existe plein de logiciels pour ça, mais j'aime les défis).
Dans une cellule se trouve le montant rapproché, c'est à dire la différence entre les revenus et les dépenses qui ont été pointés. Les revenus se trouvent dans la colonne D, les dépenses dans la colonne E et les pointages dans la colonne G (sous forme d'un "R").

Lorsque je tape une formule directement dans la cellule en question tout va bien. Cette formule est :

=SOMME.SI(G10:G16;"R";D10: D16)-SOMME.SI(G10:G16;"R";E10:E16)

Le problème c'est que lorsque j'ajoute une ligne de revenu (ou de dépense) cette formule ne se met pas à jour. Donc je voulais la modifier par programmation.

Et à chaque essai je me retrouve avec une 'erreur d'exécution 1004 : erreur définie par l'application ou par l'objet'.
La formule simplifiée que j'utilise est :

Code :

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

ActiveCell.Formula = "=SUMIF(" & Range("G10:G16").Address(0, 0) & ";""R"";" & Range("D10: D16").Address(0, 0) & ")"

Le résultat que j'obtiens sans mettre "=" devant "SUMIF" est correct, mais en l'état ça ne marche pas.

Pourtant j'arrive au résultat avec :

Code :

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

ActiveCell.Formula = Application.SumIf(Range("G10:G16"), "R", Range("D10: D16"))

mais j’obtiens une valeur, pas une formule.

Juste pour information, je modifie de cette manière une autre cellule mais avec la fonction 'SUM' et ça fonctionne parfaitement.

Merci à vous si vous pouvez m'aider.

[Philippe Tulliez]

Bonjour,

Lorsque je tape une formule directement dans la cellule en question tout va bien. Cette formule est :
=SOMME.SI(G10:G16;"R";D10: D16)-SOMME.SI(G10:G16;"R";E10:E16)
Le problème c'est que lorsque j'ajoute une ligne de revenu (ou de dépense) cette formule ne se met pas à jour. Donc je voulais la modifier par programmation.

C'est tout à fait normal qu'en ajoutant une ligne la formule ne soit pas étendue.

Je ne peux que vous conseiller d'utiliser les tableaux structurés avant de vous attaquer au VBA

Un tutoriel à lire Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages(1)

et accessoirement en téléchargeant les mouvements bancaires en format csv et en utilisant PowerQuery vous gagneriez beaucoup de temps et votre fille également. Une fois le modèle de données définit, c'est un simple clic droit et la commande "actualiser"

[Thierry42]

Merci pour votre réponse.

Je sais bien que je ne suis pas un pro d'Excel. Je ne connais pas ces tableaux structurés mais je vais me pencher sur la question.

Pour ce qui est de PowerQuery c'est sûr qu'il y a beaucoup de solutions plus simples que celle que j'ai choisie (je l'évoque d'ailleurs dans mon message original), mais le travail que j'ai entrepris me permet aussi de me "former" à diverses fonctionnalités d'Excel et à progresser.
C'est entre autres choses pour cette raison que j'aimerais comprendre ce qui ne va pas dans mon code.

[Philippe Tulliez]

Bonjour,

C'est entre autres choses pour cette raison que j'aimerais comprendre ce qui ne va pas dans mon code.

Pour en savoir plus sur l'écriture de formules dans une plage de cellules en utilisant le VBA

• Ecrire une formule dans Excel à l'aide d'une procédure VBA
• Comment écrire une formule plus complexe dans une cellule ?

[Promethee25]

Bonjour,

Il est toujours intéressant pour déboguer une formule Excel écrite en VBA de passer par la consultation d'une formule similaire écrite directement dans Excel.
Exemple (à visualiser dans la fenêtre Exécution de VBE):

Code :

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

    Debug.Print [A3].Formula

où la case A3 contient la formule Excel

Code :

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

=SOMME.SI(G10:G16; "R"; D10:D16)

à comparer à ton texte:

Code :

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

    Debug.Print "=SUMIF(" & Range("G10:G16").Address(0, 0) & ";""R"";" & Range("D10: D16").Address(0, 0) & ")"

On voit alors tout de suite que le problème est que tu as utilisé le point-virgule comme séparateur alors que les formules Excel en anglais utilisent la virgule.


Sinon, je suis d'accord avec Philippe: passer par du VBA pour que la plage pointée par la formule s'étende n'est pas la bonne solution. Il faut utiliser un tableau structuré dont c'est l'un des apports majeurs.

[Thierry42]

J'ai trouvé !
Il suffit de remplacer les ';' par des ',' (formulation anglaise...)
Merci.

PS : nos messages se sont croisés.