Microsoft 365 Ecrire une formule de calcul en Vba Excel

NONO14 · 6 Septembre 2024

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

ChTi160 · 30 Septembre 2024

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 · 10 Septembre 2024

vgendron à dit:
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 · 10 Septembre 2024

NONO14 à dit:
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 · 10 Septembre 2024

TooFatBoy à dit:
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 · 10 Septembre 2024

vgendron à dit:
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 · 10 Septembre 2024

TooFatBoy à dit:
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 · 10 Septembre 2024

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

NONO14 · 10 Septembre 2024

TooFatBoy à dit:
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 · 10 Septembre 2024

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

NONO14 · 10 Septembre 2024

vgendron à dit:
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 · 10 Septembre 2024

NONO14 à dit:
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 · 10 Septembre 2024

TooFatBoy à dit:
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 · 10 Septembre 2024

TooFatBoy à dit:
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 · 10 Septembre 2024

NONO14 à dit:
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 · 10 Septembre 2024

TooFatBoy à dit:
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 · 10 Septembre 2024

vgendron à dit:
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.

Microsoft 365 Ecrire une formule de calcul en Vba Excel

NONO14

XLDnaute Impliqué

Pièces jointes

ChTi160

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Discussions similaires