Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA Excel SUMIF

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gb00000
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

gb00000

Guest
Bonjour,

J'aimerais faire une formule somme.si avec VBA qui irait du début d'un tableau selon une plage prédéterminée et qui se rend jusqu'à la fin selon jusqu'où va le tableau.

Comme vous voyez mon critère est "c" et se trouve dans la colonne C et mes chiffres à sommer, en fonction dudit critère, sont dans la colonne D

La formule à la fin devrait ressembler à ceci:
=SOMME.SI(C7:C22;"c";D7: D22)

À la fin j'ai ajouté un espace volontairement avant le D pour éviter que ça fasse un smiley dans: "D7; D"


Voici ce que j'ai tenté de faire mais que ne fonctionne pas et je ne sais pas pourquoi:
Range("H6") = "SUMIF(C7:C" & Range("C7").End(x1Down).Row & ";" & Chr(34) & "c" & Chr(34) & ";D7: D" & Range("D7").End(x1Down).Row & ")"

Ici aussi le truc du "D7; D", le "Pas d'icône" est pourtant coché en bas...

Mon but est entre autre de pouvoir voir la formule dans la case à la fin et non d'avoir un chiffre qui semble "pluggué"

Si quelqu'un arrive à m'aider, un gros merci d'avance. Je ne suis pas un super pro de VBA alors croyez moi j'ai gossé longtemps là dessus avant de venir dans un forum.

Merci
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : VBA Excel SUMIF

Bonjour gb00000 et bienvenue sur le forum,

Voici 2 propositions qui devraient fonctionner.
Note que mon système est en anglais, donc les séparateurs sont des , au lieu des ; dans les formules.
À ajuster au besoin.

Code: 
ActiveSheet.Range("H6") = Application.SumIf(Range("C7:C2" & Range("C60000").End(xlUp).Row), "c", Range("D7:D2" & Range("D60000").End(xlUp).Row))
ActiveSheet.Range("H6").Formula = "=sumif(C7:C" & Range("C60000").End(xlUp).Row & ", ""c"",D7:D2" & Range("D60000").End(xlUp).Row & ")"

A+
 
Vote positif 0 Vote négatif
Re : VBA Excel SUMIF

Bonjour gb00000, Grand Chaman Excel,

Avec la propriété Formula, il faut toujours la syntaxe anglaise.

Si l'on veut utiliser la syntaxe française (pour Excel version française), utiliser la propriété FormulaLocal.

A+
 
Vote positif 0 Vote négatif
Re : VBA Excel SUMIF

Re,

Grand Chaman Excel a laissé trainer des 2 de trop, je corrige :

Code: 
ActiveSheet.Range("H6") = Application.SumIf(Range("C7:C" & Range("C60000").End(xlUp).Row), "c", Range("D7:D" & Range("D60000").End(xlUp).Row))

ActiveSheet.Range("H6").Formula = "=sumif(C7:C" & Range("C60000").End(xlUp).Row & ", ""c"",D7:D" & Range("D60000").End(xlUp).Row & ")"
A+
 
Vote positif 0 Vote négatif
Re : VBA Excel SUMIF

Bonjour

Une autre façon d'écrire pour un même résultat
Code: 
Dim dl As Long
dl = Range("C60000").End(xlUp).Row
ActiveSheet.Range("H6") = Application.SumIf(Range("C7").Resize(dl), "c", Range("D7").Resize(dl))
 
Vote positif 0 Vote négatif
Re : VBA Excel SUMIF

Bonjour le fil, le forum,

Bien d'accord avec TempusFugit pour simplifier.

Et s'il n'y a pas des "c" qui se baladent sur la plage C1:C6 on peut même écrire :

Code: 
Range("H6") = Application.SumIf(Columns("C"), "c", Columns("D"))

Range("H6").Formula = "=sumif(C:C,""c"",D:D)"
A+
 
Vote positif 0 Vote négatif
Re : VBA Excel SUMIF

Merci beaucoup pour votre aide. C'est vraiment gentil. C'était vraiment un question de nomenclature selon moi parce que j'ai essayé des trucs qui ressemblaient à ça et ne fonctionnaient pas.

J'ai retenu cette version (légèrement adapté):

ActiveSheet.Range("H6").Formula = "=sumif(C7:C" & Range("C7").End(xlDown).Row & ", ""c"",D7: D" & Range("D7").End(xlDown).Row & ")"

Je trouve que c'est ce qui est le plus proche de ce que je voulais

Encore merci.
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
136
Eric 888
I
  • Résolu(e)
Microsoft 365 formule =SOMME.SI(A2:A17;A1;D2:D17) Flexible en VBA
Réponses
3
Affichages
543
iliess
I
R
  • Question Question
XL 2016 excel 2016 VBA
Réponses
2
Affichages
507
rebatte
R
  • Question Question
XL 2021 VBA: Extraction des paramètres d'une formule (texte)
2
Réponses
28
Affichages
2 K
p'tit vieux
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
A
  • Question Question
Microsoft 365 Code VBA Envoi contenu tableau Excel par Email
Réponses
1
Affichages
588
Phil69970
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
3 K
Dranreb
G
  • Question Question
Microsoft 365 Export données d'une listview
Réponses
5
Affichages
753
GClaire
G
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
I
  • Question Question
Microsoft 365 SOMMEPROD en vba excel
Réponses
12
Affichages
756
iliess
I
EXCEL :: Les Tableaux Structurés :: Une classe VBA pour mieux les gérer - V1.02
Réponses
4
Affichages
893
bsalv
B
O
  • Question Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
822
Oneida
H
  • Question Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
875
HANN
H
P
  • Résolu(e)
XL 2016 4 étapes en 1 seule Excel vba
Réponses
4
Affichages
936
Pygos691
P
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
779
loreak
L
M
  • Question Question
XL 2019 Optimisation code VBA
Réponses
11
Affichages
1 K
mmaiga
M
L
  • Question Question
Microsoft 365 VBA sur outlook
Réponses
14
Affichages
1 K
lesoldat9
L
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
1 K
MickaeL_D
M
O
  • Question Question
XL 2010 suppression fichiers excel vba
Réponses
9
Affichages
804
Oneida
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
978
olivier388
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…