résolu :regrouper plusieurs TextBox

AKRAMI · 31 Décembre 2015

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 · 31 Décembre 2015

Re : regrouper plusieurs TextBox

Bonjour...Comme ceci il me semble

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

AKRAMI · 31 Décembre 2015

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 · 31 Décembre 2015

Re : regrouper plusieurs TextBox

bonsoir AKRAMI, CPk,

une solution possible:

Code:

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 · 31 Décembre 2015

Re : regrouper plusieurs TextBox

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

résolu :regrouper plusieurs TextBox

AKRAMI

XLDnaute Junior

CPk

XLDnaute Impliqué

AKRAMI

XLDnaute Junior

Paf

XLDnaute Barbatruc

AKRAMI

XLDnaute Junior

Discussions similaires