Bonjour,
J'ai un Userform avec plusieurs Frame,
Je souhaiterais initialiser 20 textbox par une boucle plutot que faire
Me.TextBox1 ="" (20 fois)
Est-il possible par une boucle "style For Each" d'éviter de les initialiser
1 par 1
J'ai ce cas dans plusieurs Frame
Merci d'avance
--
Cordialement
jpmonnier-no-spam@neuf.fr
For i = 1 To 20 Liste = TextBox & i Me.Liste = "" Next
Mais je ne sais pas si celà fonctionne
Fais des essais et dis moi !!!!
lSteph
Bonjour,
un exemple extrait ...donc à adapter (ici j'ai un spinbutton qui doit me permettre ensuite le défilement) A noter que pour le bon fonctionnement les contrôles sont ordonnés et ont gardé leur nom générique :
Private Sub UserForm_Initialize() Dim i As Byte Frame2.Caption = SpinButton1 For i = 1 To 30 Me.Controls("Label" & i).Caption = Feuil1.Cells(1, i) Me.Controls("TextBox" & i) = Feuil1.Cells(SpinButton1, i) Next End Sub
'lSteph
On 18 juil, 07:20, "JPMonnier" wrote:
Bonjour, J'ai un Userform avec plusieurs Frame, Je souhaiterais initialiser 20 textbox par une boucle plutot que faire Me.TextBox1 ="" (20 fois) Est-il possible par une boucle "style For Each" d'éviter de les initial iser 1 par 1 J'ai ce cas dans plusieurs Frame Merci d'avance -- Cordialement
Bonjour,
un exemple extrait ...donc à adapter (ici j'ai un spinbutton qui doit
me permettre ensuite le défilement)
A noter que pour le bon fonctionnement les contrôles sont ordonnés et
ont gardé leur nom générique :
Private Sub UserForm_Initialize()
Dim i As Byte
Frame2.Caption = SpinButton1
For i = 1 To 30
Me.Controls("Label" & i).Caption = Feuil1.Cells(1, i)
Me.Controls("TextBox" & i) = Feuil1.Cells(SpinButton1, i)
Next
End Sub
'lSteph
On 18 juil, 07:20, "JPMonnier" <jpmonnier-nos...@neuf.fr> wrote:
Bonjour,
J'ai un Userform avec plusieurs Frame,
Je souhaiterais initialiser 20 textbox par une boucle plutot que faire
Me.TextBox1 ="" (20 fois)
Est-il possible par une boucle "style For Each" d'éviter de les initial iser
1 par 1
J'ai ce cas dans plusieurs Frame
Merci d'avance
--
Cordialement
jpmonnier-no-s...@neuf.fr
un exemple extrait ...donc à adapter (ici j'ai un spinbutton qui doit me permettre ensuite le défilement) A noter que pour le bon fonctionnement les contrôles sont ordonnés et ont gardé leur nom générique :
Private Sub UserForm_Initialize() Dim i As Byte Frame2.Caption = SpinButton1 For i = 1 To 30 Me.Controls("Label" & i).Caption = Feuil1.Cells(1, i) Me.Controls("TextBox" & i) = Feuil1.Cells(SpinButton1, i) Next End Sub
'lSteph
On 18 juil, 07:20, "JPMonnier" wrote:
Bonjour, J'ai un Userform avec plusieurs Frame, Je souhaiterais initialiser 20 textbox par une boucle plutot que faire Me.TextBox1 ="" (20 fois) Est-il possible par une boucle "style For Each" d'éviter de les initial iser 1 par 1 J'ai ce cas dans plusieurs Frame Merci d'avance -- Cordialement
JPMonnier
Salut FFO Désolé ça ne va pas : Mon pb est que mes Name de textbox sont PBSF, PBSG, PTSF,PTSG etc (Mnémonique pour m'y retouver) Donc je souhaiterais les passer en variable soit : Me.Variable (Variable = mes noms de TextBox) Je ne sais pas si c'est faisable ! Merci -- Cordialement
"FFO" a écrit dans le message de news:
Salut à toi
Je tenterai d'utiliser ce type de boucle :
For i = 1 To 20 Liste = TextBox & i Me.Liste = "" Next
Mais je ne sais pas si celà fonctionne
Fais des essais et dis moi !!!!
Salut FFO
Désolé ça ne va pas : Mon pb est que mes Name de textbox sont PBSF, PBSG,
PTSF,PTSG etc (Mnémonique pour m'y retouver)
Donc je souhaiterais les passer en variable soit :
Me.Variable (Variable = mes noms de TextBox)
Je ne sais pas si c'est faisable !
Merci
--
Cordialement
jpmonnier-no-spam@neuf.fr
"FFO" <FFO@discussions.microsoft.com> a écrit dans le message de
news:400EF9C1-1CF2-4E0D-B539-136451F09323@microsoft.com...
Salut à toi
Je tenterai d'utiliser ce type de boucle :
For i = 1 To 20
Liste = TextBox & i
Me.Liste = ""
Next
Salut FFO Désolé ça ne va pas : Mon pb est que mes Name de textbox sont PBSF, PBSG, PTSF,PTSG etc (Mnémonique pour m'y retouver) Donc je souhaiterais les passer en variable soit : Me.Variable (Variable = mes noms de TextBox) Je ne sais pas si c'est faisable ! Merci -- Cordialement
"FFO" a écrit dans le message de news:
Salut à toi
Je tenterai d'utiliser ce type de boucle :
For i = 1 To 20 Liste = TextBox & i Me.Liste = "" Next
Mais je ne sais pas si celà fonctionne
Fais des essais et dis moi !!!!
JPMonnier
Salut lSteph, Merci pour ta réponse je vois que mes nomns n'étant pas les noms génériques, ceci ne peut fonctionner Je ne sais pas si il y a une solution Merci -- Cordialement
"lSteph" a écrit dans le message de news: Bonjour,
un exemple extrait ...donc à adapter (ici j'ai un spinbutton qui doit me permettre ensuite le défilement) A noter que pour le bon fonctionnement les contrôles sont ordonnés et ont gardé leur nom générique :
Private Sub UserForm_Initialize() Dim i As Byte Frame2.Caption = SpinButton1 For i = 1 To 30 Me.Controls("Label" & i).Caption = Feuil1.Cells(1, i) Me.Controls("TextBox" & i) = Feuil1.Cells(SpinButton1, i) Next End Sub
'lSteph
On 18 juil, 07:20, "JPMonnier" wrote:
Bonjour, J'ai un Userform avec plusieurs Frame, Je souhaiterais initialiser 20 textbox par une boucle plutot que faire Me.TextBox1 ="" (20 fois) Est-il possible par une boucle "style For Each" d'éviter de les initialiser 1 par 1 J'ai ce cas dans plusieurs Frame Merci d'avance -- Cordialement
Salut lSteph,
Merci pour ta réponse
je vois que mes nomns n'étant pas les noms génériques, ceci ne peut
fonctionner
Je ne sais pas si il y a une solution
Merci
--
Cordialement
jpmonnier-no-spam@neuf.fr
"lSteph" <gmLSteph@gmail.com> a écrit dans le message de
news:a4e0839d-7ffd-40e8-ac42-cac6ec379499@v1g2000pra.googlegroups.com...
Bonjour,
un exemple extrait ...donc à adapter (ici j'ai un spinbutton qui doit
me permettre ensuite le défilement)
A noter que pour le bon fonctionnement les contrôles sont ordonnés et
ont gardé leur nom générique :
Private Sub UserForm_Initialize()
Dim i As Byte
Frame2.Caption = SpinButton1
For i = 1 To 30
Me.Controls("Label" & i).Caption = Feuil1.Cells(1, i)
Me.Controls("TextBox" & i) = Feuil1.Cells(SpinButton1, i)
Next
End Sub
'lSteph
On 18 juil, 07:20, "JPMonnier" <jpmonnier-nos...@neuf.fr> wrote:
Bonjour,
J'ai un Userform avec plusieurs Frame,
Je souhaiterais initialiser 20 textbox par une boucle plutot que faire
Me.TextBox1 ="" (20 fois)
Est-il possible par une boucle "style For Each" d'éviter de les
initialiser
1 par 1
J'ai ce cas dans plusieurs Frame
Merci d'avance
--
Cordialement
jpmonnier-no-s...@neuf.fr
Salut lSteph, Merci pour ta réponse je vois que mes nomns n'étant pas les noms génériques, ceci ne peut fonctionner Je ne sais pas si il y a une solution Merci -- Cordialement
"lSteph" a écrit dans le message de news: Bonjour,
un exemple extrait ...donc à adapter (ici j'ai un spinbutton qui doit me permettre ensuite le défilement) A noter que pour le bon fonctionnement les contrôles sont ordonnés et ont gardé leur nom générique :
Private Sub UserForm_Initialize() Dim i As Byte Frame2.Caption = SpinButton1 For i = 1 To 30 Me.Controls("Label" & i).Caption = Feuil1.Cells(1, i) Me.Controls("TextBox" & i) = Feuil1.Cells(SpinButton1, i) Next End Sub
'lSteph
On 18 juil, 07:20, "JPMonnier" wrote:
Bonjour, J'ai un Userform avec plusieurs Frame, Je souhaiterais initialiser 20 textbox par une boucle plutot que faire Me.TextBox1 ="" (20 fois) Est-il possible par une boucle "style For Each" d'éviter de les initialiser 1 par 1 J'ai ce cas dans plusieurs Frame Merci d'avance -- Cordialement
LSteph
Private Sub UserForm_Initialize() Dim ctl As Control, i As Byte i = 0 For Each ctl In Me.Controls If TypeOf ctl Is msforms.TextBox Then i = i + 1 ctl.Text = Cells(1, i) End If Next End Sub
':-)
JPMonnier a écrit :
Salut lSteph, Merci pour ta réponse je vois que mes nomns n'étant pas les noms génériques, ceci ne peut fonctionner Je ne sais pas si il y a une solution Merci
Private Sub UserForm_Initialize()
Dim ctl As Control, i As Byte
i = 0
For Each ctl In Me.Controls
If TypeOf ctl Is msforms.TextBox Then
i = i + 1
ctl.Text = Cells(1, i)
End If
Next
End Sub
':-)
JPMonnier a écrit :
Salut lSteph,
Merci pour ta réponse
je vois que mes nomns n'étant pas les noms génériques, ceci ne peut
fonctionner
Je ne sais pas si il y a une solution
Merci
Private Sub UserForm_Initialize() Dim ctl As Control, i As Byte i = 0 For Each ctl In Me.Controls If TypeOf ctl Is msforms.TextBox Then i = i + 1 ctl.Text = Cells(1, i) End If Next End Sub
':-)
JPMonnier a écrit :
Salut lSteph, Merci pour ta réponse je vois que mes nomns n'étant pas les noms génériques, ceci ne peut fonctionner Je ne sais pas si il y a une solution Merci
JPMonnier
Merci infiniment LlSteph c'est nickel j'ai remplacé ctl.Text = Cells(1, i) par ctl.Text = "", qui me met toutes mes textbox à "", ce que je voulais C'est le top ! J'en apprend tous les jours ici ! Plus je pose des questions sur ce forum, plus je me rend compte que je suis tout petit ! Si j'avais eu la chance d'avoir un tel forum quand j'étais en activité, c'est moi qui répondrais aus posts aujourd'hui Si je reprenais tout ce que j'ai developpé en VBA, la longueur de mes procédures serait divisée par 10 !! Chapeau et encore merci pour le partage des connaissances Jean Pierre -- Cordialement
"LSteph" a écrit dans le message de news:%
Private Sub UserForm_Initialize() Dim ctl As Control, i As Byte i = 0 For Each ctl In Me.Controls If TypeOf ctl Is msforms.TextBox Then i = i + 1 ctl.Text = Cells(1, i) End If Next End Sub
':-)
JPMonnier a écrit :
Salut lSteph, Merci pour ta réponse je vois que mes nomns n'étant pas les noms génériques, ceci ne peut fonctionner Je ne sais pas si il y a une solution Merci
Merci infiniment LlSteph c'est nickel
j'ai remplacé ctl.Text = Cells(1, i)
par ctl.Text = "", qui me met toutes mes textbox à "", ce que je voulais
C'est le top !
J'en apprend tous les jours ici !
Plus je pose des questions sur ce forum, plus je me rend compte que je suis
tout petit !
Si j'avais eu la chance d'avoir un tel forum quand j'étais en activité,
c'est moi qui répondrais aus posts aujourd'hui
Si je reprenais tout ce que j'ai developpé en VBA, la longueur de mes
procédures serait divisée par 10 !!
Chapeau et encore merci pour le partage des connaissances
Jean Pierre
--
Cordialement
jpmonnier-no-spam@neuf.fr
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:%23dMIbUR6IHA.3696@TK2MSFTNGP04.phx.gbl...
Private Sub UserForm_Initialize()
Dim ctl As Control, i As Byte
i = 0
For Each ctl In Me.Controls
If TypeOf ctl Is msforms.TextBox Then
i = i + 1
ctl.Text = Cells(1, i)
End If
Next
End Sub
':-)
JPMonnier a écrit :
Salut lSteph,
Merci pour ta réponse
je vois que mes nomns n'étant pas les noms génériques, ceci ne peut
fonctionner
Je ne sais pas si il y a une solution
Merci
Merci infiniment LlSteph c'est nickel j'ai remplacé ctl.Text = Cells(1, i) par ctl.Text = "", qui me met toutes mes textbox à "", ce que je voulais C'est le top ! J'en apprend tous les jours ici ! Plus je pose des questions sur ce forum, plus je me rend compte que je suis tout petit ! Si j'avais eu la chance d'avoir un tel forum quand j'étais en activité, c'est moi qui répondrais aus posts aujourd'hui Si je reprenais tout ce que j'ai developpé en VBA, la longueur de mes procédures serait divisée par 10 !! Chapeau et encore merci pour le partage des connaissances Jean Pierre -- Cordialement
"LSteph" a écrit dans le message de news:%
Private Sub UserForm_Initialize() Dim ctl As Control, i As Byte i = 0 For Each ctl In Me.Controls If TypeOf ctl Is msforms.TextBox Then i = i + 1 ctl.Text = Cells(1, i) End If Next End Sub
':-)
JPMonnier a écrit :
Salut lSteph, Merci pour ta réponse je vois que mes nomns n'étant pas les noms génériques, ceci ne peut fonctionner Je ne sais pas si il y a une solution Merci