Microsoft 365 Ecrire une formule de calcul en Vba Excel

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion NONO14
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

NONO14

XLDnaute Impliqué
Bonjour à toutes et à tous,

Comment pourrait-on écrire cette formule de calcul en Vba, s'il vous plaît ? Pour le moment elle est écrite en dur dans des cellules Excel de mon tableau.
Cependant, il m'est demandé de l'écrire dans du code afin que personne ne puisse y accéder. Cette formule se trouve dans la colonne J du tableau de la feuille "Recap", il y en d'autres du même genre dans les colonnes K et L et un peu plus simples dans les colonnes M, N, O.
Bien sûr je pourrais protéger ces colonnes mais ce n'est pas ce qui m'est demandé, j'ai proposé cette solution, mais elle ne garantie pas une sécurité suffisante en cas d'effacement malencontreux par la personne qui va gérer ce fichier.
MAX_MAT et autres sont des Noms donnés à des cellules de la feuille "Données", soit les cellules L3 à O5.
Mot de passe de la feuille "falaise"
Merci par avance pour vos idées.
VB: 
=SI(A2="";"";SI(A2<>"";SI(ET(D2<>"";E2<>"");E2-D2;SI(ET(D2<>"";E2="";F2<>"");MAX_MAT-D2;SI(ET(D2<>"";E2="";ET(F2<>"";G2=""));"";SI(ET(D2<>"";E2="";F2="";G2="";H2="";I2<>"");MAX_MAT-D2;SI(ET(D2<>"";E2="";F2="";G2<>"");MAX_MAT-D2;SI(ET(D2<>"";E2="";ET(F2="";G2="");ET(H2="";I2<>""));I2-D2;SI(ET(D2<>"";E2="";F2="";G2="");MAX_MAT-D2;SI(D2="";""))))))))))
 

Pièces jointes

Dernière édition:
Solution
ChTi160
Bonjour le Fil
juste pour signaler qu'a ce Niveau il y a un problème !
VB: 
Private Sub TextCode_Change()
Dim Ctrl As Control
Dim Ctrl2 As Control
Dim Trouvé As Boolean
 Dim Trouve As Range

    Me.TextCode.Text = UCase(Me.TextCode) 'On met en Majuscule tout le Contenu du TextBox
    If Not EnableEvents Then Exit Sub
    Sheets("Liste_agents").Unprotect "falaise"
    'on cherche le nom associé au code dans la TS "t_Noms"
    With Sheets("Liste_agents").ListObjects("t_Noms")
    'ci-dessous on recherche dans une colonne ou se trouvent des Minuscules
    Set Trouve = .ListColumns(1).Range.Find(Me.TextCode, lookat:=xlWhol
Tu peux si la case n'a pas d'importance mettre Option Compare Text en tête de Module.
et supprimer ...
Trier par date Trier par votes
regarde: j'ai déja pu simplifier ta formule
VB: 
=SI(OU(A2="";D2="");"";
SI(E2<>"";E2-D2;
SI(F2<>"";MAX_MAT-D2;
SI(ET(F2<>"";G2="");"";
SI(ET(G2="";H2="";I2<>"");MAX_MAT-D2;
SI(G2<>"";MAX_MAT-D2;
SI(ET(G2="";H2="";I2<>"");I2-D2;
SI(G2="";MAX_MAT-D2;
))))))))

je pense que pour la simplifier encore, il faudrait juste expliquer la logique du calcul..
 
Vote positif 0 Vote négatif
Enrichi (BBcode): 
=SI(OU(A2="";D2="");"";
SI(E2<>"";E2-D2;
SI(F2<>"";MAX_MAT-D2;
SI(ET(F2<>"";G2="");"";
SI(ET(G2="";H2="";I2<>"");MAX_MAT-D2;
SI(G2<>"";MAX_MAT-D2;
SI(ET(G2="";H2="";I2<>"");I2-D2;
SI(G2="";MAX_MAT-D2;
))))))))
Je pense qu'il y a un truc qui ne va pas.
 
Vote positif 0 Vote négatif
vgendron à dit:
regarde: j'ai déja pu simplifier ta formule
VB: 
=SI(OU(A2="";D2="");"";
SI(E2<>"";E2-D2;
SI(F2<>"";MAX_MAT-D2;
SI(ET(F2<>"";G2="");"";
SI(ET(G2="";H2="";I2<>"");MAX_MAT-D2;
SI(G2<>"";MAX_MAT-D2;
SI(ET(G2="";H2="";I2<>"");I2-D2;
SI(G2="";MAX_MAT-D2;
))))))))

je pense que pour la simplifier encore, il faudrait juste expliquer la logique du calcul..
Cliquez pour agrandir...
Je vais écrire en clair ma logique et je reviens vers vous. Je l'avoue ce n'est pas simple, même moi je m'y perds parfois.
 
Vote positif 0 Vote négatif
En attendant, je me suis permis quelques modifs/optimisations de ton code

pour l'instant j'ai commenté tout ce qui protège ou déprotège les feuilles

1) un module dans lequel tu définis ton mot de passe une seule fois (ca évite de l'écrire un peu partout dans le code)
2) un module avec deux macros pour protéger ou déprotéger la feuille saisie

