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 ...

vgendron · 26 Septembre 2024

Hello

regarde la PJ
j'ai apporté une nouvelle modif pour la gestion des actions
à priori.. l'administrateur a le droit de tout faire
il a donc accès à toutes les pages.. et n'a sans doute pas envie, ni le temps de faire le choix de l'action et remettre son mot de passe== DONC
j'ai ajouté une action "Administration"
il faut le mot de passe adminisrateur (admin01)
et le USFGestTemps s'ouvre sur la page 0 avec toutes les pages dispo

==> dans la liste des actions, tu peux donc supprimer toutes les actions réservées à l'administatreur (à part "Administration" bien sur)
dans USF_Initialize, j'ai laissé les case pour l'instant.
si tu valides, on peut les supprimer

j'ai aussi corrigé quelques bugs que j'ai pu voir au passage

vgendron · 26 Septembre 2024

un conseil
Commence par rajouter les textbox manquants en prendant soin de leur donner
1) le nom sur le meme modèle que les autres jours
tbx_15 et tbx_16
1 = Lundi
5=debsoir
6=finsoir

2) n'oublie pas le tag "Heure" pour qu'ils soient intégrés dans le control de saisie

ensuite.. procéder par étapes..
d'abord la gestion de l'ouverture du formulaire en fonction de l'action choisie

NONO14 · 26 Septembre 2024

vgendron à dit:
un conseil
Commence par rajouter les textbox manquants en prendant soin de leur donner
1) le nom sur le meme modèle que les autres jours
tbx_15 et tbx_16
1 = Lundi
5=debsoir
6=finsoir

2) n'oublie pas le tag "Heure" pour qu'ils soient intégrés dans le control de saisie

ensuite.. procéder par étapes..
d'abord la gestion de l'ouverture du formulaire en fonction de l'action choisie

Voilà, j'ai modifié la grille de saisie du planning en y ajoutant les heures du soir. J'espère n'avoir rien oublié dans le code. J'ai suivi tes recommandations pour le tag Heure, j'espère n'avoir rien oublié.
Je n'ai pas encore modifié la liste des actions car je n'ai pas encore regardé ce que tu as fait.
Le fichier est 13b car je veux être certain de n'avoir pas fait de bêtise avant d'écraser l'autre.

NONO14 · 26 Septembre 2024

En testant la page Planning de l'UfGestTemps, je me suis aperçu qu'il y a une erreur de calcul au niveau des heures supplémentaires, la TextBox indique le nombre d'heures de la semaine, le calcul ne fait pas la différence entre les heures de la semaine et les heures contractuelles.
Je continue pour le reste...

vgendron · 26 Septembre 2024

Je te renvoie le 13b avec correction d'indice pour chargement de la grille (LoadGrille)
et l'enregistrement de la grille

je pense que tu as ajouté une colonne==> ca créé un décalage..

ChTi160 · 26 Septembre 2024

Bonjour le Fil
j'ai modifié cette Ligne pour éviter le décalage.

VB:

For j = 1 To 4
 UfGestTemps.Controls("Tbx_" & I & j) = .DataBodyRange(ind, j + 4)'ici'
Next j

j'ai mis 4 au lieu de 3
jean marie

NONO14 · 26 Septembre 2024

vgendron à dit:
Je te renvoie le 13b avec correction d'indice pour chargement de la grille (LoadGrille)
et l'enregistrement de la grille

je pense que tu as ajouté une colonne==> ca créé un décalage..

Merci pour la correction, mais je n'ai pas le souvenir d'avoir ajouté une colonne, mais bon si ça bug c'est que j'ai dû faire quelque chose...
Je regarde le fichier

NONO14 · 26 Septembre 2024

ChTi160 à dit:
Bonjour le Fil
j'ai modifié cette Ligne pour éviter le décalage.

VB:

For j = 1 To 4 UfGestTemps.Controls("Tbx_" & I & j) = .DataBodyRange(ind, j + 4)'ici' Next j

j'ai mis 4 au lieu de 3
jean marie

Bonjour Jean Marie
Merci pour ta participation, je corrige le code.

vgendron · 26 Septembre 2024

NONO14 à dit:
Bonjour Jean Marie
Merci pour ta participation, je corrige le code.

c'est ce que j'ai corrigé dans mon dernier post

NONO14 · 26 Septembre 2024

vgendron à dit:
c'est ce que j'ai corrigé dans mon dernier post

Oups ! Désolé

NONO14 · 26 Septembre 2024

Je viens d'avoir les derniers éléments. Dans la Combo_Menus de la feuille "Saisie", tous les choix sont sous la responsabilité de l'administrateur. Les employé(e)s ne pourront que pointer. Cependant, il est indispensable de faire le détail des tâches, rien ne change pour ce qui est de rendre modifiables ou pas les pages du formulaire UfGestTemps, lorsque l'on travail sur une les autres ne sont pas modifiables. De plus, la Combo ne plaît pas, c'est juste pour m'emm... car elle fait le job.
Je suis désolé pour ces contre-temps mais je pense pouvoir m'en sortir.
J'attends que tu me renvoies le fichier 13b pour y apporter les modifications.

vgendron · 26 Septembre 2024

ah oui pardon, j'ai pas envoyé le bon fichier à mon post 305

voici le bon

NONO14 · 26 Septembre 2024

C'est encore moi. Pour faire suite à mon dernier post, il faut également que je modifie le code de l'employé(e).
Je ne sais pas comment faire. A la place de "emp" au début du code, je dois mettre les 3 premières lettres du Nom en minuscule. C'est la barbe tous ces changements, "il" trouve que le code actuel est trop compliqué à retenir, les pauvres...

NONO14 · 26 Septembre 2024

vgendron à dit:
ah oui pardon, j'ai pas envoyé le bon fichier à mon post 305

voici le bon

Pas de soucis, merci beaucoup pour ton aide

vgendron · 26 Septembre 2024

je ne comprend pas bien..
le combo ne plait pas..... ton chef veut quoi à la place?: est ce qu'il le sait au moins?
à part dire.. ca me plait pas, sait il au moins pourquoi?

garder l'activation ou pas des feuilles selon le choix alors que TOUS les choix sont réservés à l'admin..
je vois pas du tout l'intérêt..
et à mon avis. il va vite en avoir marre..
ex:
choix de modifier un employé
mdp
le USF s'ouvre avec UNE page active
il fait ses modifs

s'il veut faire autre chose, il est OBLIGE de quitter le USF
refaire un choix
retaper son mot de passe....

(moi ca me gonfle rien que de l'écrire. alors.. le faire.. il va vite peter un plomb)

Microsoft 365 Ecrire une formule de calcul en Vba Excel

NONO14

XLDnaute Impliqué

Pièces jointes

ChTi160

vgendron

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

Pièces jointes

NONO14

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

Pièces jointes

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

vgendron

XLDnaute Barbatruc

Discussions similaires