EXCEL ouverture conditionnelle avec macro

Résolu/Fermé
letof40 Messages postés 26 Date d'inscription mercredi 16 mai 2012 Statut Membre Dernière intervention 16 décembre 2014 - 27 sept. 2012 à 22:19
Mike-31 Messages postés 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 3 oct. 2012 à 14:58
Bonjour à toutes et à tous

voilà mon souci, dans un fichier Excel, j'ai une liste de personnes dans une plage nommée "liste_agents" avec diverses données, j'aimerais conditionner l'ouverture du fichier aux seules personnes de la liste en leur demandant deux données les concernant, par l'intermédiaire d'une macro automatique. Un peu le style "login et Mot de passe"
Je vous remercie d'avance
Cordialement


A voir également:

15 réponses

Mike-31 Messages postés 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 073
27 sept. 2012 à 23:21
Salut,

Je te regarde un code demain matin
0
letof40 Messages postés 26 Date d'inscription mercredi 16 mai 2012 Statut Membre Dernière intervention 16 décembre 2014
28 sept. 2012 à 18:18
Merci Mike-31
0
Mike-31 Messages postés 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 073
29 sept. 2012 à 15:19
Re,

Avec un peu de retard, une idée, sur la feuille 2 tu saisis en colonne A les identifiants comme les noms, les prénoms, les identifiants entreprise etc ...
en colonne B le mot de passe de chaque agent.
cette feuille sera non pas masquée mais rendue invisible sauf par le responsable avec son propre mot de passe. Pour te permettre de voir fonctionner le code je la laisse visible.

si l'identifiant et le mot de passe sont correct le fichier s'ouvre sinon le code boucle tant que les deux sont faux. A ce stade la seule possibilité est d'annuler.
Ouvre le fichier et sert toi des identifiants visible sur la feuil2 et des mots de passe correspondant en B sinon tu peux sélectionner TOTO et mot de passe 222

https://www.cjoint.com/?BIDpsRaOQVg
0
letof40 Messages postés 26 Date d'inscription mercredi 16 mai 2012 Statut Membre Dernière intervention 16 décembre 2014
29 sept. 2012 à 17:07
Bonjour Mike-31
merci de cette réponse, je vais essayer de retrouver le fonctionnement du code et l'adapter à mon fichier qui comporte plus de 1000 utilisateurs... ensuite en cas de non identification, je ferai executer une userform qui collectera les données pour créer le nouvel utilisateur. J'ai encore du boulot.
En tout cas c'est très sympa de me venir en aide, merci encore.
A+
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
letof40 Messages postés 26 Date d'inscription mercredi 16 mai 2012 Statut Membre Dernière intervention 16 décembre 2014
30 sept. 2012 à 20:27
Rebonjour Mike

J'ai beaucoup avancé, il me reste un problème sur lequel je bloque, j'ai un blocage vba si j'essaie d'entrer un Nom qui n'est pas connu dans la Combobox. J'aimerais avoir un message du style, nom inconnu, et là l'utilisateur lancerai un autre UserForm pour s'enregistrer dans la liste.
Merci

Christoph
0
Mike-31 Messages postés 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 073
30 sept. 2012 à 21:37
Re,

J'ai fait un brin de ménage dans mes codes pour ne conserver que ceux qui nous intéresse.
J'ai rajouté une ligne dans la Thiswokbook pour renommer automatiquement la colonne A des noms de sorte que si tu saisis de nouveaux noms et mots de passe en B qu'ils soit pris en compte à chaque ouverture du fichier. En procédant comme cela, le code ne change pas et n'est pas surchargé. Sinon il faut tester l'erreur qui ouvre une userform, qui sélectionne la première cellule vide colonne A pour ajouter à la liste avec un nouveau balayage pour rechercher les homonymes.

ajoutes des noms en A et mots de passe en B, ferme le fichier et teste le

https://www.cjoint.com/?BIEvLcQEbPr
0
letof40 Messages postés 26 Date d'inscription mercredi 16 mai 2012 Statut Membre Dernière intervention 16 décembre 2014
30 sept. 2012 à 22:07
Re

Je te joins un morceau de mon fichier, ce que j'aimerais c'est que quand un utilisateur non connu essaie de se "loger" il puisse entrer son Nom dans la combobox mais que ça lui dise qu'il n'est pas connu et qu'il doit s'enregistrer.
Actuellement si on essai d'entrer une donnée qui n'est pas dans la liste, le code vba plante.

https://www.cjoint.com/?0IEwfc5Rjtm

le NNI pour ESSAI est A00000 et pour Essai2 / B11111
0
Mike-31 Messages postés 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 073
30 sept. 2012 à 23:36
Re,

Je te regarde ça demain, évite de renommer les contrôles sources d'erreurs et surtout complications pour les informaticiens qui prennent le relai
0
Mike-31 Messages postés 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 073
1 oct. 2012 à 22:41
Re,

J'espère ne pas avoir trop fait le ménage dans tes codes,
regarde le fichier voir si on se rapproche de tes attentes

https://www.cjoint.com/?BJbwPHnnJWX
0
letof40 Messages postés 26 Date d'inscription mercredi 16 mai 2012 Statut Membre Dernière intervention 16 décembre 2014
2 oct. 2012 à 00:08
Re

rien à dire, c'est extra, après quelques ajustements, je devrai m'en sortir, il ne me reste plus qu'à donner la possibilité à un utilisateur de modifier ses données peut être par l'intermédiaire de la même UserForm que celle pour s'enregistrer. Ce sera l'objet d'une autre étape, pour le moment je finalise la première.
Je te tiens au courant.
Merci encore de ton aide précieuse.

A+

Christophe
0
Mike-31 Messages postés 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 073
2 oct. 2012 à 08:39
Re,

tu rajoutes un bouton sur ton userfom pour afficher les données en fonction de ton NNI et tu inverses l'ordre
ActiveCell(1, 2) = NOM.Value
par
NOM.Value =ActiveCell(1, 2)
pour chaque contrôle

il y a un bug sur le fichier que je vais revoir, lorsque le fichier s'ouvre, puis tu clic sur le bouton Enregistrer, la deuxième Userform s'ouvre et si tu clic sur ANNULER l'userform se ferme mais pas le fichier
0
Mike-31 Messages postés 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 073
2 oct. 2012 à 17:51
Re,

regarde comme cela

https://www.cjoint.com/?BJcrZGlWSYB
0
letof40 Messages postés 26 Date d'inscription mercredi 16 mai 2012 Statut Membre Dernière intervention 16 décembre 2014
2 oct. 2012 à 22:45
re

quelques petites modifs, j'ai ajouter la fermeture sans enregistrement, modifié quelques textes... Un cas me donne du soucis: quand le nom n'est pas reconnu et que ça appelle la msgbox, le clic sur le bouton "annuler" au lieu de fermer excel a le même effet que celui sur le bouton "non"
Je pourrais éventuellement t'envoyer mon fichier complet, mais en MP car il y a quelques données privées que je ne voudrais pas divulguer. Comment faire?
Merci

à plus
0
Mike-31 Messages postés 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 073
2 oct. 2012 à 23:35
Re,

Pour un MP, clic sur mon pseudo, puie en haut à droite clic sur Lui écrire un message
tu mets un titre et colle le lien
0
Mike-31 Messages postés 18314 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 073
3 oct. 2012 à 14:58
Re,

J'aqi récupéré ton fichier, je regarde le problème et te retourne le fichier en MP
0