Faire la somme cells comprise entres 2 cells suivant condition
Fermé
Séb
-
3 nov. 2017 à 10:12
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 - 6 nov. 2017 à 18:13
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 - 6 nov. 2017 à 18:13
A voir également:
- Faire la somme cells comprise entres 2 cells suivant condition
- Somme si couleur - Guide
- Somme excel - Guide
- Excel cellule couleur si condition texte - Guide
- 2 comptes whatsapp - Guide
- 2 ecran pc - Guide
8 réponses
eriiic
Messages postés
24569
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
14 mars 2024
7 208
4 nov. 2017 à 23:44
4 nov. 2017 à 23:44
Bonjour,
merci d'utiliser un site qui n'impose pas de pub stp.
cjoint.com ou mon-partage.fr par exemple.
eric
merci d'utiliser un site qui n'impose pas de pub stp.
cjoint.com ou mon-partage.fr par exemple.
eric
bonjour et merci pour les lien.
Le fichier mis au bon endroit ;)
http://www.cjoint.com/c/GKggwfqWuk3
Le fichier mis au bon endroit ;)
http://www.cjoint.com/c/GKggwfqWuk3
ccm81
Messages postés
10850
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 mars 2024
2 403
6 nov. 2017 à 14:05
6 nov. 2017 à 14:05
Bonjour à tous les deux
Essaies ceci
http://www.cjoint.com/c/GKgndSF1H7B
Cdlmnt
Essaies ceci
http://www.cjoint.com/c/GKgndSF1H7B
Cdlmnt
Bonjour et merci pour ta réponse.
je viens de regarder ton fichier avec le plus grand intérêt, c'est exactement ce que je souhaitais, merci.
Par contre, je ne sais pas si cela viens de mon excel, mais lorsque je change une valeur de la feuil2, rien de ce passe dans la feuil1 en D11...
la valeur change bien en colonne M...
Te pourrais, s'il te plait, me faire une explication de texte :) ?
Merci d'avance
Séb
je viens de regarder ton fichier avec le plus grand intérêt, c'est exactement ce que je souhaitais, merci.
Par contre, je ne sais pas si cela viens de mon excel, mais lorsque je change une valeur de la feuil2, rien de ce passe dans la feuil1 en D11...
la valeur change bien en colonne M...
Te pourrais, s'il te plait, me faire une explication de texte :) ?
Merci d'avance
Séb
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ccm81
Messages postés
10850
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 mars 2024
2 403
6 nov. 2017 à 16:19
6 nov. 2017 à 16:19
Tu ajoutes cette instruction qui relance le calcul à chaque changement
T = 0
Application.Volatile
With Sheets(F2)
Cdlmnt
T = 0
Application.Volatile
With Sheets(F2)
Cdlmnt
Merci beaucoup, ca fonctionne nickel.
serais t-il possible d'avoir une explication sur qui fait quoi?
Je sais déjà, que tu déclare T, obj, liobj et limas comme variable.
m, je vois pas...
Tu fais une boucle, sur une colonne "cocom" (colonne D soit composant)
mais après, c'est un peu flou...
merci encore pour le fichier et surout pour l'explication ;)
Séb
serais t-il possible d'avoir une explication sur qui fait quoi?
Je sais déjà, que tu déclare T, obj, liobj et limas comme variable.
m, je vois pas...
Tu fais une boucle, sur une colonne "cocom" (colonne D soit composant)
mais après, c'est un peu flou...
merci encore pour le fichier et surout pour l'explication ;)
Séb
ccm81
Messages postés
10850
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 mars 2024
2 403
6 nov. 2017 à 16:48
6 nov. 2017 à 16:48
Quelques explications
Cdlmnt
Option Explicit ' oblige à déclarer les variables utilisées ' constantes décrivant la configuration dans la feuille des données Const F2 As String = "Feuil2" Const cocom As String * 1 = "D" Const comas As String * 1 = "A" Public Function Total(chapitre As String) As Double Dim T As Double ' total Dim obj As Object ' va contenir le resultat de la recherche de chapitre dans F2 Dim liobj As Long ' ligne où chapitre est trouvé Dim limas As Long ' ligne masse ' initialisation du total T = 0 ' relance le recalcul de total à chaque modification dans le classeur Application.Volatile ' depuis la feuille F2 With Sheets(F2) ' recherche de chapitre dans la colonne cocom Set obj = .Columns(cocom).Find(chapitre, , , xlWhole) ' si pas trouvé on va à fin: et total vaudra 0 If obj Is Nothing Then GoTo fin ' ligne où chapitre est trouvé liobj = obj.Row ' première ligne des masses limas = liobj + 1 ' tant que la colonne comas n'est pas vide ' on ajoute la masse ' on passe à la ligne suivante While .Range(comas & limas).Value <> "" T = T + .Range(comas & limas).Value limas = limas + 1 Wend End With fin: ' renvoi du résultat Total = T End Function
Cdlmnt
ccm81
Messages postés
10850
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 mars 2024
2 403
6 nov. 2017 à 18:13
6 nov. 2017 à 18:13
De rien
Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)
Bonne soirée
Si c'est fini, peux tu mettre le sujet à résolu (en dessous du titre de ton premier message)
Bonne soirée