3) pour la saisie d'heures, ton code "_change" passe son temps à déprotéger, reprotéger, modifier..
plutot que devoir cliquer sur le bouton en haut à gauche, un double clic suffit
voir code dans évènement _beforedoubleclic
 

Pièces jointes

Vote positif 0 Vote négatif
Voici ma logique (loin d'être parfaite)

Pour la colonne J



Si le cellule en A est vide alors on écrit rien.

Si la cellule D n’est pas vide et que la cellule E n’est pas vide alors E moins D

Si la cellule D n’est pas vide et que la cellule E est vide et que la cellule F n’est pas vide alors TOT_MAT (Cellule G5 de la feuille Données) moins D.

Si la cellule D n’est pas vide et que les cellules E et F sont vides mais que la cellule G n’est pas vide alors TOT_MAT (Cellule G5 de la feuille Données) moins D.

Si la cellule D n’est pas vide mais que les cellules E à H sont vides et que la cellule I n’est pas vide alors TOT_MAT (Cellule G5 de la feuille Données) moins D



Pour la colonne K



Si la cellule en A est vide alors on écrit rien.

Si les cellules E et F ne sont pas vides alors F moins E

Si la cellule D n’est pas vide et que la cellule E est vide et que la cellule F n’est pas vide et la cellule G est pas vide mais que la cellule H n’est pas vide alors TOT_AM (cellule H5 de la feuille Données) moins F.

Si la cellule D n’est pas vide et que les cellules E à H sont vides et que la cellule n’est pas vide alors TOT_AM (cellule H5 de la feuille Données) moins F.



Pour la colonne L



Si la cellule en A est vide alors on écrit rien.

Si les cellules H et I ne sont pas vides alors I moins H

Si la cellule D n’est pas vide et que la cellule E est vide et que la cellule F n’est pas vide et que la cellule G est vide et que la cellule H n’est pas vide et que cellule I est vide alors TOT_Soir (cellule I5 de la feuille Données) moins H.

Si la cellule D n’est pas vide et que les cellules E à H sont vides alors TOT_Soir moins I.
 
Vote positif 0 Vote négatif
vgendron à dit:
En attendant, je me suis permis quelques modifs/optimisations de ton code

pour l'instant j'ai commenté tout ce qui protège ou déprotège les feuilles

1) un module dans lequel tu définis ton mot de passe une seule fois (ca évite de l'écrire un peu partout dans le code)
2) un module avec deux macros pour protéger ou déprotéger la feuille saisie

3) pour la saisie d'heures, ton code "_change" passe son temps à déprotéger, reprotéger, modifier..
plutot que devoir cliquer sur le bouton en haut à gauche, un double clic suffit
voir code dans évènement _beforedoubleclic
Cliquez pour agrandir...
Merci beaucoup, je dois m'absenter pour raison médicale.
Je regarde ça et je reviens vers vous dès que possible.
 
Vote positif 0 Vote négatif
de ce que je comprends..
pour chaque section "matin, Après midi et soir", il y a 2 horaires à pointer: arrivée et départ
si l'heure d'arrivée et l'heure de départ sont inscrites, on calcule la différence
si seule l'arrivée est pointée (le départ à été oublié), on calcule la différence entre l'arrivée et le départmax autorisé
ok.. donc..si le gars s'en va au bout de 5mn sans pointer.. la formule va dire qu'il est resté au bout de son shift..

