La fonction SUM avec colonne variable

imaneyass -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention - 25 juil. 2018 à 16:31

Bonjour,
je retrouve un problème dans le cadre de mon stage,
je veux faire des sommes sur plusieurs cellules dont la colonne est variable, cette variable est déterminée dans une autre procédure qui fait appel à ces sommes, j'ai utilisé cette syntaxe mais en vain.
Sub test(AC As String)
Sheets("Feuil4").Activate
Range("A1").Formula = "=SUM(EtatsFin!AC & 10, -EtatsFin!AC & 11)"
End Sub

Sub TEST()
Call imane("B")
End Sub
SVP aidez moi, j'en serais très reconnaissante.

A voir également:

La fonction SUM avec colonne variable
Fonction si et - Guide
Déplacer colonne excel - Guide
Trier colonne excel - Guide
Colonne word - Guide
Formule somme excel colonne - Guide

5 réponses

Réponse 1 / 5

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Bonjour,

"=SUM(EtatsFin!AC10, -EtatsFin!AC11)"

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

et si "10" et "11" doivent être remplacés par des variables...

"=SUM(EtatsFin!AC" & variable1 & ", -EtatsFin!AC" &  variable2 & ")"

imaneyass

Merciiiiiiii ça fonctionne parfaitement chez moi!

imaneyass

Bonjour Jordane, j'ai cru que ça marche mais en faite non, ça donne toujours la valeur 0.

Réponse 2 / 5

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Bonjour à tous les deux

Les propositions de Jordane45 fonctionnent bien, tu as peut être un problème ailleurs
Un test
https://www.cjoint.com/c/HGzmvDxSM7B

Cdlmnt

imaneyass

J'ai vérifié la format des cellules, j'ai mis nombre mais toujours le meme problème

Réponse 3 / 5

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Je suppose que c'est avec ton fichier que ça coince, peux tu envoyer un bout de ton fichier sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller".

Cdlmnt

imaneyass

https://www.cjoint.com/c/HGznDA1bmOI voila le lien merci beaucoup

Réponse 4 / 5

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Essaies

Sub imane(AC As String)
Sheets("Feuil1").Activate
ActiveSheet.Range("B12").Formula = "=SUM(Feuil1!" & AC & 8 & ",-Feuil1!" & AC & "9)"
End Sub

Cdlmnt

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

RQ1. Pour faire une simple soustraction, pas besoin de la fonction SOMME
RQ2. Le fait de construire la formule dans une variable, ici f, te permet en exécutant pas à pas de contrôler sa validité

Sub imane(AC As String)
Dim f As String
f = "=Feuil1!" & AC & 8 & "-Feuil1!" & AC & "9"
Sheets("Feuil1").Activate
ActiveSheet.Range("B12").Formula = f
End Sub

Cdlmnt

imaneyass

Merci beaucoup maintenant ça marche, en faite j'ai plusieurs cellules à programmer pour cela j'ai as utiliser la variable f l'exemple que je vous est montré est très réduit vu que c'est un fichier de stage et j'ai pas le droit de le partager complètement, sinon je te remercie infiniment.

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 433

Pas de problème

Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)

RQ. Tu peux écrire tes formules en français, attention au ";" à la place de la ","

Sub imane(AC As String)
Dim f As String
f = "=SOMME(Feuil1!" & AC & 8 & ";-Feuil1!" & AC & "9)"
Sheets("Feuil1").Activate
ActiveSheet.Range("B12").FormulaLocal = f
End Sub

Bon stage

Discussions similaires

Décalage de formule

vérifiez la variable d'environnement TEMP

VBA : Range avec références variables..

Votre réponse

Discussions similaires