[Résolu] Exclure de la ListBox l'adresse email de l'utilisateur

[Lone-wolf]

Bonjour le Forum,

j'aimerais comme le titre l'indique, exclure de la ListBox l'adresse email de la personne qui ouvre le formulaire.

Voici comment procéder. Fichier joint: Ce lien n'existe plus

Dans le formulaire Login, tapez: Nom Utilisateur = smazza - Mot de passe= p@ss02
Le formulaire de recherche s'ouvre.

Ici dans Rechercher, tapez: egger puis Enter.

Cliquez enfin sur le bouton Ouvrir. Dans la ListBox s'affiche l'adresse email de smazza, qui logiquement ne doit pas apparaître, vus que c'est lui qui envois le mail.

Merci d'avance 😎

 

[dra72]

Re : Exclure de la ListBox l'adresse email de l'utilisateur

Bonjour,

Dans ton code,

Private Sub UserForm_Initialize()
' modifié pour que la listbox ne s'alimente qu'avec les valeurs contenues dans
' la feuille Liste colonne H et "oublie" les cellules vides
' et pour exclure l'utilisateur ...

Dim i, derlig As Integer

    With Sheets("Liste")
    derlig = .Range("H65536").End(xlUp).Row
        For i = 2 To derlig
            If i <> u Then

à quoi correspond ta variable u?
Je suppose à l'utilisateur, mais elle n'est renseignée nulle part...

Cordialement.

A+

 

[Lone-wolf]

Re : Exclure de la ListBox l'adresse email de l'utilisateur

Bonjour dra72,

là je ne puis t'aider, le code ne viens pas de moi.
Ce matin, j'ai l'ai modifié et ajouté un With avec la colonne qui correspond à l'utilisateur, mais sans succès.

A+ 😎

 

[dra72]

Re : Exclure de la ListBox l'adresse email de l'utilisateur

Dans la procédure Valider_Click de la feuille Login, tu ajoutes la ligne

u = x

juste avant

Unload Login

Je pense que ça devrait solutionner ton problème.

A+.

et

Joyeux Noël.

 

[Lone-wolf]

Re : Exclure de la ListBox l'adresse email de l'utilisateur

Re, dra72.

Je viens de tester, ce n'est pas ça. J'ai aussi fais un test dans Userform_Initialize et là non plus.

A+ 😎

Joyeux Noël à toi aussi.

 

[dra72]

Re : Exclure de la ListBox l'adresse email de l'utilisateur

Autant pour moi.

J'ai oublié de te dire qu'il fallait en plus supprimer

Dim u

dans les déclarations de l'usf Login

Bon réveillon à+

 

[Lone-wolf]

Re : Exclure de la ListBox l'adresse email de l'utilisateur

YES!! C'est génial.

J'ai rajouter aussi une condition dans Login pour ne pas ouvrir Nouveau.
En effet, si tu clique sur valider(Login) sans nom n'y mot de passe, le formulaire Nouveau s'affiche.

Très bon réveillon à toi et la famille.

A+😎