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

Créer une discussion
  • 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
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
quand tu sors du USFMot de passe==> tu fais unload (usf mot de passe) tu charges le USF choix

bah la. pareil
quand tu sort du USF Gestion temps==> tu fais unload (USFGestionTemp) et tu charges USF Choix

il va donc falloir prévoir un bouton pour sortir complètement de l'appli
 
Vote positif 0 Vote négatif
Bonjour TootFatBoy,
Il s'est calmé depuis hier, je lui ai fait comprendre que mon cerveau n'avait que deux lobs (enfin je crois), et que je n'avais que 2 mains, alors s'il veut mettre la main à la tâche je lui laisse volontiers ma place.
 
Vote positif 0 Vote négatif
Bonjour à toutes et à tous,
Voici la dernière version de mon fichier.
Avec l'aide de nombreux contributeurs, que je remercie chaleureusement, il y a eu quelques compléments.
J'ai complété le code pour l'impression des pointages (Editer les pointages) dans le formulaire UfGestMenus.
Il y a donc un copié (t_Recap) /collé (t_Import) des données, un tri des colonnes "Date" et "Code agent" dans le tableau destinataire (t_Import) ainsi qu'un aperçu avant impression.
Je l'ai nommé 15b car je conserve l'original (son jumeau en fait)
 

Pièces jointes

Vote positif 0 Vote négatif
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 : Me.TextCode.Text = UCase(Me.TextCode)
Option Compare Text signifie que les comparaisons de chaînes sont effectuées sans tenir compte de la casse (majuscules/minuscules) et basées sur l'ordre alphabétique du système actuel.
Cliquez pour agrandir...
alors les Codes DEN756i et den756i et Den756I etc etc seront considérés comme Bons !
ou supprimer : Me.TextCode.Text = UCase(Me.TextCode)
et alors entrer le Code Agent en entrant les majuscules et Minuscules !
à voir

Jean marie
 
Vote positif 0 Vote négatif
Solution
Bonjour ChTi160,
Merci pour votre contribution. J'ai enlevé la ligne Ucase mais ça ne change rien, ma 2ème TextBox (T_bx_Nom) reste désespérément vide.
Mais j'ai trouvé mon erreur, Trouve n'avait pas été déclaré (Dim Trouve as Range).
Merci de m'avoir mis sur la bonne route.
 
Vote positif 0 Vote négatif
NONO14 à dit:
J'ai enlevé la ligne Ucase mais ça ne change rien, ma 2ème TextBox (T_bx_Nom) reste désespérément vide.
Cliquez pour agrandir...
Mais as-tu ajouté la ligne indiquée ?


NONO14 à dit:
Mais j'ai trouvé mon erreur, Trouve n'avait pas été déclaré (Dim Trouve as Range).
Cliquez pour agrandir...
Il me semble que normalement ça ne devrait rien changer, sauf éventuellement si tu as déjà un Trouve déclaré en Public ou en Global.
 
Vote positif 0 Vote négatif
En faisant mes tests, je me suis aperçu d'un petit inconvénient au niveau du formulaire UfPointage.
En effet, si l'employé(e) prend son service l'après-midi par exemple, les CheckBoxs du matin sont visibles et rien ne l'empêche de cliquer dessus et de perturber le calcul des heures.
Est-il possible de les cacher selon l'heure ? ça me paraît très compliqué...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

G
  • Question Question
Microsoft 365 Formule calcul heures de travail
Réponses
8
Affichages
304
job75
P
  • Question Question
XL 2010 Formule si ou...
Réponses
2
Affichages
295
danielco
D
M
  • Résolu(e)
Microsoft 365 Formule si est vide
Réponses
9
Affichages
620
Marvin57
M
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
1 K
fanfan38
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
424
xavieralvaro
X
F
  • Résolu(e)
Microsoft 365 comptage de cellules
Réponses
3
Affichages
387
FRB78
F
E
  • Question Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
572
Phil69970
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
  • Résolu(e)
Microsoft 365 VBA : formule Excel en variable
2
Réponses
24
Affichages
2 K
mapomme
J
  • Question Question
Microsoft 365 VBA transformer une formule au format texte en formule dans excel
Réponses
2
Affichages
218
jujulili
J
D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
2 K
AtTheOne
S
  • Résolu(e)
Microsoft 365 Calcul distance entre 2 adresses en temps réel
Réponses
5
Affichages
8 K
SweetCherryPie
S
F
  • Question Question
XL 2021 mettre une formule
Réponses
9
Affichages
768
JHA
J
T
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur formule propagée
Réponses
2
Affichages
672
tontonexcel
T
B
  • Question Question
Microsoft 365 Excel - Formule de calcul
Réponses
4
Affichages
562
Ben92290
B
  • Question Question
XL 2016 Signature mail outlook avec VBA
Réponses
5
Affichages
941
wDog66
W
  • Question Question
XL 2019 problème de formule somme
Réponses
4
Affichages
609
Yann71
M
  • Question Question
XL 2010 aide pour formule si et arrondi
Réponses
12
Affichages
2 K
AtTheOne
M
  • Résolu(e)
XL 2016 Appliquer une règle de mise en forme (Valeur cellule différente d'une somme de colonne) sur chaque ligne d'une tableau indépendemment
Réponses
3
Affichages
660
MiamiVince
M
M
  • Question Question
XL 2010 formule excel
Réponses
1
Affichages
755
AtTheOne
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…