Microsoft 365 Ecrire une formule de calcul en Vba Excel

[NONO14]

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.

=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="";""))))))))))

 

[NONO14]

Juste pour les Textbox de saisie d'heure,
le controle de saisie se fait grace au module de classe
MAIS les Textbox concernés (Tbx_11....) doivent etre taggés "Heure" (voir propriété Tag du textbox)

Merci pour l'information. J'ai imprimé tous les codes pour mieux les comprendre, plutôt je vais essayer de les comprendre.

 

[TooFatBoy]

Lorsque je lance l'application pour l'affichage de mon UF, la page1 (Saisie) doit être active et redimensionnée à la taille du formulaire. Ensuite, si je sélectionne la page2, tout est redimensionné et ainsi de suite.

Pourquoi ?
Et pourquoi n'est-elle pas construite directement à la taille adaptée au UserForm ?

 

[vgendron]

Pourquoi ?
Et pourquoi n'est-elle pas construite directement à la taille adaptée au UserForm ?

et pourquoi pas.. j'ai envie de dire .. les gouts et les couleurs
le formulaire est initialement dimensionné à la taille de la page 1 du multipage (ou l'inverse... au choix)
mais c'est le resize qui oublie un +20

 

[TooFatBoy]

le formulaire est initialement dimensionné à la taille de la page 1 du multipage (ou l'inverse... au choix)

Et donc nouvelle question : pourquoi modifier la taille de la page 1 ?

 

[vgendron]

Et donc nouvelle question : pourquoi modifier la taille de la page 1 ?

Ca.. faut demander à l'auteur du code du resize...
je pense que c'est juste la prise des dimensions initiales qui n'est pas bonne..

 

[TooFatBoy]

Encore un volonté absolument indispensable et obligatoire imposée par un Chef ???

 

[NONO14]

Pourquoi ?
Et pourquoi n'est-elle pas construite directement à la taille adaptée au UserForm ?

La page 1 est construite à la taille du formulaire, ce sont les autres pages qui devaient être redimensionnées.
Le code de patricktoukon redimensionne le tout alors j'ai fait avec sans me creuser la tête davantage.
Je les redimensionne pour une question d'esthétisme et ça plaît bien comme ça au donneur d'ordre. Et puis pour être tout à fait honnête, ça ne me dérange pas plus que ça, ce n'est qu'un petit bout de code en plus et quand je vois ce qu'il me reste à faire alors...

 

[vgendron]

juste un conseil.. pour ne pas te perdre..
il vaut mieux procéder par ordre et hierarchiser le code
par mulitpage / par controle

 

[NONO14]

juste un conseil.. pour ne pas te perdre..
il vaut mieux procéder par ordre et hierarchiser le code
par mulitpage / par controle

Très bien, merci pour le conseil

 

[TooFatBoy]

La page 1 est construite à la taille du formulaire, ce sont les autres pages qui devaient être redimensionnées.

Ok, la page 1 est construite à la taille du UserForm. C'est très bien.

Mais ça ne répond toujours pas à ma question de départ : pourquoi faut-il redimensionner les autres pages ?!?

Franchement, ça m'intrigue.

 

[vgendron]

Ok, la page 1 est construite à la taille du UserForm. C'est très bien.

Mais ça ne répond toujours pas à ma question de départ : pourquoi faut-il redimensionner les autres pages ?!?

Franchement, ça m'intrigue.

je dirais.. juste pour faire joli...
perso.. je ne fais jamais de redimensionnement de USF (si.. une fois dans une appli ou j'ajoutais dynamiquement des frames...)

 

[NONO14]

Ok, la page 1 est construite à la taille du UserForm. C'est très bien.

Mais ça ne répond toujours pas à ma question de départ : pourquoi faut-il redimensionner les autres pages ?!?

Franchement, ça m'intrigue.

Juste une question d'esthétisme, rien d'autre

 

[TooFatBoy]

Juste une question d'esthétisme, rien d'autre

Bon, je n'aurai jamais ma réponse, et ça continuera de m'intriguer.

Mais ce n'est pas grave. La seule chose importante est que tu trouves une solution pour obtenir ce que tu veux.

 

[vgendron]

Bon, je n'aurai jamais ma réponse, et ça continuera de m'intriguer.

Mais ce n'est pas grave. La seule chose importante est que tu trouves une solution pour obtenir ce que tu veux.

bah.. toofat.. un gros coup de fatigue??
la réponse est claire: "pour faire joli"....
la page 2 contient moins de controls à afficher que la page1 ==> quand la page 2 est affichée, sa taille (et celle du USF) est diminuée..

 

[TooFatBoy]

quand la page 2 est affichée, sa taille (et celle du USF) est diminuée..

Voilà qui répond parfaitement à ma question. !
Merci pour cet éclaircissement.