Comment faire une boucle pour vider 10 textbox SVP

[Paritec]

Bonjour à Tous,
J'aimerais vider 10 textbox avant une instruction, mais je n'y arrive pas
j'ai fait
for x = 1 to 10 ' 10 textbox
Textbox & x = ""
next

alors je me trompe c'est sur mais ou?
dans l'attente de vos réponses
a+
Papou

 

[MJ13]

Re : Comment faire une boucle pour vider 10 textbox SVP

Bonjour

UserForm1.Controls("Textbox" & n) = ""

 

[justine]

Re : Comment faire une boucle pour vider 10 textbox SVP

bonjour paritec, le forum
for x = 1 to 10
controls("textbox"&x).value=""
next

 

[Paritec]

Re : Comment faire une boucle pour vider 10 textbox SVP

Bonjour Justine, le forum
Merci beaucoup, oui c'est sur que çà voulais pas marcher avec ma version
merci encore pour tout
a+
Papou

 

[Paritec]

Re : Comment faire une boucle pour vider 10 textbox SVP

Pardon MJ 13 j'avais pas vu ta réponse
merci pour tout
papou

 

[GCFRG]

Re : Comment faire une boucle pour vider 10 textbox SVP

Salut paritec, voici 3 macros pour effacer des "controlBox" selon critère
écrite Par BEBERE, j'ai testé ça fonctionne super bien

'en exemple
Public Sub EffaceTxtBox(ByRef UForm As UserForm)
    Dim Ctrl As Control
    'Boucle sur tous les contrôles de UForm
    For Each Ctrl In UForm.Controls
        If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = vbNullString
    Next

    Set Ctrl = Nothing

End Sub

'en exemple
'Dans n'importe quel UserForm, les TextBox en paramètre ne seront pas affectées
'exemple d'appel: Call EffaceTextBox(Me, "TextBox2", "TextBox4")
Public Sub EffaceTextBox(ByRef UForm As UserForm, ParamArray ExceptTextBoxes())
    Dim Ctrl As Control, i As Long, bModif As Boolean
    'Boucle sur tous les contrôles de UForm
    For Each Ctrl In UForm.Controls
        bModif = True
        If TypeOf Ctrl Is MSForms.TextBox Or TypeOf Ctrl Is MSForms.ComboBox Then
            For i = LBound(ExceptTextBoxes) To UBound(ExceptTextBoxes)
                If Ctrl.Name = ExceptTextBoxes(i) Then
                    bModif = False
                    Exit For
                End If
            Next i
            If bModif Then Ctrl.Value = vbNullString    'évite " "
        End If
    Next

    Set Ctrl = Nothing

End Sub
'utilisé
'appel à partir de l'userform : Me,EffaceComboboxTextBox
Public Sub EffaceComboboxTextBox(ByRef UForm As UserForm)
 Dim Ctrl As Control

 For Each Ctrl In UForm.Controls
 If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = vbNullString
 If TypeOf Ctrl Is MSForms.ComboBox Then Ctrl.Value = vbNullString
 Next Ctrl

 Set Ctrl = Nothing

End Sub

j'espère que tu y trouvreras ton bonheur
Gilbert

 

[BERRACHED said]

Re : Comment faire une boucle pour vider 10 textbox SVP

Salut,Paritec et tous le monde

je joint ce bout de code a ceux deja proposé comme ça tu aura l'embarras du
choix :

For Each CtrlArray In Array(TextBox1, TextBox2,TextBox3, _TextBox4,TextBox5,TextBox6,TextBox7,TextBox8,TextBox9,TextBox10)
        CtrlArray.Value = ""

Cordialement