Aide pour modification d'un code (Problème résolu)

[Lone-wolf]

Bonsoir le Forum et bonne année à tous.

J'ai une petite chose qui m'embête dans le fichier joint, je mexplique:

Après login et mot de passe, Monsieur X ouvre le formulaire de recherche, il cherche Madame Y, ensuite il clique sur le bouton Ouvrir et là, dans la ListBox le nom de Monsieur X apparait. J'aimerais que celui-ci ne soit pas pris en compte, vu que c'est lui qui envois le message.

Merci pour votre aide
Fichier: Carnet d'adresses

 

[James007]

Re : Aide pour modification d'un code

Bonsoir le Forum et bonne année à tous.

J'ai une petite chose qui m'embête dans le fichier joint, je mexplique:

Après login et mot de passe, Monsieur X ouvre le formulaire de recherche, il cherche Madame Y, ensuite il clique sur le bouton Ouvrir et là, dans la ListBox le nom de Monsieur X apparait. J'aimerais que celui-ci ne soit pas pris en compte, vu que c'est lui qui envois le message.

Merci pour votre aide
Fichier: Carnet d'adresses

A priori, Monsieur X, grâce à son login et son mot de passe est facilement identifiable ...
Donc, en recherchant son nom dans ta liste, tu sais quel nom tu veux exclure de la plage à partie de laquelle tu fais l'alimentation de ta ListBox ...

A +
🙂

 

[Lone-wolf]

Re : Aide pour modification d'un code

Bonjour James007,

merci d'avoir répondu.

Je ne comprends pas. Si Mr X ouvre le formulaire de recherche,
pourquoi devrait-il rechercher son nom?

Et si je fait comme tu le dis, dans outlook > envoyé À:
c'est l'adresse de Mr X qui est prise en considération.

 

[James007]

Re : Aide pour modification d'un code

Bonjour James007,

merci d'avoir répondu.

Je ne comprends pas. Si Mr X ouvre le formulaire de recherche,
pourquoi devrait-il rechercher son nom?

Bonjour,

Je me suis sans doute mal exprimé ...
C'est toi et surtout ton code VBA qui va rechercher son nom dans la plage ...
pour l'exclure de l'alimentation de la ListBox ...

A +
🙂

 

[Lone-wolf]

Re : Aide pour modification d'un code

Ooooops, on c'est croisé avec nos messages.

Là, il y a un autre problème.

Je ne sais pas du tout comment écrire ou modifier le code. 😱

 

[James007]

Re : Aide pour modification d'un code

Ooooops, on c'est croisé avec nos messages.

Là, il y a un autre problème.

Je ne sais pas du tout comment écrire ou modifier le code. 😱

Désolé ... loupsolitaire ... mais avec un code aussi sophistiqué et bien écrit ...

c'est difficile pour moi de deviner, dans la pluie qui tombe, que ce n'est pas toi l'auteur ... 😎

A +
🙂

 

[Lone-wolf]

Re : Aide pour modification d'un code

Oui, en effet.

Moi je n'est fait que modifier la présentation des formulaires.

Enfin... si tu pourrait faire quelque chose 😱

 

[James007]

Re : Aide pour modification d'un code

Re,

Je ne sais pas si cela correspond entièrement à ta demande ...

Cijoint.fr - Service gratuit de dépôt de fichiers


A +
🙂

P.S. Pour les tests, j'ai désactivé la création du contact dans Outlook ...

 

[Lone-wolf]

Re : Aide pour modification d'un code

En passant par le formulaire Login et en cliquant sur Valider, j'obtiens l'erreur d'exécution 1004:
Impossible de lire la propriété Match de la classe WorksheetFunction.

Et je n'ai plus le ruban Complément.

 

[James007]

Re : Aide pour modification d'un code

Re,

Pour tester la modification, dans la mesure où la liste du fichier ne comporte que quatre noms, il te faut :

1. Saisir un de ces quatre noms, Valider, et ensuite,
2. Dans le UserForm Carnet d'adresses, choisir Ouvrir pour voir apparaitre ta ListBox sans le nom de l'utilisateur qui vient d'être validé ...

Cijoint.fr - Service gratuit de dépôt de fichiers

A +
🙂

 

[Lone-wolf]

Re : Aide pour modification d'un code [Problème résolu]

Cette fois c'est ok, sauf qu'il fallait mettre motdepasse et non utilis dans la paranthèse.

Merci mille fois et très bon dimanche. 😎

 

[James007]

Re : Aide pour modification d'un code [Problème résolu]

...mettre motdepasse et non utilis dans la parenthèse ...

Je ne comprends pas à quoi correspond cette remarque ... 😕

Mais je suis ravi que tu aies la solution à ton problème ...

A +
🙂

 

[Lone-wolf]

Re : Aide pour modification d'un code [Problème résolu]

Ceci devrait le faire pourtant:

u = GetRowFound(utilis, Feuil1.Range("A1:A100")) ligne que tu as rajouté.

u = GetRowFound(motdepasse, Feuil1.Range("A1:A100")) texte que j'ai modifié.

Avec utilis il n'y avait pas de changements.

A+

 

[James007]

Re : Aide pour modification d'un code [Problème résolu]

Ceci devrait le faire pourtant:

u = GetRowFound(utilis, Feuil1.Range("A1:A100")) ligne que tu as rajouté.

u = GetRowFound(motdepasse, Feuil1.Range("A1:A100")) texte que j'ai modifié.

Avec utilis il n'y avait pas de changements.

A+

Merci pour le feedback ... parce que modifier une application que l'on ne connait pas ...
c'est parfois comme marcher avec un bandeau sur les yeux ... !!! 🙄

A +
🙂