Raz

[Chloulou]

Bonjour tout le monde
je ne me suis pas encore présenté, alors je le ferai sous peu
Bref, j ai un petit souci qui me tracasse pour la RAZ de TextBox utilisées pour la saisie

Jai comme code :
Dim Ctrl As Control

For Each Ctrl In Me.ZoneGeneral.Controls 'ZoneGeneral c'est un frame

If TypeOf Ctrl Is MSForms.TextBox Then
Ctrl.Object.Value = ""
End If

Next Ctrl

et il ne fait rien... bizarre car j'ai modifié un code de Microsoft Help and Support pour mon besoin :
Private Sub CommandButton1_Click()
Dim x As Control

For Each x in Frame1.Controls 'Loop through the option buttons
'within the Frame
If x.Value = True Then
MsgBox x.Caption 'Display the name of the selected
End If 'option button
Next
End Sub

Avez vous des idées du pourquoi ca marche pas?
merci

 

[PascalXLD]

Re : Raz

Bonjour

tu as essayé avec

Ctrl.Value = ""

au lieu de

Ctrl.Object.Value = ""

 

[Chloulou]

Re : Raz

je viens d'essayer et rien n'y fait :les textbox restent remplies

j ai d'autre méthode, mais il faudrait que je supprime les noms de mes textbox, alors ca n'ira pas

 

[PascalXLD]

Re : Raz

re

tu peux envoyer un exemple STP

 

[Chloulou]

Re : Raz

J arrive pas a l'uploader car je peux pas le compresser à la bonne taille
Solution?

 

[PascalXLD]

Re : Raz

Re

J'ai besoin de presque rien juste ton uf avec le bouton raz c'est tout

 

[Chloulou]

Re : Raz

Voilà :
Bouton RAZ dans Userform1
Au début j avais réinitialisé chacun des chamos, mais maintenant je voudrais mettre en place (après) une macro : Public Sub RAZ(Frame) que je pourrai appeler ou je veux

Mais résolvons d'abord ce pb :

 

[PascalXLD]

Re : Raz

Re

je viens de faire un test

j'ai remis ce code sur le bouton remise à zéro de ton UF

Dim Ctrl As Control

For Each Ctrl In Me.ZoneGeneral.Controls 'ZoneGeneral c'est un frame

If TypeOf Ctrl Is MSForms.TextBox Then
Ctrl.Value = ""
End If

Next Ctrl

Et j'efface bien tout les textbox de ton frame général

 

[Chloulou]

Re : Raz

j'suis trop nul, j avais pas même vu que le nom de ma macro RAZ_click() n'était pas BoutonRAZ_click() comme ca aurait du l'être

c'est bête mais c'est pas plus mal d'e^tre a plusieurs pour vérifier un code. Au moins les autres levent la tete du guidon : a faisait un bout de temps que je galerai (30min au moins)

merci

 

[PascalXLD]

Re : Raz

Re

T'inquiètes c'est le genre de truc tu t'en rapelleras tu ne te feras pas avoir 2 fois

Bonne journée et bon courage

 

[Chloulou]

Re : Raz

Mais maitenant je voudrais faire une macro que je peux appeler dans toutes les autres, mais ca bogge quelque part

Public Function RAZ_TextBox(USF As UserForm, Cadre As Frame)

'Objectif : remettre à zéro l'ensemble des controles TextBox d'un cadre (frame)

Dim Ctrl As Control

For Each Ctrl In USF.Cadre.Controls

If TypeOf Ctrl Is MSForms.TextBox Then
Ctrl.Object.Value = ""
End If

Next Ctrl

End Function

en effet quand je l'appelle
Sub BoutonRAz_Click()
RAZ_TextBox(UserForm1, ZoneGeneral)
End Sub

ca marche pas, il dit : erreur de syntaxe, je me suis trompé pour appeler la macro? c'est la premiere fois que je le fais

 

[PascalXLD]

Re : Raz

Re

regarde si tu trouves ton bonheur ici

https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/