XL 2019 Transférer la valeur d’une formule dans Visual basic

[Sellig]

Bonjour,

Je n’arrive pas à trouver ma solution sur internet. Je fini par me demander si ce que je cherche faire est réalisable.


Mon fichier ‘’ Test’’ demande un mot de passe dans une inputbox pour s’ouvrir

Mot de passe actuelle : 04321

Une fois ouvert, il va sur la feuille ‘’Menu’’

Jusque-là, tout va bien.

Seulement, j’aimerais changer le mot de passe sans avoir besoin d’intervenir dans VBA.

J’aimerais donc que Thisworkbook aille chercher le nouveau mot de passe sur la feuille ‘’Paramètres’’ en cellule B1.


J’ai simplifié au maximum mon classeur Test, évidemment les onglets seront verrouillés en VeryHidden etc

Est-ce réalisable s’il vous plait et si oui comment ?

Merci infiniment pour vos réponses

Bien cordialement

 

[job75]

Bonsoir Sellig,

Dans ThisWorkbook remplacer :

If MotPasse = "04321" Then

par :

If MotPasse = Sheets("Paramètres").[B1] Then

A+

 

[Sellig]

Merci mais ça ne fonctionne pas.
J'ai mis 01234 dans paramètres, ca ne l'a pas pris en compte

 

[Sellig]

Merci mais ça ne fonctionne pas.
J'ai mis 01234 dans paramètres, ca ne l'a pas pris en compte

Pardon je me suis trompé de fichier
C'est celui-ci avec mot de passe 04321

 

[job75]

J'ai dit ce qu'il fallait faire au post #2, je ne vais quand même pas le répéter...

 

[TooFatBoy]

Bonjour,

J'ai mis 01234 dans paramètres, ca ne l'a pas pris en compte

J'ai dit ce qu'il fallait faire au post #2, je ne vais quand même pas le répéter...

Certes, mais on peut compléter en disant que si ça ne fonctionne pas, c'est parce que la cellule B1 n'est pas au format texte et qu'elle contient donc 1234 et non 01234.

 

[Sellig]

Merci infiniment TooFatBoy, avec ton petit message ça fonctionne nickel

Quant à toi job75, évite de répondre aux messages ou change de métier ou d'humeur

 

[TooFatBoy]

Je ne veux pas entrer dans une polémique qui n'a pas lieu d'être, donc je dirais juste que sans les réponses de job75 depuis 2008 il y aurait certainement des centaines de personnes qui chercheraient encore une solution à leur problème.

Sur ce, bonne journée à tous.

 

[job75]

Merci TooFatBoy.

Sur ce fil je me suis contenté de dire comment il fallait modifier le code VBA.

Ce qu'il y a dans Paramètres!B1 a en fait peu d'importance, il suffit de le savoir.