Projet Excel VBA Fermé

Question

Bonjour, 

J'ai dans le cadre de mes études un projet excel à réaliser, et... je suis un peu emmêlé !!

En fait j'ai fait une feuille excel avec en colonnes Nom, Prénom, et Password qui est Pass1 pour le 1er, Pass2 pour le second...

Et en fait dans mon menu j'ai une liste déroulante avec la nom de la personne et ensuite un bouton de texte dans lequel il faut mettre le password adéquat, puis un bouton OK qui doit avoir en condition: Si le Password correspond au Nom, ça ouvre une nouvelle page.

Mais comment faire en sorte qu'il reconnaissance le Password qui est sur la même ligne que le Nom pour autoriser l'accès?!

Je m'en retourne vers vous qui êtes bien meilleurs que moi !!

Et en passant, j'aimerai que dans ma nouvelle page j'ai un lien qui m'affiche le nom de la personne qui vient de se connecter (ce qui doit être encore + simple pour vous !)

Bref, je vous remercie d'avance et attend vos propositions car voilà 2 jours que je me triture la caboche pour pas grand chose !!

MERCI !

Zoul67 · Answer

Bonsoir,

ça n'a effectivement pas l'air bien méchant...
Tu peux envoyer ce que tu as déjà fait ? (sur un site comme cjoint.com)
Quand tu parles de page, c'est un onglet ?

michel_m · Answer

Bonjour

ci dessous une fonction personnalisée qui génère un mot de passe

Function donner_mdp(cellule As Range) As String
Dim cptr As Byte, base As Long, identite As String, lettre As String * 1, lig As Byte
    identite = cellule.Value
    lig = cellule.Row
    'transforme identité en somme des ascii
    For cptr = 1 To Len(identite)
        lettre = Mid(identite, cptr, 1)
        base = base + Asc(lettre)
    Next
    'crypte base  avec Xor: exclusion réciproque (sur les bits): base classique du cryptage
    'ajoute base pour compliquer  + une lettre au hasard et le n°ligne pour éviter les doublons
    'nombre au choix du développeur
     donner_mdp = Abs(base Xor 934) + base & Chr(Rnd() * 25 + 65) & lig


ci joint maquette
https://www.cjoint.com/?0bgneshHMn5

Zoul67 · Answer

Comme tu n'as pas transmis ton fichier Excel, je vais pas partir sur des hypothèses pour tout faire moi-même...

Fais une boucle While (a priori plus élégant que For) sur les cellules contenant les noms de la feuil2 en vérifiant l'égalité avec le nom saisi.

Tu as le numéro de ligne l auquel est présent le nom et là tu vérifies que la valeur de la cellule voisine correspond à la valeur saisie.
Sheets("Feuil2").Cells(i,colonne_nom+2).Value=Sheets("Feuil1").Cells(a,b).Value

Utilise les masquages d'onglets pour ne pas faire apparaître la feuille 2. Idem pour les feuilles auxquelles les gens doivent aboutir.

NB : je ne félicite pas celui qui a fait l'énoncé d'avoir d'une part Nom+Prénom, de l'autre Nom...