Case à coché avec calcule

Résolu/Fermé
Blondy485 Messages postés 69 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 30 octobre 2020 - 6 août 2020 à 23:44
Blondy485 Messages postés 69 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 30 octobre 2020 - 7 août 2020 à 18:06
Bonjour,

Dans mon fichier je veux faire des cases à coché qui va générer un calcule. J'ai mis toutes les informations dans le tableau ci-joint.

https://www.cjoint.com/c/JHgvO1Xwpyl

Merci d'avance pour vos réponses.

10 réponses

via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
7 août 2020 à 17:14
clic droit sur le nom de l'onglet en bas et Visualiser le code
ou encore dans le Ruban - Developpeur puis Visual Basic
1
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
7 août 2020 à 00:17
Bonjour

Pour l'activité physique : =NB.SI(C34:E35;"X")*0,25/24 et mettre la cellule résultat au format Heure hh:mm

Pour l'eau : =NB.SI(C38:G39;"X")

Pour légumes : =NB.SI(C42:AW42;"X")
etc

Cdlmnt
Via

0
Blondy485 Messages postés 69 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 30 octobre 2020
7 août 2020 à 01:06
Oui je connais la formule à utiliser par contre je veux que la formule soit jumelé avec une case à cocher... là est mon problème.
0
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
7 août 2020 à 11:59
Dans ton fichier ce ne sont pas des cases à cocher mais des cellules dans lesquelles tu mets des X apparemment
Si tu veux tu peux mettre sur ces cellules des cases à cocher et mettre comme cellule liée la cellule en dessous de la case
Lorsque la case est cochée il s'inscrit VRAI dans le cellule (ne se voit pas car caché par la case)
Il suffit de compter ensuite les VRAI avec les mêmes formules NB.SI dans lesquelles tu remplaces "X" par VRAI
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Blondy485 Messages postés 69 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 30 octobre 2020
7 août 2020 à 13:29
Je fait comment... là est ma question en fait.
Je sait comment créer une case à cocher avec le contrôle de formulaire.
Par contre insérer la formule dans la case je n'y arrive pas et si je créer la case et fait un test pour cocher celle ci reste toujours cocher... incapable de la décocher. J'ai encore beaucoup de difficulté avec cette fonction.
0
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
7 août 2020 à 14:01
Ton fichier avec les cases à cocher et les formules pour la 1ere colonne
https://www.cjoint.com/c/JHhl7Geoi0I

Il te suffit de sélectionner toutes les cases à cocher de les copier et de les coller dans la 2eme colonne, ensuite case par case tu cliques droit sur la case - Propriétés et tu changes la cellule liée (Linked Cell)
Puis tu copies les formules de totaux


0
Blondy485 Messages postés 69 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 30 octobre 2020
7 août 2020 à 15:16
Un gros merci à vous ! Je vais étudier comment le tout à été fait afin de pouvoir bien le reproduire dans le future. Merci infiniment pour vôtre aide :-)
0
Blondy485 Messages postés 69 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 30 octobre 2020
7 août 2020 à 15:49
Est-ce qu'il y a une fonction pour être en mesure de tout décocher les cases rapidement ?
0
via55 Messages postés 14405 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 avril 2024 2 703
7 août 2020 à 16:45
Une fonction non mais une macro oui
Alt+F11 pour ouvrir l'éditeur VBA puis Insertion - Module, y coller la macro suivante et fermer l'éditeur
Sub decocher()
Dim obj As OLEObject
 For Each obj In ActiveSheet.OLEObjects
       If Left(obj.Name, 5) = "Check" Then obj.Object.Value = False
 Next obj
End Sub

Créer un bouton sur la feuille et y associer la macro
0
Blondy485 Messages postés 69 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 30 octobre 2020
7 août 2020 à 16:49
Alt + F11 m'ouvre un graphique... c'est quoi le chemin sans raccourcis ?
0
Blondy485 Messages postés 69 Date d'inscription lundi 4 avril 2016 Statut Membre Dernière intervention 30 octobre 2020
7 août 2020 à 18:06
Merci pour tout !
0