Nettoyer une Zone de texte

[MPETIT]

Bonjour,

J'ai un problème tout simple mais que je n'arrives pas à résoudre. J'aimerais nettoyer des "TextBox" quand je clique un bouton déconnexion.

J'ai utilisé la formule Txt_utilisateur.Value = Clear mais cela ne fonctionne pas.
Attention il y a beaucoup de feuilles ne vous occupez que des feuilles "login" et "planning général".

De plus si vus avez des problèmes pour vous connecter : Utilisateur : Benoît
Mot de passe : 123

Merci d'avance

 

[Ikito]

Bonjour MPETIT,

Txt_utilisateur.Value = ""

C'est ce que tu cherches ?

 

[MPETIT]

Je l'ai déja essayé aussi mais cela ne fonctionne pas

 

[MPETIT]

N'hésite pas à tester sur le fichier directement mais dans le principe c'est que le contenu des "textbox" s'efface quand on appuie sur le bouton "déconnexion"

 

[Ikito]

MPETIT,

Ca fonctionne chez moi, voir fichier joint.

 

[MPETIT]

J'ai essayé encore une fois mais cela ne fonctionne pas ....

 

[Ikito]

MPETIT,

La solution :

ActiveSheet.OLEObjects("Txt_utilisateur").Object.Value = ""

 

[MPETIT]

Peux tu m'expliquer concrètement la différence entre cette ligne de code et l'ancienne pour ne plus me tromper à l'avenir ?

 

[MPETIT]

Et ça ne fonctionne toujours pas

 

[MPETIT]

Malheureusement

 

[Ikito]

MPETIT,

Nomal, "ActiveSheet" ne pointait pas sur la bonne feuille.

Voici la modification (Avec la TextBox pass) :

    Sheets("Login").OLEObjects("Txt_utilisateur").Object.Value = ""
    Sheets("Login").OLEObjects("Txt_pass").Object.Value = ""

D'après la documentation Excel :

Chaque objet OLEObject représente soit un contrôle ActiveX, soit un objet OLE lié ou incorporé.

 

[MPETIT]

C'est bon tout fonctionne !

Je te remercie pour ton aide précieuse !

 

[Ikito]

MPETIT,

Pas de soucis, tu peux tagguer le post en "Résolu".

 

[MPETIT]

C'est ce que je cherche justement mais je ne le trouve pas

 

[Ikito]

MPETIT,

Edite ton premier post, et au lieu de "XL 2019", ajoute le tag "Résolu"