La fonction SUM avec colonne variable

Fermé

imaneyass - 23 juil. 2018 à 17:19
ccm81 Messages postés 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 - 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
Formule somme excel colonne - Guide
Trier colonne excel - Guide
Colonne word - Guide

5 réponses

Réponse 1 / 5

jordane45 Messages postés 38472 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 5 mai 2025 4 744
23 juil. 2018 à 17:22

Bonjour,

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

jordane45 Messages postés 38472 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 5 mai 2025 4 744
23 juil. 2018 à 17:23

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

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

imaneyass
24 juil. 2018 à 11:48

Merciiiiiiii ça fonctionne parfaitement chez moi!

imaneyass
25 juil. 2018 à 12:23

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 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 2 431
Modifié le 25 juil. 2018 à 14:22

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
25 juil. 2018 à 14:42

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 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 2 431
25 juil. 2018 à 14:45

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
25 juil. 2018 à 15:32

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

Réponse 4 / 5

ccm81 Messages postés 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 2 431
Modifié le 25 juil. 2018 à 16:00

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 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 2 431
25 juil. 2018 à 16:02

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
25 juil. 2018 à 16:21

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 10908 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 2 mai 2025 2 431
25 juil. 2018 à 16:31

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

Tri les lettres d'un mot par ordre alphabétique

Etendre une formule en colonne avec des données en ligne

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