OUverture sous condition d'un userform

bartelele · 6 Décembre 2010

Bonjour à tous,

J'ai créer un petit userform pour enregistrer les utilisateurs de mon futur fichier.
Deux solutions s'offrent à nous, la première l'utilisateur veut s'enregistrer, un LB nous donne son pseudi (qui est en fait le nom de seccion sur lequel il s'est logger) ou alors l'utilisateur travaille sur le compte d'un collègue.

Tout cela fonctionne 🙂

Ce que je souhaiterais faire c'est lors de l'ouverture du fichier tester si l'utilisateur est déjà enregistrer, donc regarder si le username de l'utulisateur est présent dans la colonne 2 de la feuille Paramètre. Si l'utilisateur est déjà enregistré le userform ne souvre pas, si c'est sa première utilisation celui-ci s'ouvre.

Dans un souci d'ergonomie j'ai fait un commandbutton pour réaliser la procedure, que plutot fermer et reouvrir le fichier à chaque fois.

Bon mon problème c'est que je galère...j'ai essayé pas mal de chose avec if et do until mais bon c'est toujours pas ca... alors que je trouvais ca simple à la base 🙁

Quelqu'un sait?

merci d'avance 😀

Papou-net · 6 Décembre 2010

Re : OUverture sous condition d'un userform

Bonsoir bartelel,

Tu peux essayer en modifiant ta macro comme suit :

Code:

Sub macro1()
  Set Nom = Sheets("Parametres").Range("A:A").Find(Application.UserName, LookIn:=xlValues)
  If Nom Is Nothing Then UserForm1.Show
End Sub

Espérant avoir répondu.

Cordialement.

bartelele · 6 Décembre 2010

Re : OUverture sous condition d'un userform

Merci de ton aide, c'est ce que j'essayais de faire depuis tout à l'heure!

bonne soirée à toi 😉

OUverture sous condition d'un userform

bartelele

Guest

Pièces jointes

Papou-net

XLDnaute Barbatruc

bartelele

Guest

Discussions similaires

OUverture sous condition d'un userform

bartelele

Guest

Pièces jointes

Papou-net

XLDnaute Barbatruc

bartelele

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency