Excel: somme valeurs avec conditions
Résolu/Fermé
lzap17
Messages postés
2
Date d'inscription
vendredi 5 octobre 2018
Statut
Membre
Dernière intervention
6 octobre 2018
-
Modifié le 5 oct. 2018 à 16:29
ccm81 Messages postés 10906 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 13 janvier 2025 - 6 oct. 2018 à 14:15
ccm81 Messages postés 10906 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 13 janvier 2025 - 6 oct. 2018 à 14:15
A voir également:
- Excel: somme valeurs avec conditions
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Aller à la ligne excel - Guide
- Déplacer une colonne excel - Guide
2 réponses
ccm81
Messages postés
10906
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
13 janvier 2025
2 429
5 oct. 2018 à 18:03
5 oct. 2018 à 18:03
Bonjour
Tu n'as pas forcément besoin de vba
https://www.cjoint.com/c/HJfqc708zXB
Cdlmnt
Tu n'as pas forcément besoin de vba
https://www.cjoint.com/c/HJfqc708zXB
Cdlmnt
ccm81
Messages postés
10906
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
13 janvier 2025
2 429
5 oct. 2018 à 18:18
5 oct. 2018 à 18:18
Et si tu veux une macro
Cdlmnt
Option Explicit Const lideb = 2 ' premièere ligne 0 Const codeb = 1 ' colonne 0-15 Const cores = 5 ' colonne résultat Public Sub ok() Dim li1 As Long, li2 As Long, lifin As Long, s Application.ScreenUpdating = False lifin = Cells(Rows.Count, codeb).End(xlUp).Row li1 = lideb While Cells(li1 + 1, codeb) = 0 li1 = li1 + 1 Wend li2 = li1 While li2 < lifin s = 0 Do s = s + Cells(li2, codeb + 1) li2 = li2 + 1 Loop Until Cells(li2, codeb) = 0 Or Cells(li2, codeb) = "" If s <> 0 Then Cells(li1, cores) = s li1 = li2 Wend End Sub
Cdlmnt
lzap17
Messages postés
2
Date d'inscription
vendredi 5 octobre 2018
Statut
Membre
Dernière intervention
6 octobre 2018
6 oct. 2018 à 13:13
6 oct. 2018 à 13:13
Fantastique, merci ! les deux fonctionnent très bien !
ccm81
Messages postés
10906
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
13 janvier 2025
2 429
6 oct. 2018 à 14:15
6 oct. 2018 à 14:15
De rien,
Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)
Bon après midi
Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)
Bon après midi