Effacer le contenu des text box dans une frame

Question

Salut à tous,

J'ai une frame qui contient environ une trentaine de  TextBox. Je souhaiterais remettre les valeurs de tous les TextBox à "0" lors de la fermeture du Userform

Je pensais à quelquechose du style : 

For each TextBox in Frame ("NomFrame")If  TextBox.Value "" or TextBox.Value <> "0" Then
   TextBox.Value = "0"
End if
Next

Mais cela ne marche pas!!! 
Si vous avez une tite idée pour me dépanner.

cs_kazer04 · Answer

a quoi ca te sert de les remettre a 0 si tu ferme ta form apres 
moi je trouve qu'il faut plutot initialiser tes texbox a 0 au chargement de ta feuille

Nikos620 · Answer

EUh..petit lapsus..je ne ferme pas le userform, j'ai plusieur checkbox et en fonction du choix, la frame est ou n'est pas affichée...et le choix des checkbox implique de nouveaux calculs et donc de nouvelle valeur pour chaque textbox

jrivet · Answer

Salut,

Essaie cette petite procédure

Private Sub ResetTextBoxes(ByRef OFrame As MSForms.Frame) 
Dim CtrlO As Control 
    'Pour chaque control contenu dans
    'Oframe
    For Each CtrlO In OFrame.Controls 
        'Si le type du control est textbox alors
        'Modification de la propriété Value
        If TypeOf CtrlO Is MSForms.TextBox Then CtrlO.Value =  "Test" 
    Next 
End Sub 

Il Suffit de l'appele ensuite par  Call ResetTextBoxes(NomFrame) 

@+: =89254 Ju£i?n
Pensez: Réponse acceptée

Effacer le contenu des text box dans une frame

3 réponses

Votre réponse

Discussions similaires