Microsoft 365 Ecrire une formule de calcul en Vba Excel

vgendron à dit:

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)

Cliquez pour agrandir...

vgendron à dit:

Hello

Pourquoi créer un password aléatoire?? l'employé ne peut il pas choisir lui meme son mot de passe?
si c'est pour créer un mot de passe "initial" que l'employé doit immédiatemet modifier.. en général.. les services info génèrent toujours le même mot de passe initial.. genre "Welcome1"
Comme ca..ils ont juste UN mot de passe à retenir et communiquer à l'employé

Comme je n'ai pas fait la macro asscociée.. je ne vais pas pouvoir t'aider sur ce coup la..
tu devrais peut etre crééer un nouveau post spécifique pour ce besoin, et citant la personne qui t'a fait le code

Cliquez pour agrandir...

vgendron à dit:

le combo: est ce que une des actions déjà listées est accessible au salarié? si oui, la(les)quelle(s) ?
==> à identifier dans le tableau feuille "Actions"

si TOUTES les actions ne sont que pour l'admin, alors oui, un simple bouton suffit MAIS
ca veut dire que à l'ouverture, toutes les pages sont accessibles

si une ou des actions est accessible au salarié, tu peux réduire la liste du combo a ces actions, et mettre le bouton pour l'admin, mais, Bouton et combo font la meme chose: ouvrir le formulaire de mot de passe..
le bouton est juste un "raccourci".. ca évite juste d'aller selectionner "Administration" dans le combo..
c'est du gagne petit...

après.. si il n'y a pas trop d'action pour le salarié (genre 1 ou 2) tu peux aussi faire un bouton par action (tous les boutons faisant la meme chose.. ouvrir le formulaire mot de passe, et remplir une case sur la feuille pour mettre le nom de l'action, pour que le formulaire sache quelle page activer..
quand je dis "pas trop d'actions", c'est pour éviter d'avoir 50 boutons sur la feuille.. ce qui ne serait visuellement pas très beau.. je pense

Cliquez pour agrandir...

vgendron à dit:

donc le salarié n'a pas du tout accès au USF GestionTemps...
==> virer tout ce qui est gestion du mot de passe attendu en fonction de l'action selectionnée
==> supprimer le combo, à remplacer par un bouton admin== >UN SEUL mot de passe attendu:"admin01"
et full accès aux pages de l'USF
==> tous les cases n'ont plus lieu d'être

Cliquez pour agrandir...

ChTi160 à dit:

Bonjour le Fil
avec cette modification peut être!

VB:

Sub testNumberCode()
MsgBox Left("DUPOND", 3) & CodeEmp(3, 3)
End Sub
' Fonction CodeEmp qui génère un code avec des chiffres suivis de lettres
Function CodeEmp(Optional NbChar& = 0, Optional NbNum& = 0) As String
    Dim Y&, DicoLettres As Object, DicoChiffres As Object
    Dim StrLettres() As String, StrChiffres() As String, CodeFinale As String

    ' Initialisation des valeurs par défaut si elles ne sont pas spécifiées
    If NbChar = 0 Then NbChar = 2 + (Round(Rnd * 6)) ' Nombre de lettres
    If NbNum = 0 Then NbNum = 2 + (Round(Rnd * 3))  ' Nombre de chiffres
   
    ' Création de deux dictionnaires distincts
    Set DicoLettres = CreateObject("Scripting.Dictionary")
    Set DicoChiffres = CreateObject("Scripting.Dictionary")

    ' Tableaux contenant les lettres et chiffres
    StrLettres = Split(StrConv("abcdefghijklmnopqrstuvwxyz", vbUnicode), Chr(0))
    StrChiffres = Split(StrConv("0123456789", vbUnicode), Chr(0))

    ' Remplir le dictionnaire avec les lettres
    Do While DicoLettres.Count < NbChar
        Y = Round(Rnd * UBound(StrLettres))
        DicoLettres(StrLettres(Y)) = ""
    Loop
   
    ' Remplir le dictionnaire avec les chiffres
    Do While DicoChiffres.Count < NbNum
        Y = Round(Rnd * UBound(StrChiffres))
        DicoChiffres(StrChiffres(Y)) = ""
    Loop
   
    ' Créer la chaîne finale : d'abord les chiffres, ensuite les lettres
    CodeFinale = Join(DicoChiffres.Keys, "") & Join(DicoLettres.Keys, "")
   
    ' Retourner le code généré
    CodeEmp = CodeFinale
End Function

Bonne journée
Jean marie

Cliquez pour agrandir...

NONO14 à dit:

Je suis désolé car je sais le temps que tu as dû passer pour m'aider. J'ai essayé de conserver l'application dans l'état mais sans succès. Je lui ai rappelé que faire et défaire n'est pas du travail sérieux et une perte de temps pour tout le monde. J'espère maintenant qu'il va se calmer sur les modifications.
Je te réitère ici toutes mes excuses.

Cliquez pour agrandir...