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

VBA:Somme plage de cellule avec condition

Créer une discussion

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

Provence Vintage

XLDnaute Occasionnel
Bonjour,

Je cherche le bon code VBA qui me permette d'additionner toutes les lignes d'une colonne comprenant la valeur "X"

Qui a une idée!?

Mon code ne fonctionne pas!:

#Private Sub UserForm_Initialize()

Me.Height = Application.Height: Me.Width = Application.Width


With Sheets("bdd vendeurs") 'prend en compte l'onglet "Data"
For Each cel In .Range("P4😛" & .Range("P65536").End(xlUp).Row) 'boucle sur toute les cellules éditée de la colonne AL
If cel.Value = "X" Then
Label6.Caption = Application.Sum.Range("P4😛65536")
End If 'fin de la condition
Next 'prochaine cellule de la boucle
End With '


End Sub#

Merci et bonne journée
 
Trier par date Trier par votes
Re : VBA:Somme plage de cellule avec condition

Tu peux le faire sans VBA : créé une colonne que tu pourra masquer avec comme formule :
Colonne C : colonne avec ta valeur "X

Code: 
=SI(C6=X;X;0)

Reste plus qu'a additionner toute la colonne masquée.

Sinon, tu peux télécharger Morefunc (Ce lien n'existe plus), il y a une fonction SOMMESI, qui te fait la somme d'une colonne par exemple avec une condition.

Si tu as absolument besoin de le faire en VBA, je laisse les autres te conseiller 😀
 
Vote positif 0 Vote négatif
Re : VBA:Somme plage de cellule avec condition

Bonjour,

Comme vous avez indiqué :

'boucle sur toute les cellules éditée de la colonne AL
Cliquez pour agrandir...

Code: 
With Sheets("bdd vendeurs")
Label6.Caption = Application.SumIf(.Range("[COLOR="red"]AL[/COLOR]4:[COLOR="red"]AL[/COLOR]" & .Range("P65536").End(xlUp).Row), "X", .Range("P4:P65536"))
End With

Edit : plus simple je pense :

Code: 
Label6.Caption = Application.SumIf(.Range("[COLOR="red"]AL[/COLOR]4:[COLOR="red"]AL[/COLOR]65536"), "X", .Range("P4:P65536"))

Voire même :

Code: 
Label6.Caption = Application.SumIf(.Columns("[COLOR="red"]AL[/COLOR]"), "X", .Columns("P"))

A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA:Somme plage de cellule avec condition

Re,

Si je comprends bien Provence Vintage, ça s'appelle COMPTER les "X" 🙄

Alors s'ils sont bien colonne AL :

Code: 
Label6.Caption = Application.CountIf(Sheets("bdd vendeurs").Columns("AL"), "X")

Bloc With inutile of course.

A+
 
Vote positif 0 Vote négatif
Re : VBA:Somme plage de cellule avec condition

Job, le Fil,

Bonjour,
Job merci pour tes explications!
Comment sans faire le "Chadoc" y rajouter une condition de ce type:

#With Sheets("bdd acheteurs") 'prend en compte l'onglet "bdd acheteur"
For Each cel In .Range("B4:B" & .Range("B65536").End(xlUp).Row) 'boucle sur toute les cellules éditée de la colonne G
On Error GoTo suite 'gestion des erreurs (si la cellule n'est pas convertible en date, passe à la cellule suivante via l'étiquette "suite")

If CDate(cel.Value) >= Date - 7 Then #

Soit: pour toutes les dates de la semaine passée trouvées, calculer le nombre de X correspondant en colonne P!?

J'ai essayé mais ....
Merci
 
Vote positif 0 Vote négatif
Re : VBA:Somme plage de cellule avec condition

Bonjour,

Pas besoin de contrôle d'erreur a priori.

Voir cette macro qui COMPTE les fois où les 3 conditions sont VRAI :

Code: 
Sub Compte()
Dim cel As Range, n As Byte
For Each cel In Sheets("bdd acheteurs").Range("B4:B" & Sheets("bdd acheteurs").Range("B65536").End(xlUp).Row)
If [COLOR="Red"]cel >= Date - 7 And cel < Date And cel.Offset(, 14) = "X"[/COLOR] Then n = n + 1
Next
MsgBox n
End Sub

Fichier joint, pour visualiser (et pour le fun) j'y ai mis 2 MFC.

A+
 

Pièces jointes

Dernière édition:
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

Discussions similaires

J
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
465
TooFatBoy
Y
  • Résolu(e)
Affichage Userform en plein écran quelque soit la taille de l'écran
2
Réponses
22
Affichages
2 K
youguybass
Y
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
717
Lu76Fer
T
  • Résolu(e)
XL 2019 Gestion "pseudo-évènements" sur un userform
2
Réponses
15
Affichages
1 K
ThierryP
T
Astuce du jour (Lister les cellule avec formule avec référence circulaire)
Réponses
3
Affichages
511
Dranreb
  • Résolu(e)
XL 2010 Module de classe avec Dictionary
3 4 5
Réponses
66
Affichages
4 K
patricktoulon
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
870
AtTheOne
J
  • Question Question
XL 2019 recuperer plage de cellule sur feuille differente
Réponses
2
Affichages
688
juju91
J
N
  • Résolu(e)
Microsoft 365 Ajouter une condition dans une VBA
Réponses
2
Affichages
466
Nathan027
N
N
  • Question Question
Microsoft 365 Imbrication de deux formule Worksheet_BeforeDoubleClick
Réponses
1
Affichages
430
Nathan027
N
L
  • Question Question
Microsoft 365 Définir la touche échap pour fermer Userform avec onglets Multipage
Réponses
5
Affichages
588
vgendron
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
983
ChTi160
I
  • Question Question
XL 2016 Copier vers les feuilles avec condition
Réponses
4
Affichages
609
INFINITY100
I
M
  • Résolu(e)
Microsoft 365 Sélection ligne dans ListBox avec boutons précédent-suivant
4 5 6
Réponses
88
Affichages
5 K
meyscal
M
V
  • Résolu(e)
Microsoft 365 VBA effacer plusieurs cellules en fonctionde la valeur d'une dans une boucle for
2 3
Réponses
39
Affichages
3 K
vincent32
V
J
  • Question Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
I
  • Question Question
XL 2019 (RESOLU) Date de dernière modification d'une plage de cellule
Réponses
3
Affichages
1 K
patricktoulon
  • Résolu(e)
XL 2016 Somme des valeurs de cellule avec la condition du mois et une valeur dans une colonne
Réponses
9
Affichages
744
Dadi147
M
  • Question Question
XL 2021 Macro protege cellule avec Intersect
Réponses
9
Affichages
919
Michel_ja
M
F
  • Question Question
Microsoft 365 Ecrire dans une cellule suivant une autre en VBA
Réponses
4
Affichages
822
Francky79
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…