Microsoft 365 Ecrire une formule de calcul en Vba Excel

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

  • Tablo_Heures.xlsm
    282.8 KB · Affichages: 16
Dernière édition:
Solution
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 ...

NONO14

XLDnaute Impliqué
J'ai codé la Combo de l'Uf GestMenus. J'ai supprimé le bouton "Valider" et il suffit à présent d'un click sur le choix pour le valider.
Est-il possible pour l'administrateur de ne taper qu'une seule fois le mot de passe pour accéder au formulaire ? :eek: J'ai posé une nouvelle question...
Je vous soumets mon travail, n'hésitez pas à me dire si cela ne convient pas.
 

Pièces jointes

  • PointHeure15.xlsm
    790.2 KB · Affichages: 2

vgendron

XLDnaute Barbatruc
Est-il possible pour l'administrateur de ne taper qu'une seule fois le mot de passe pour accéder au formulaire ?

c'est exactement pour ca que je te disais qu'une fois le mot de passe admin rentré, il faut que TOUTES les pages du formulaire soient actives, pour que l'admin puisse accéder à toutes les pages sans avoir à fermer le formulaire et retaper son mdp pour réouvrir le USF sur une autre page..
c'est le principe du mode admin.. full access...==> et donc.. encore une fois.. la liste des actions est inutile..
 

vgendron

XLDnaute Barbatruc
je ne comprend pas pourquoi tu veux (il veut) absolument avoir cette liste de choix qui limite la page d'accès..

genre, si l'admin ne selectionne pas une action au préalable, alors il ne sait pas ce qu'il vient faire sur le formulaire... c'est de l'alzeihmer très avancé..
 

NONO14

XLDnaute Impliqué
je ne comprend pas pourquoi tu veux (il veut) absolument avoir cette liste de choix qui limite la page d'accès..

genre, si l'admin ne selectionne pas une action au préalable, alors il ne sait pas ce qu'il vient faire sur le formulaire... c'est de l'alzeihmer très avancé..
Eh oui, j'ai eu beau lui expliquer... Il veut que ça se fasse comme ça. Vas comprendre la logique ou plutôt sa logique. Pour le moment il me fout la paix, c'est déjà ça de gagné.
 

NONO14

XLDnaute Impliqué
Est-il possible pour l'administrateur de ne taper qu'une seule fois le mot de passe pour accéder au formulaire ?

c'est exactement pour ca que je te disais qu'une fois le mot de passe admin rentré, il faut que TOUTES les pages du formulaire soient actives, pour que l'admin puisse accéder à toutes les pages sans avoir à fermer le formulaire et retaper son mdp pour réouvrir le USF sur une autre page..
c'est le principe du mode admin.. full access...==> et donc.. encore une fois.. la liste des actions est inutile..
Je n'ai pas le choix, il veut que les autres pages soient inaccessibles... Pourquoi ? ça je n'en sais rien. Il nous donnera des explications quand il présentera l'application.
 

Discussions similaires

Réponses
9
Affichages
436
Réponses
5
Affichages
406
Réponses
3
Affichages
224

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
314 628
Messages
2 111 337
Membres
111 105
dernier inscrit
Joffrette