La fonction SUM avec colonne variable

Fermé

imaneyass - 23 juil. 2018 à 17:19
ccm81 Messages postés 10856 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 10 mai 2024 - 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 une colonne excel - Guide
Colonne word - Guide
Additionner colonne excel - Guide
Excel colonne a disparue ✓ - Forum Excel

5 réponses

Réponse 1 / 5

jordane45 Messages postés 38173 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 10 mai 2024 4 665
23 juil. 2018 à 17:22

Bonjour,

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

jordane45 Messages postés 38173 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 10 mai 2024 4 665
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 10856 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 10 mai 2024 2 404
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 10856 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 10 mai 2024 2 404
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 10856 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 10 mai 2024 2 404
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 10856 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 10 mai 2024 2 404
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 10856 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 10 mai 2024 2 404
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

programme qui n'affiche pas le mot secret

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

je veut créer des codes

Formule magique excel??????

liste de noms par ordre alphabétique

Discussions similaires

Newsletters