Dans un userform contenant une multitude de checkbox et textbox en relation,
j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case
XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
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
Daniel.C
Bonjour.
For PointeurCase = 1 To CheckBoxEnCours ChoixFeuilleTravaux.Controls("Textbox" & PointeurCase).Visible = True Next
Cordialement. Daniel
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en relation, j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
Mais je n'ai que des erreurs, quelque soit la tentative de variable d'ailleurs.
Auriez-vous une solution?
Merci pour votre précieux temps.
Joël André
Bonjour.
For PointeurCase = 1 To CheckBoxEnCours
ChoixFeuilleTravaux.Controls("Textbox" & PointeurCase).Visible =
True
Next
Cordialement.
Daniel
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en relation,
j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case XX,
mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
For PointeurCase = 1 To CheckBoxEnCours ChoixFeuilleTravaux.Controls("Textbox" & PointeurCase).Visible = True Next
Cordialement. Daniel
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en relation, j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
Mais je n'ai que des erreurs, quelque soit la tentative de variable d'ailleurs.
Auriez-vous une solution?
Merci pour votre précieux temps.
Joël André
michdenis
Bonjour,
Tu pourrais quand même soigner la présentation de ta question !
Ce que tu cherches à faire... n'est pas évident !
Quand tu veux boucler sur un type de contrôle, tu peux utiliser ce type de syntaxe...
'------------------------------ With ChoixFeuilleTravaux For PointeurCase = 1 To CheckBoxEnCours .Controls("CheckBox" & PointeurCase).Visible = True Next End With '------------------------------
"Joël André" a écrit dans le message de groupe de discussion :
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en relation, j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
Mais je n'ai que des erreurs, quelque soit la tentative de variable d'ailleurs.
Auriez-vous une solution?
Merci pour votre précieux temps.
Joël André
Bonjour,
Tu pourrais quand même soigner la présentation de ta question !
Ce que tu cherches à faire... n'est pas évident !
Quand tu veux boucler sur un type de contrôle, tu peux utiliser
ce type de syntaxe...
'------------------------------
With ChoixFeuilleTravaux
For PointeurCase = 1 To CheckBoxEnCours
.Controls("CheckBox" & PointeurCase).Visible = True
Next
End With
'------------------------------
"Joël André" <joel.andre7@wanadoo.fr> a écrit dans le message de groupe de discussion :
OxteOUx0KHA.776@TK2MSFTNGP04.phx.gbl...
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en relation,
j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case
XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
Tu pourrais quand même soigner la présentation de ta question !
Ce que tu cherches à faire... n'est pas évident !
Quand tu veux boucler sur un type de contrôle, tu peux utiliser ce type de syntaxe...
'------------------------------ With ChoixFeuilleTravaux For PointeurCase = 1 To CheckBoxEnCours .Controls("CheckBox" & PointeurCase).Visible = True Next End With '------------------------------
"Joël André" a écrit dans le message de groupe de discussion :
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en relation, j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
Mais je n'ai que des erreurs, quelque soit la tentative de variable d'ailleurs.
Auriez-vous une solution?
Merci pour votre précieux temps.
Joël André
Joël André
Merci Daniel.C, je vais tester tout des suite. Joël André
"Daniel.C" a écrit dans le message de news:
Bonjour.
For PointeurCase = 1 To CheckBoxEnCours ChoixFeuilleTravaux.Controls("Textbox" & PointeurCase).Visible = True Next
Cordialement. Daniel
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en relation, j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
Mais je n'ai que des erreurs, quelque soit la tentative de variable d'ailleurs.
Auriez-vous une solution?
Merci pour votre précieux temps.
Joël André
Merci Daniel.C, je vais tester tout des suite.
Joël André
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
ejqIJdx0KHA.3412@TK2MSFTNGP05.phx.gbl...
Bonjour.
For PointeurCase = 1 To CheckBoxEnCours
ChoixFeuilleTravaux.Controls("Textbox" & PointeurCase).Visible = True
Next
Cordialement.
Daniel
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en
relation, j'aimerai simplifier la boucle des checkbox en éliminant la
fonction Case XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
Merci Daniel.C, je vais tester tout des suite. Joël André
"Daniel.C" a écrit dans le message de news:
Bonjour.
For PointeurCase = 1 To CheckBoxEnCours ChoixFeuilleTravaux.Controls("Textbox" & PointeurCase).Visible = True Next
Cordialement. Daniel
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en relation, j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
Mais je n'ai que des erreurs, quelque soit la tentative de variable d'ailleurs.
Auriez-vous une solution?
Merci pour votre précieux temps.
Joël André
Joël André
Merci michdenis, je vais tester la procédure. Concernant le mise en page, j'avais préalablement rédigé mon message sous word et ensuite fait un copier coller sur la messagerie. Je ne m'attendai pas à ce qu'il prenne une forme aussi distendue, j'en suis désolé. Joël André
"michdenis" a écrit dans le message de news:
Bonjour,
Tu pourrais quand même soigner la présentation de ta question !
Ce que tu cherches à faire... n'est pas évident !
Quand tu veux boucler sur un type de contrôle, tu peux utiliser ce type de syntaxe...
'------------------------------ With ChoixFeuilleTravaux For PointeurCase = 1 To CheckBoxEnCours .Controls("CheckBox" & PointeurCase).Visible = True Next End With '------------------------------
"Joël André" a écrit dans le message de groupe de discussion :
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en relation, j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
Mais je n'ai que des erreurs, quelque soit la tentative de variable d'ailleurs.
Auriez-vous une solution?
Merci pour votre précieux temps.
Joël André
Merci michdenis, je vais tester la procédure.
Concernant le mise en page, j'avais préalablement rédigé mon message sous
word et ensuite fait un copier coller sur la messagerie.
Je ne m'attendai pas à ce qu'il prenne une forme aussi distendue, j'en suis
désolé.
Joël André
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OyfePfx0KHA.776@TK2MSFTNGP04.phx.gbl...
Bonjour,
Tu pourrais quand même soigner la présentation de ta question !
Ce que tu cherches à faire... n'est pas évident !
Quand tu veux boucler sur un type de contrôle, tu peux utiliser
ce type de syntaxe...
'------------------------------
With ChoixFeuilleTravaux
For PointeurCase = 1 To CheckBoxEnCours
.Controls("CheckBox" & PointeurCase).Visible = True
Next
End With
'------------------------------
"Joël André" <joel.andre7@wanadoo.fr> a écrit dans le message de groupe de
discussion :
OxteOUx0KHA.776@TK2MSFTNGP04.phx.gbl...
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en
relation,
j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case
XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
Merci michdenis, je vais tester la procédure. Concernant le mise en page, j'avais préalablement rédigé mon message sous word et ensuite fait un copier coller sur la messagerie. Je ne m'attendai pas à ce qu'il prenne une forme aussi distendue, j'en suis désolé. Joël André
"michdenis" a écrit dans le message de news:
Bonjour,
Tu pourrais quand même soigner la présentation de ta question !
Ce que tu cherches à faire... n'est pas évident !
Quand tu veux boucler sur un type de contrôle, tu peux utiliser ce type de syntaxe...
'------------------------------ With ChoixFeuilleTravaux For PointeurCase = 1 To CheckBoxEnCours .Controls("CheckBox" & PointeurCase).Visible = True Next End With '------------------------------
"Joël André" a écrit dans le message de groupe de discussion :
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en relation, j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
Mais je n'ai que des erreurs, quelque soit la tentative de variable d'ailleurs.
Auriez-vous une solution?
Merci pour votre précieux temps.
Joël André
Joël André
Un grand merci à Daniel.C et à michdenis. Tout fonctionne à merveille. Corfialement Joël André
"Joël André" a écrit dans le message de news:
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en relation, j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
Mais je n'ai que des erreurs, quelque soit la tentative de variable d'ailleurs.
Auriez-vous une solution?
Merci pour votre précieux temps.
Joël André
Un grand merci à Daniel.C et à michdenis.
Tout fonctionne à merveille.
Corfialement
Joël André
"Joël André" <joel.andre7@wanadoo.fr> a écrit dans le message de news:
OxteOUx0KHA.776@TK2MSFTNGP04.phx.gbl...
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en
relation, j'aimerai simplifier la boucle des checkbox en éliminant la
fonction Case XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer
Un grand merci à Daniel.C et à michdenis. Tout fonctionne à merveille. Corfialement Joël André
"Joël André" a écrit dans le message de news:
Bonjour,
XPSp3, Excel 2000 toutes mises à jour effectuées
Dans un userform contenant une multitude de checkbox et textbox en relation, j'aimerai simplifier la boucle des checkbox en éliminant la fonction Case XX, mais je plante lamentablement.
Actuellement la macro contient :
Dim CheckBoxEnCours As Integer, PointeurCase As Integer