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

vgendron · 6 Septembre 2024

Bonjour
tu dis ne pas vouloir protéger les colonnes..et pourtant tu postes un fichier protégé...

pour inscrire une formule dans une cellule J2 par VBA, voici ma méthode
1) créer une variable qui contient la formule en Anglais
FormuleJ="=if(A2="""",""""if(A2<>""""................)"
en anglais veut dire: les fonctions sont écrites dans la version Anglaise ==> Si==>IF, et==> And....
les ; sont remplacés par des ,
les " sont remplacés par ""

2) inscrire la formule
range("J2").formula=formuleJ

3) pour étirer la formule: autofill

NONO14 · Mardi à 16:35

Hello !
Me voici de retour. Je vous joins ma dernière version du fichier.
Je n'ai pas eu le temps de faire grand chose.

NONO14 · Mardi à 16:54

vgendron à dit:
VB:

Set Trouve = Range("t_Noms[Code]").Find(cdate(Me.TextCode), lookin:=xlValues)

J'ai testé ce code mais il ne fonctionne pas, incompatibilité de type sur cette même ligne.
TextCode n'est pas une date, peut-être as-tu voulu mettre Me.T_bx_DateJour.

vgendron · Mardi à 16:57

déjà.. je te propose de repartir sur CE fichier rev7
j'ai retravaillé toute l'indentation
et simplifié certaines lignes de code

et maintenant.. il faudrait expliquer sur quel point tu es en train de travailler..
et ce que tu cherches à faire avec le set trouve=....

NONO14 · Mardi à 16:57

Je dois faire un test sur le code de l'employé(e) (TextCode) et sur la date du jour (T_bx_Datejour).
Si le code employé(e) est bon et que la date du jour correspond à celle du tableau alors on affiche les données dans les TextBox sinon, elles restent vides.

vgendron · Mardi à 17:01

et pourquoi des noms de control avec t_bx_. au lieu de Tbx_ ??

NONO14 · Mardi à 17:04

vgendron à dit:
déjà.. je te propose de repartir sur CE fichier rev7
j'ai retravaillé toute l'indentation
et simplifié certaines lignes de code

et maintenant.. il faudrait expliquer sur quel point tu es en train de travailler..
et ce que tu cherches à faire avec le set trouve=....

Merci beaucoup pour ton excellent travail.
Pour répondre à ta question ici :

VB:

Set Trouve2 = .ListColumns("Date").Range.Find(Me.T_bx_DateJour, LookIn:=xlValues) 'pourquoi faire?
        If Not Trouve2 Is Nothing Then MsgBox Trouve2
    End With

Le but est de n'afficher que les heures du jour. Si on oublie de sauvegarder les heures de la veille, seules les heures du jour doivent être affichées.

NONO14 · Mardi à 17:06

vgendron à dit:
et pourquoi des noms de control avec t_bx_. au lieu de Tbx_ ??

C'est TootFatBoy qui m'a proposé ça afin de séparer les TextBoxs des heures des autres TextBoxs lors de l'annulation des entrées.
Je t'avoue ne pas m'être interrogé davantage...

NONO14 · Mardi à 17:11

vgendron à dit:
déjà.. je te propose de repartir sur CE fichier rev7
j'ai retravaillé toute l'indentation
et simplifié certaines lignes de code

et maintenant.. il faudrait expliquer sur quel point tu es en train de travailler..
et ce que tu cherches à faire avec le set trouve=....

Ensuite je vais travailler sur le code pour colorer en rouge les checkBox lorqu'il manquera un pointage et pas seulement le matin comme c'est le cas actuellement. Par exemple s'il y a un pointage arrivée le matin et un pointage arrivée APM mais pas de pointage départ du matin, alors la CheckBox "Chk_FinMat" sera en rouge, à moins que je travaille directement dans le tableau de la feuille "Saisie" avec des formules conditionnelles.

vgendron · Mardi à 17:12

Je ne comprend pas et je pense qu'il y a une mauvaise définition sur ce que tu veux faire

pour être sur qu'on se comprend bien
on est sur le formulaire UfPointage

quand tu saisis un code employé dans le Textbox "TextCode"
Ce que le code actuel fait:
1) on cherche la ligne de l'employé dans le tableau t_Saisie
==> comme on cherche le nom avec un set trouve=...
on va récuperer la PREMIERE occurence de l'employé (meme si il y a d'autres lignes avec le meme code employé)
la date n'intervient pas du tout
2) tu charges les heures déjà enregistrées
3) tu actives/affiches ou pas les checkbox
4) le set trouve2.. ne sert à rien en l'état
5) on colorie les tbx en fonction de l'activation des controls

Ce que tu veux faire (enfin.. je pense)
1) on cherche la ligne qui correspond à l'employé ET la date..

ensuite;. on charge les données..

si j'ai bien compris; on a donc le meme cas que déjà vu dans le formulaire GestTemps, ou il fallait remplacer le Set trouve=... par une boucle for i..

correct??

NONO14 · Mardi à 17:17

vgendron à dit:
Je ne comprend pas et je pense qu'il y a une mauvaise définition sur ce que tu veux faire

pour être sur qu'on se comprend bien
on est sur le formulaire UfPointage

quand tu saisis un code employé dans le Textbox "TextCode"
Ce que le code actuel fait:
1) on cherche la ligne de l'employé dans le tableau t_Saisie
==> comme on cherche le nom avec un set trouve=...
on va récuperer la PREMIERE occurence de l'employé (meme si il y a d'autres lignes avec le meme code employé)
la date n'intervient pas du tout
2) tu charges les heures déjà enregistrées
3) tu actives/affiches ou pas les checkbox
4) le set trouve2.. ne sert à rien en l'état
5) on colorie les tbx en fonction de l'activation des controls

Ce que tu veux faire (enfin.. je pense)
1) on cherche la ligne qui correspond à l'employé ET la date..

ensuite;. on charge les données..

si j'ai bien compris; on a donc le meme cas que déjà vu dans le formulaire GestTemps, ou il fallait remplacer le Set trouve=... par une boucle for i..

correct??

Quand on saisit le code employé(e), on recherche l'occurrence qui correspond à la fois au code et à la date du jour, pour n'avoir dans le formulaire que les heures du jour. Dans mon tableau actuel, les heures saisies de dimanche et lundi ne doivent plus apparaître dans le formulaire.
S'il n'y a pas d'occurrence, alors on créé une nouvelle saisie.

vgendron · Mardi à 17:24

donc, c'est bien ce que j'ai compris..
il faut bien te rappeler que la fonction trouve cherche la PREMIERE occurence
c'est l'équivalent de la fonction Recherchev sous excel

trouve=plagederecherche.find(CequeJecherche,optionde recherche)
Set Trouve = .ListColumns("Code Employé").Range.Find(Me.TextCode, Lookat:=xlwhole)
ici, la plagederecherche = la colonne "Code Employé"
ce qu'on recherche; le Code

la fonction parcourt la colonne ligne à ligne, et DES qu'elle trouve la correspondance, elle s'arrete
==> si on a plusieurs fois le code dans la colonne, on ne récupère que la première occurence

ici. tu vois bien qu'à aucun moment on a dit de chercher aussi une correspondance sur la date...
admettons, qu'on ait donc trouvé la ligne 5

ensuite, tu fais un
set trouve2=...
idem, la fonction va chercher la date dans la colonne des dates (SANS se soucier des codes) et va trouver la première occurence
laquelle peut tout a fait etre la ligne 1 dont le code est totalement différent

d'ou le besoin d'une boucle
for i=1 to nb delignes
si colonneCode = Code ET colonneDate=date alors
on a trouvé la ligne
sinon.. rien.. la boucle continue jusqu'à la fin
next i

NONO14 · Mardi à 17:25

Dans le cas de GestTemps, on créé les plannings et on ne revient pas dessus, pas avec le formulaire.
Pour UfPointage, on doit pouvoir ajouter des pointages dans la journée, donc afficher les saisies déjà réalisées dans la journée, pas celles de la veille ou des autres jours avant, cela en cas d'oublie de sauvegarde des pointages déjà réalisés.
Dis-moi si je ne suis pas assez clair....

NONO14 · Mardi à 17:27

vgendron à dit:
donc, c'est bien ce que j'ai compris..
il faut bien te rappeler que la fonction trouve cherche la PREMIERE occurence
c'est l'équivalent de la fonction Recherchev sous excel

trouve=plagederecherche.find(CequeJecherche,optionde recherche)
Set Trouve = .ListColumns("Code Employé").Range.Find(Me.TextCode, Lookat:=xlwhole)
ici, la plagederecherche = la colonne "Code Employé"
ce qu'on recherche; le Code

la fonction parcourt la colonne ligne à ligne, et DES qu'elle trouve la correspondance, elle s'arrete
==> si on a plusieurs fois le code dans la colonne, on ne récupère que la première occurence

ici. tu vois bien qu'à aucun moment on a dit de chercher aussi une correspondance sur la date...
admettons, qu'on ait donc trouvé la ligne 5

ensuite, tu fais un
set trouve2=...
idem, la fonction va chercher la date dans la colonne des dates (SANS se soucier des codes) et va trouver la première occurence
laquelle peut tout a fait etre la ligne 1 dont le code est totalement différent

d'ou le besoin d'une boucle
for i=1 to nb delignes
si colonneCode = Code ET colonneDate=date alors
on a trouvé la ligne
sinon.. rien.. la boucle continue jusqu'à la fin
next i

Oui, tu as tout à fait raison, c'est de ma faute, j'aurai dû être plus précis dès le départ.
Je vous ai fait perdre votre temps à toi et à TootFatBoy.
Je m'en excuses sincèrement

vgendron · Mardi à 17:28

t'inquiètes...
je reviens dans quelques minutes avec une proposition

vgendron · Mardi à 17:39

Voici

Microsoft 365 Ecrire une formule de calcul en Vba Excel

NONO14

XLDnaute Occasionnel

Pièces jointes

vgendron

NONO14

XLDnaute Occasionnel

Pièces jointes

NONO14

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

Pièces jointes

NONO14

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

NONO14

XLDnaute Occasionnel

NONO14

XLDnaute Occasionnel

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Pièces jointes

Discussions similaires