Bonjour comment peut t'on faire lorsque l'on souhaite récupérer les valeurs
d'un nombre important de textbox , qui se ne nomme par exemple TxtNuméro1 ,
TxtNuméro2, TxtNuméro3 et ainsi de suite.
ces valeurs doivent ètre rangées dans une feuille de calcul les unes en
dessous des autres.
nota je souhaiterai faire une boucle en faisant varier le noms des text box
. plutot qu'utiliser
range ("A1").value=TxtNuméro1.value
range("A2").value=TxtNuméro2.value
ce qui fonctionne mais n'est pas génial.
merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLuc
*Bonjour jean-marcel.houssu*, For Each ctrl In Me.Controls If TypeName(ctrl) = "TextBox" And Left(ctrl.Name, 9) = "TxtNuméro" Then Range("A1").Offset(Mid(ctrl.Name, 10, Len(ctrl.Name) - 9) - 1, 0) = ctrl.Value End If Next
Bonjour comment peut t'on faire lorsque l'on souhaite récupérer les valeurs d'un nombre important de textbox , qui se ne nomme par exemple TxtNuméro1 , TxtNuméro2, TxtNuméro3 et ainsi de suite. ces valeurs doivent ètre rangées dans une feuille de calcul les unes en dessous des autres. nota je souhaiterai faire une boucle en faisant varier le noms des text box . plutot qu'utiliser range ("A1").value=TxtNuméro1.value range("A2").value=TxtNuméro2.value ce qui fonctionne mais n'est pas génial. merci
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour jean-marcel.houssu*,
For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" And Left(ctrl.Name, 9) = "TxtNuméro"
Then
Range("A1").Offset(Mid(ctrl.Name, 10, Len(ctrl.Name) - 9) - 1, 0) =
ctrl.Value
End If
Next
Bonjour comment peut t'on faire lorsque l'on souhaite récupérer les valeurs
d'un nombre important de textbox , qui se ne nomme par exemple TxtNuméro1 ,
TxtNuméro2, TxtNuméro3 et ainsi de suite.
ces valeurs doivent ètre rangées dans une feuille de calcul les unes en
dessous des autres.
nota je souhaiterai faire une boucle en faisant varier le noms des text box
. plutot qu'utiliser
range ("A1").value=TxtNuméro1.value
range("A2").value=TxtNuméro2.value
ce qui fonctionne mais n'est pas génial.
merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour jean-marcel.houssu*, For Each ctrl In Me.Controls If TypeName(ctrl) = "TextBox" And Left(ctrl.Name, 9) = "TxtNuméro" Then Range("A1").Offset(Mid(ctrl.Name, 10, Len(ctrl.Name) - 9) - 1, 0) = ctrl.Value End If Next
Bonjour comment peut t'on faire lorsque l'on souhaite récupérer les valeurs d'un nombre important de textbox , qui se ne nomme par exemple TxtNuméro1 , TxtNuméro2, TxtNuméro3 et ainsi de suite. ces valeurs doivent ètre rangées dans une feuille de calcul les unes en dessous des autres. nota je souhaiterai faire une boucle en faisant varier le noms des text box . plutot qu'utiliser range ("A1").value=TxtNuméro1.value range("A2").value=TxtNuméro2.value ce qui fonctionne mais n'est pas génial. merci
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
LSteph
Bonsoir , 'exemple pour 4 textbox à mettre en a1:a4
Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 4 Cells(i, 1) = Me.Controls("textbox" & i) Next End Sub
'lSteph
"jean-marcel.houssu" a écrit dans le message de news:
Bonjour comment peut t'on faire lorsque l'on souhaite récupérer les valeurs d'un nombre important de textbox , qui se ne nomme par exemple TxtNuméro1 , TxtNuméro2, TxtNuméro3 et ainsi de suite. ces valeurs doivent ètre rangées dans une feuille de calcul les unes en dessous des autres. nota je souhaiterai faire une boucle en faisant varier le noms des text box . plutot qu'utiliser range ("A1").value=TxtNuméro1.value range("A2").value=TxtNuméro2.value ce qui fonctionne mais n'est pas génial. merci
Bonsoir ,
'exemple pour 4 textbox à mettre en a1:a4
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 4
Cells(i, 1) = Me.Controls("textbox" & i)
Next
End Sub
'lSteph
"jean-marcel.houssu" <jean-marcel.houssu@wanadoo.fr> a écrit dans le message
de news: e3AoBT3HGHA.596@TK2MSFTNGP10.phx.gbl...
Bonjour comment peut t'on faire lorsque l'on souhaite récupérer les
valeurs
d'un nombre important de textbox , qui se ne nomme par exemple TxtNuméro1
,
TxtNuméro2, TxtNuméro3 et ainsi de suite.
ces valeurs doivent ètre rangées dans une feuille de calcul les unes en
dessous des autres.
nota je souhaiterai faire une boucle en faisant varier le noms des text
box
. plutot qu'utiliser
range ("A1").value=TxtNuméro1.value
range("A2").value=TxtNuméro2.value
ce qui fonctionne mais n'est pas génial.
merci
Bonsoir , 'exemple pour 4 textbox à mettre en a1:a4
Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 4 Cells(i, 1) = Me.Controls("textbox" & i) Next End Sub
'lSteph
"jean-marcel.houssu" a écrit dans le message de news:
Bonjour comment peut t'on faire lorsque l'on souhaite récupérer les valeurs d'un nombre important de textbox , qui se ne nomme par exemple TxtNuméro1 , TxtNuméro2, TxtNuméro3 et ainsi de suite. ces valeurs doivent ètre rangées dans une feuille de calcul les unes en dessous des autres. nota je souhaiterai faire une boucle en faisant varier le noms des text box . plutot qu'utiliser range ("A1").value=TxtNuméro1.value range("A2").value=TxtNuméro2.value ce qui fonctionne mais n'est pas génial. merci
JLuc
*Bonjour LSteph*, Donc pour jean-marcel.houssu :
Dim i As Integer For i = 1 To 4 Cells(i, 1) = Me.Controls("TxtNuméro" & i) Next
:') ;-)
Bonsoir , 'exemple pour 4 textbox à mettre en a1:a4
Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 4 Cells(i, 1) = Me.Controls("textbox" & i) Next End Sub
'lSteph
"" a écrit dans le message de news:
Bonjour comment peut t'on faire lorsque l'on souhaite récupérer les valeurs d'un nombre important de textbox , qui se ne nomme par exemple TxtNuméro1 , TxtNuméro2, TxtNuméro3 et ainsi de suite. ces valeurs doivent ètre rangées dans une feuille de calcul les unes en dessous des autres. nota je souhaiterai faire une boucle en faisant varier le noms des text box . plutot qu'utiliser range ("A1").value=TxtNuméro1.value range("A2").value=TxtNuméro2.value ce qui fonctionne mais n'est pas génial. merci
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour LSteph*,
Donc pour jean-marcel.houssu :
Dim i As Integer
For i = 1 To 4
Cells(i, 1) = Me.Controls("TxtNuméro" & i)
Next
:') ;-)
Bonsoir ,
'exemple pour 4 textbox à mettre en a1:a4
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 4
Cells(i, 1) = Me.Controls("textbox" & i)
Next
End Sub
'lSteph
"" <jean-marcel.houssu@wanadoo.fr> a écrit dans le message
de news: e3AoBT3HGHA.596@TK2MSFTNGP10.phx.gbl...
Bonjour comment peut t'on faire lorsque l'on souhaite récupérer les valeurs
d'un nombre important de textbox , qui se ne nomme par exemple TxtNuméro1 ,
TxtNuméro2, TxtNuméro3 et ainsi de suite.
ces valeurs doivent ètre rangées dans une feuille de calcul les unes en
dessous des autres.
nota je souhaiterai faire une boucle en faisant varier le noms des text box
. plutot qu'utiliser
range ("A1").value=TxtNuméro1.value
range("A2").value=TxtNuméro2.value
ce qui fonctionne mais n'est pas génial.
merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Dim i As Integer For i = 1 To 4 Cells(i, 1) = Me.Controls("TxtNuméro" & i) Next
:') ;-)
Bonsoir , 'exemple pour 4 textbox à mettre en a1:a4
Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 4 Cells(i, 1) = Me.Controls("textbox" & i) Next End Sub
'lSteph
"" a écrit dans le message de news:
Bonjour comment peut t'on faire lorsque l'on souhaite récupérer les valeurs d'un nombre important de textbox , qui se ne nomme par exemple TxtNuméro1 , TxtNuméro2, TxtNuméro3 et ainsi de suite. ces valeurs doivent ètre rangées dans une feuille de calcul les unes en dessous des autres. nota je souhaiterai faire une boucle en faisant varier le noms des text box . plutot qu'utiliser range ("A1").value=TxtNuméro1.value range("A2").value=TxtNuméro2.value ce qui fonctionne mais n'est pas génial. merci
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
LSteph
Salut JLuc,
'exemple pour 4 textbox ... :') ..après c'est à adapter "JLucbox"&i si tu veux...
;o) a+ -- lSteph
"JLuc" a écrit dans le message de news:
*Bonjour LSteph*, Donc pour jean-marcel.houssu :
Dim i As Integer For i = 1 To 4 Cells(i, 1) = Me.Controls("TxtNuméro" & i) Next
:') ;-)
Bonsoir , 'exemple pour 4 textbox à mettre en a1:a4
Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 4 Cells(i, 1) = Me.Controls("textbox" & i) Next End Sub
'lSteph
"" a écrit dans le message de news:
Bonjour comment peut t'on faire lorsque l'on souhaite récupérer les valeurs d'un nombre important de textbox , qui se ne nomme par exemple TxtNuméro1 , TxtNuméro2, TxtNuméro3 et ainsi de suite. ces valeurs doivent ètre rangées dans une feuille de calcul les unes en dessous des autres. nota je souhaiterai faire une boucle en faisant varier le noms des text box . plutot qu'utiliser range ("A1").value=TxtNuméro1.value range("A2").value=TxtNuméro2.value ce qui fonctionne mais n'est pas génial. merci
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
Salut JLuc,
'exemple pour 4 textbox ...
:') ..après c'est à adapter "JLucbox"&i si tu veux...
;o) a+
--
lSteph
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.b4947d612576324a.40692@free.fr.ns...
*Bonjour LSteph*,
Donc pour jean-marcel.houssu :
Dim i As Integer
For i = 1 To 4
Cells(i, 1) = Me.Controls("TxtNuméro" & i)
Next
:') ;-)
Bonsoir ,
'exemple pour 4 textbox à mettre en a1:a4
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 4
Cells(i, 1) = Me.Controls("textbox" & i)
Next
End Sub
'lSteph
"" <jean-marcel.houssu@wanadoo.fr> a écrit dans le message de news:
e3AoBT3HGHA.596@TK2MSFTNGP10.phx.gbl...
Bonjour comment peut t'on faire lorsque l'on souhaite récupérer les
valeurs
d'un nombre important de textbox , qui se ne nomme par exemple
TxtNuméro1 ,
TxtNuméro2, TxtNuméro3 et ainsi de suite.
ces valeurs doivent ètre rangées dans une feuille de calcul les unes en
dessous des autres.
nota je souhaiterai faire une boucle en faisant varier le noms des text
box
. plutot qu'utiliser
range ("A1").value=TxtNuméro1.value
range("A2").value=TxtNuméro2.value
ce qui fonctionne mais n'est pas génial.
merci
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
'exemple pour 4 textbox ... :') ..après c'est à adapter "JLucbox"&i si tu veux...
;o) a+ -- lSteph
"JLuc" a écrit dans le message de news:
*Bonjour LSteph*, Donc pour jean-marcel.houssu :
Dim i As Integer For i = 1 To 4 Cells(i, 1) = Me.Controls("TxtNuméro" & i) Next
:') ;-)
Bonsoir , 'exemple pour 4 textbox à mettre en a1:a4
Private Sub CommandButton1_Click() Dim i As Integer For i = 1 To 4 Cells(i, 1) = Me.Controls("textbox" & i) Next End Sub
'lSteph
"" a écrit dans le message de news:
Bonjour comment peut t'on faire lorsque l'on souhaite récupérer les valeurs d'un nombre important de textbox , qui se ne nomme par exemple TxtNuméro1 , TxtNuméro2, TxtNuméro3 et ainsi de suite. ces valeurs doivent ètre rangées dans une feuille de calcul les unes en dessous des autres. nota je souhaiterai faire une boucle en faisant varier le noms des text box . plutot qu'utiliser range ("A1").value=TxtNuméro1.value range("A2").value=TxtNuméro2.value ce qui fonctionne mais n'est pas génial. merci
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
JLuc
*Bonjour LSteph*,
Salut JLuc,
'exemple pour 4 textbox ... :') ..après c'est à adapter "JLucbox"&i si tu veux...
;o) a+ -- lSteph Cetait pour une petite precision de plus :oÞ
Mais je trouve plus mes "LSteph" & i, tu ne les aurais pas apercu ? lol
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
*Bonjour LSteph*,
Salut JLuc,
'exemple pour 4 textbox ...
:') ..après c'est à adapter "JLucbox"&i si tu veux...
;o) a+
--
lSteph
Cetait pour une petite precision de plus :oÞ
Mais je trouve plus mes "LSteph" & i, tu ne les aurais pas apercu ? lol
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
'exemple pour 4 textbox ... :') ..après c'est à adapter "JLucbox"&i si tu veux...
;o) a+ -- lSteph Cetait pour une petite precision de plus :oÞ
Mais je trouve plus mes "LSteph" & i, tu ne les aurais pas apercu ? lol
-- JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et astuces ! http://www.excelabo.net http://jacxl.free.fr/ http://dj.joss.free.fr/ C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
