Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Ecrire une formule de calcul en Vba Excel

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

  • Tablo_Heures.xlsm
    282.8 KB · Affichages: 17
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 ...
Trier par date Trier par votes
N

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 ? 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
Vote positif 0 Vote négatif

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..
 
Vote positif 0 Vote négatif

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é..
 
Vote positif 0 Vote négatif
N

NONO14

XLDnaute Impliqué
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é.
 
Vote positif 0 Vote négatif
N

NONO14

XLDnaute Impliqué
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.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Formule si est vide
Réponses
9
Affichages
470
Marvin57
M
F
  • Résolu(e)
XL 2013 Resultat en fonction de 3 conditions cumultatives
Réponses
2
Affichages
372
franxy
F
M
  • Question
XL 2019 Recherche d'un mot dans une chaîne de caractère depuis une plage de références puis si présent renvoyer la référence
Réponses
7
Affichages
506
MilieBZH
M
  • Question
XL 2021 RESOLU recherchev vba sur autre feuille
Réponses
10
Affichages
816
HamoudaBA
C
  • Question
Microsoft 365 Formule Excel qui additionne la tarification quotidienne
Réponses
2
Affichages
198
TooFatBoy
D
  • Question
Microsoft 365 Excel fonction SI
Réponses
5
Affichages
433
dede869
D
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
M
  • Question
Microsoft 365 "Vous avez un nombre trop important d'arguments pour cette fonction"
Réponses
11
Affichages
465
TooFatBoy
F
  • Résolu(e)
Microsoft 365 comptage de cellules
Réponses
3
Affichages
261
FRB78
F
D
  • Résolu(e)
Microsoft 365 Copier / coller données spécifiques documents txt vers Excel
Réponses
3
Affichages
575
Staple1600
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…