résolu :regrouper plusieurs TextBox

[AKRAMI]

Bonjour le forum
Bonsoir a tous et a toutes
Svp je sollicite vos aide si vous pouvez m'indiquer à une certaine solution a ce probleme ..
Si j'ai plusieurs valeur comme ceci :
Private Sub TextBox15_Change
TextBox1= ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
End Sub
SVP est ce qu'on peut regrouper ces TextBox vides et les ecrire dans une seule ligne par exemple dans ce code.
Merci d'avance pour vos suggestions
Tres amicalement
AKRAMI

 

[CPk]

Re : regrouper plusieurs TextBox

Bonjour...Comme ceci il me semble

For a = 1 To 7
Controls(TextBox & a) = ""
Next

 

[AKRAMI]

Re : regrouper plusieurs TextBox

Bonjour CPk
BONNE ANNEE 2016
Merci pour l'aide
S'il vous plait CPk .. comment se sera ce code si ces TextBox ne sont pas dans l'ordre .. comme exemple :
TextBox1 = ""
TextBox5 = ""
TextBox11 = ""
TextBox41 = ""
TextBox69 = ""
etc ..
Merci d'avance
Amicalement
AKRAMI

 

[Paf]

Re : regrouper plusieurs TextBox

bonsoir AKRAMI, CPk,

une solution possible:

Dim NumTB
NumTB=Array(1,5,11,47,69,55)  ' à adapter
For a = Lbound(NumTB)  To Ubound(NumTB)
     Controls(TextBox & NumTB(a)) = ""
Next

A+

 

[AKRAMI]

Re : regrouper plusieurs TextBox

Bonsoir Paf
Merci beaucoup pour ce super code
Bonne annee 2016
C'est resolu
Amicalement
AKRAMI