Vider les textbox (sans rien supprimer)

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Provence Vintage

XLDnaute Occasionnel
Bonjour,

Qu'elle est la commande qui permet de vider les TextBox pour effectuer d'autres saisies dans un USF, exemple: après une recherche, recharger l'USF sans en sortir

merci d'avance
 
Re : Vider les textbox (sans rien supprimer)

Bonjour Provence Vintage, bonjour le forum,

Si tu veux le réinitialiser un simple Unload Me suivi d'un Nom_Userform.Show. Sinon il te faudra les vider un à un peut-être par une boucle selon le nom ou le numéro d'index qu'ils portent...
 
Re : Vider les textbox (sans rien supprimer)

Bonjour Provence Vintage, Robert, le forum,

Provence,

Tu peux aussi affecter les ControlSource de tes TextBox à des cellules de ta Feuille de travail.
En les attachant à des cellules contigües, une simple instruction style :

Code:
Range(TaPlage).ClearContents

te remettra tous tes TextBox à blanc.

Espérant avoir aidé.

Cordialement.
 
Re : Vider les textbox (sans rien supprimer)

Re,

Qui peux m'aider à remettre celà correctement:
Si réponse Faux:
fermer usf et retourner à accueil
si oui:
Unload usf et retour sur celui ci

Private Sub CommandButton3_Click()
Dim réponse
réponse = MsgBox(" Voulez-vous Effectuer une nouvelle Recherche ? ", vbYesNo + vbQuestion, "Validation")
If réponse = vbNo Then Unload ConsulterFicheAcquéreur
Accueil.Show
Exit Sub
If réponse = vbYes Then Unload ConsulterFicheAcquéreur
ConsulterFicheAcquéreur.Show
Exit Sub

End Sub

Mon code bug
merci
 
Re : Vider les textbox (sans rien supprimer)

Bonjour le fil, bonjour le forum,

Ton code me semble correct, il plante où ?
Peut-être comme ça :
Code:
Private Sub CommandButton3_Click()
Dim réponse As Byte
Unload ConsulterFicheAcquéreur
réponse = MsgBox(" Voulez-vous Effectuer une nouvelle Recherche ? ", vbYesNo + vbQuestion, "Validation")
If réponse = vbNo Then
    Accueil.Show
Else
    ConsulterFicheAcquéreur.Show
End If
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
539
Réponses
1
Affichages
193
W
Retour