dans les explications que tu donnes.. les 3 dernières conditions donnent toujours le meme résultat.. max-arrivée
PS : tu as mis Tot_Mat.. au lieu de Max_Mat.. je pense..

du coup.. les formules deviennent toutes simples==> voir PJ
 

Pièces jointes

Vote positif 0 Vote négatif
vgendron à dit:
de ce que je comprends..
pour chaque section "matin, Après midi et soir", il y a 2 horaires à pointer: arrivée et départ
si l'heure d'arrivée et l'heure de départ sont inscrites, on calcule la différence
si seule l'arrivée est pointée (le départ à été oublié), on calcule la différence entre l'arrivée et le départmax autorisé
ok.. donc..si le gars s'en va au bout de 5mn sans pointer.. la formule va dire qu'il est resté au bout de son shift..

dans les explications que tu donnes.. les 3 dernières conditions donnent toujours le meme résultat.. max-arrivée
PS : tu as mis Tot_Mat.. au lieu de Max_Mat.. je pense..

du coup.. les formules deviennent toutes simples==> voir PJ
Cliquez pour agrandir...
ok.. donc..si le gars s'en va au bout de 5mn sans pointer.. la formule va dire qu'il est resté au bout de son shift..
Cliquez pour agrandir...
Oui je n'avais pas pensé à cela. Alors il ne faut rien mettre dans le doute.
Désolé mais je dois partir. A plus tard
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
612
fanfan38
fanfan38
M
  • Résolu(e)
Microsoft 365 Formule si est vide
Réponses
9
Affichages
491
Marvin57
M
F
  • Résolu(e)
XL 2013 Resultat en fonction de 3 conditions cumultatives
Réponses
2
Affichages
393
franxy
F
HamoudaBA
  • Question Question
XL 2021 RESOLU recherchev vba sur autre feuille
Réponses
10
Affichages
847
HamoudaBA
HamoudaBA
C
  • Question Question
Microsoft 365 Formule Excel qui additionne la tarification quotidienne
Réponses
2
Affichages
217
TooFatBoy
TooFatBoy
M
  • Résolu(e)
XL 2013 Calcul des heures travaillées de jour, de nuit et plus de 24h consécutives
2 3
Réponses
41
Affichages
2 K
Manutela
M
E
  • Question Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
415
Phil69970
Phil69970
F
  • Résolu(e)
Microsoft 365 comptage de cellules
Réponses
3
Affichages
271
FRB78
F
C
  • Question Question
XL 2021 Formule: conditionner numéro de cellule a un numéro dans une autre cellule
Réponses
2
Affichages
299
Cousinhub
Cousinhub
Bernard38
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
1 K
mapomme
mapomme
D
  • Résolu(e)
Microsoft 365 Copier / coller données spécifiques documents txt vers Excel
Réponses
3
Affichages
596
Staple1600
Staple1600
L
  • Question Question
XL 2021 calcul de variation
Réponses
1
Affichages
315
C'est papy Mougeot !
C'est papy Mougeot !
L
  • Question Question
XL 2019 Accélérer le traitement de données par rapport à une formule.
2 3
Réponses
42
Affichages
2 K
Loïc DUBOIS
L
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
1 K
AtTheOne
AtTheOne
L
  • Résolu(e)
Microsoft 365 Retourner l'en-tête colonne correspondante à une quantité donnée dans une ligne
Réponses
4
Affichages
47
LegVal
L
S
  • Résolu(e)
Microsoft 365 Calcul distance entre 2 adresses en temps réel
Réponses
5
Affichages
6 K
SweetCherryPie
S
B
  • Question Question
Microsoft 365 Excel - Formule de calcul
Réponses
4
Affichages
445
Ben92290
B
B
  • Question Question
Microsoft 365 Excel - formule de calcul complexe
Réponses
4
Affichages
697
Ben92290
B
kercroam
  • Question Question
XL 2021 Modifier une condition pour le calcul du bonus défensif pour un programme de rugby
2 3
Réponses
32
Affichages
2 K
djidji59430
djidji59430
F
  • Question Question
XL 2021 mettre une formule
Réponses
9
Affichages
646
JHA
J
Retour