Qu'est-ce qui remplace la fonction EditBoxes de Excel 97 Dans Excel XP ?!?
Dans un formulaire VBA (EXCEL XP) comportant une vingtaine de TextBox
identiques, je souhaite définir une fonction commune de test de validité des
données saisies.
Or, je n'arrive pas à passer le nom de la TextBox en cours comme argument de
cette fonction, alors que c'était si facile avec le contrôle EditBoxes de
Excel 97.
Ex: (sous Excel 97 qui fonctionnait)
Function Valeur_OK(ValZone As String)
If Not IsNumeric(EditBoxes(ValZone).Value) Then
MsgBox ("Valeur incorrecte !!!")
EditBoxes(ValZone).Focus = ValZone
End If
End Function
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
Pascal Engelmajer
Salut, il te faut utiliser un Userform avec des "TextBox" et tous deviendra simple. -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "EXCNRE" a écrit dans le message de news: #
Bonjour,
Qu'est-ce qui remplace la fonction EditBoxes de Excel 97 Dans Excel XP ?!? Dans un formulaire VBA (EXCEL XP) comportant une vingtaine de TextBox identiques, je souhaite définir une fonction commune de test de validité des
données saisies. Or, je n'arrive pas à passer le nom de la TextBox en cours comme argument de
cette fonction, alors que c'était si facile avec le contrôle EditBoxes de Excel 97.
Ex: (sous Excel 97 qui fonctionnait) Function Valeur_OK(ValZone As String) If Not IsNumeric(EditBoxes(ValZone).Value) Then MsgBox ("Valeur incorrecte !!!") EditBoxes(ValZone).Focus = ValZone End If End Function
Salut,
il te faut utiliser un Userform avec des "TextBox" et tous deviendra simple.
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"EXCNRE" <cnre@libertysurf.fr> a écrit dans le message de news:
#Kewc7x7DHA.2056@TK2MSFTNGP10.phx.gbl...
Bonjour,
Qu'est-ce qui remplace la fonction EditBoxes de Excel 97 Dans Excel XP ?!?
Dans un formulaire VBA (EXCEL XP) comportant une vingtaine de TextBox
identiques, je souhaite définir une fonction commune de test de validité
des
données saisies.
Or, je n'arrive pas à passer le nom de la TextBox en cours comme argument
de
cette fonction, alors que c'était si facile avec le contrôle EditBoxes de
Excel 97.
Ex: (sous Excel 97 qui fonctionnait)
Function Valeur_OK(ValZone As String)
If Not IsNumeric(EditBoxes(ValZone).Value) Then
MsgBox ("Valeur incorrecte !!!")
EditBoxes(ValZone).Focus = ValZone
End If
End Function
Salut, il te faut utiliser un Userform avec des "TextBox" et tous deviendra simple. -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "EXCNRE" a écrit dans le message de news: #
Bonjour,
Qu'est-ce qui remplace la fonction EditBoxes de Excel 97 Dans Excel XP ?!? Dans un formulaire VBA (EXCEL XP) comportant une vingtaine de TextBox identiques, je souhaite définir une fonction commune de test de validité des
données saisies. Or, je n'arrive pas à passer le nom de la TextBox en cours comme argument de
cette fonction, alors que c'était si facile avec le contrôle EditBoxes de Excel 97.
Ex: (sous Excel 97 qui fonctionnait) Function Valeur_OK(ValZone As String) If Not IsNumeric(EditBoxes(ValZone).Value) Then MsgBox ("Valeur incorrecte !!!") EditBoxes(ValZone).Focus = ValZone End If End Function
Ben non justement, puisque les Textbox ne se référencent pas par leur nom en tant que Text... C'est de la m.... !!!
-- Emmanuel ROGER Service Informatique U.F.J.T. ou
Pierre CFI [mvp]
bonjour dans un userform, tu peux identifier un controle par son nom, comme çà Me("nom du textebox") ou Me(variablenomtextebox)
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "EXCNRE" a écrit dans le message de news:
Ben non justement, puisque les Textbox ne se référencent pas par leur nom en tant que Text... C'est de la m.... !!!
-- Emmanuel ROGER Service Informatique U.F.J.T. ou
bonjour
dans un userform, tu peux identifier un controle par son nom, comme çà
Me("nom du textebox") ou Me(variablenomtextebox)
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"EXCNRE" <cnre@libertysurf.fr> a écrit dans le message de news: u9hziaI8DHA.1632@TK2MSFTNGP12.phx.gbl...
Ben non justement, puisque les Textbox ne se référencent pas par leur nom en
tant que Text...
C'est de la m.... !!!
--
Emmanuel ROGER
Service Informatique U.F.J.T.
emmanuel.roger@ufjt.org ou informatique@ufjt.org
bonjour dans un userform, tu peux identifier un controle par son nom, comme çà Me("nom du textebox") ou Me(variablenomtextebox)
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer http://users.skynet.be/mpfa/ Site perso http://access.cfi.free.fr "EXCNRE" a écrit dans le message de news:
Ben non justement, puisque les Textbox ne se référencent pas par leur nom en tant que Text... C'est de la m.... !!!
-- Emmanuel ROGER Service Informatique U.F.J.T. ou
Pascal Engelmajer
Salut, pour les noms c'est exactement la même chose en utilisant la collection Controls UserForm1.Controls("nomDeMonControle").Text -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "EXCNRE" a écrit dans le message de news:
Ben non justement, puisque les Textbox ne se référencent pas par leur nom en
tant que Text... C'est de la m.... !!!
-- Emmanuel ROGER Service Informatique U.F.J.T. ou
Salut,
pour les noms c'est exactement la même chose en utilisant la collection
Controls
UserForm1.Controls("nomDeMonControle").Text
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"EXCNRE" <cnre@libertysurf.fr> a écrit dans le message de news:
u9hziaI8DHA.1632@TK2MSFTNGP12.phx.gbl...
Ben non justement, puisque les Textbox ne se référencent pas par leur nom
en
tant que Text...
C'est de la m.... !!!
--
Emmanuel ROGER
Service Informatique U.F.J.T.
emmanuel.roger@ufjt.org ou informatique@ufjt.org
Salut, pour les noms c'est exactement la même chose en utilisant la collection Controls UserForm1.Controls("nomDeMonControle").Text -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "EXCNRE" a écrit dans le message de news:
Ben non justement, puisque les Textbox ne se référencent pas par leur nom en
tant que Text... C'est de la m.... !!!
-- Emmanuel ROGER Service Informatique U.F.J.T. ou