Es que il existe une Fonction excel pour ça ? [Résolu/Fermé]

Signaler
Messages postés
20
Date d'inscription
mardi 19 décembre 2017
Statut
Membre
Dernière intervention
28 octobre 2020
-
Messages postés
20
Date d'inscription
mardi 19 décembre 2017
Statut
Membre
Dernière intervention
28 octobre 2020
-
Bonjours,

Pour mon entreprise de restauration à domicile j'ai créé sur Excel un planning qui répertorie dans les colonnes les prestations et les lignes pour les garnitures qui vont avec pour la semaine.

Il s'avère que je n'ai toujours pas trouvé de fonction qui qui permettent de faciliter le travail sur Excel explication:
Quand je rentre le poids des garnitures du client je suis obligé de rentrer les données manuellement ce qui peut me prendre pas mal de temps !

-Dans la colonne B les poids de garniture par personne
-Dans la colonne C11 j'ai le nombre de personnes à prendre en compte
-Et dans la colonne C entre 14 et 31 c'est la que je rentre les données en fonction de ce que les client on demander (C23=B23*C11)

Ma question est : Est-il possible de mettre une croix (X) dans la colonne où le client à demandé quel type de garniture et qu'elle se transforme en calcul automatiser ? (entre autres pour la : C23=B23*C11)

Voici des screen pour vous montrer le processus :

Le calcule que je fait de base :


Ce que je voudrais faire :


Ce que je voudrais qu'il se passe automatiquement :


lien du .xls (https://www.cjoint.com/c/ILoi42jJnyj)

Cordialement

4 réponses

Messages postés
23902
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
3 mars 2021
6 671
C'est normal de prendre la ligne 9 et non la 11 ?

Double-cliquer sur C14.
Si poids ou nb adultes <=0 rien ne se passe
Si C14 vide, on met la formule, sinon on l'enlève.
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column < 3 Or Target.Row < 14 Then Exit Sub
    Cancel = True
    If Not IsNumeric(Cells(Target.Column, 11)) Or Not IsNumeric(Cells(2, Target.Row)) Then Exit Sub
    If Cells(9, Target.Column) < 1 Or Cells(Target.Row, 2) <= 0 Then Exit Sub
    If Target = "" Then Target.Formula = "=" & Cells(9, Target.Column).Address(False, False) & "*" & Cells(Target.Row, 2).Address(False, False) Else Target.ClearContents
End Sub

https://www.cjoint.com/c/ILoj1jstcV7
eric

En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Messages postés
23902
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
3 mars 2021
6 671
Bonjour,

on ne peut travailler sur des images, il faut un fichier xls.
Le déposer sur cjoint.com et coller ici le lien fourni.
eric
Messages postés
20
Date d'inscription
mardi 19 décembre 2017
Statut
Membre
Dernière intervention
28 octobre 2020

Messages postés
20
Date d'inscription
mardi 19 décembre 2017
Statut
Membre
Dernière intervention
28 octobre 2020

Bonjours,

Merci beaucoup c'est bien ce que je demander et oui c'est normale que ça soit la ligne 9 car nous calculons le total donc Adulte et Enfants soit le total a prendre ne conte !

Cordialement