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

Signaler
Messages postés
9
Date d'inscription
mardi 19 décembre 2017
Statut
Membre
Dernière intervention
10 janvier 2020
-
Magouel
Messages postés
9
Date d'inscription
mardi 19 décembre 2017
Statut
Membre
Dernière intervention
10 janvier 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
23228
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
24 janvier 2020
5 875
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
Messages postés
23228
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
24 janvier 2020
5 875
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
9
Date d'inscription
mardi 19 décembre 2017
Statut
Membre
Dernière intervention
10 janvier 2020

Messages postés
9
Date d'inscription
mardi 19 décembre 2017
Statut
Membre
Dernière intervention
10 janvier 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