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
Eric
"doudou" écrivait news:18ce601c44c90$41fb0cf0$:
Bonjour,
Voilà jé sais que j'ai une grosse lacune mais vous pouvez certainemnt m'aider
J'ai des sous formulaire soit frm_1 et frm_2 et frm_3 ...
Jai des zone 1,2,3,4,...
Je désire changer la couleur des zones soit :
La zone 1 du sous fomulaire frm_1 est rouge
j'incrémente mes numéro donc :
do while formt < 50 formt = formt + 1 zone = zone + 1
'je veut donc maintenant passer maintenant la zone 1 du sous formulaire frm_1 en rouge
comment faire en vba simple cela ferait
forms![frm_principal]![frm_1]![1].forecolor = 255
Mais avec des variable je sais pas faire comment faire ???
dim formt as form ?????? dim zone as textbox ????
merci car la c vraiment une grosse lacune .....
Merci d'avance
Bonjour,
As-tu autant de controles dans chacun des formulaires ? Si c'est le cas, on pourrait faire comme suit : 5 sous-form (frm_01-frm_10) avec chacun 10 controles (ctrl_01-ctrl10), ce qui devrait mettre tous les contenus des controles impairs en rouge.
Dim nbForm as Integer, nbControl as Integer, i as integer, j as integer Dim NomForm as string, NomControl as String nbForm=5: nbControl For i = 1 to nbForm NomForm="frm_" & format(i,"00") For j = 1 to nbControl step 2 NomControl= "Ctrl_" & format(j,"00") Forms(Me.Name)(NomForm)(NomControl).ForeColor = 255 Next j Next i
(Pas testé mais l'instruction Forms(Me.Name)(NomForm) (NomControl).ForeColor = 255 marche)
Voilà jé sais que j'ai une grosse lacune mais vous pouvez
certainemnt m'aider
J'ai des sous formulaire soit frm_1 et frm_2 et frm_3 ...
Jai des zone 1,2,3,4,...
Je désire changer la couleur des zones soit :
La zone 1 du sous fomulaire frm_1 est rouge
j'incrémente mes numéro donc :
do while formt < 50
formt = formt + 1
zone = zone + 1
'je veut donc maintenant passer maintenant la zone 1 du
sous formulaire frm_1 en rouge
comment faire en vba simple cela ferait
forms![frm_principal]![frm_1]![1].forecolor = 255
Mais avec des variable je sais pas faire comment faire ???
dim formt as form ??????
dim zone as textbox ????
merci car la c vraiment une grosse lacune .....
Merci d'avance
Bonjour,
As-tu autant de controles dans chacun des formulaires ? Si c'est le cas,
on pourrait faire comme suit : 5 sous-form (frm_01-frm_10) avec chacun 10
controles (ctrl_01-ctrl10), ce qui devrait mettre tous les contenus des
controles impairs en rouge.
Dim nbForm as Integer, nbControl as Integer, i as integer, j as integer
Dim NomForm as string, NomControl as String
nbForm=5: nbControl
For i = 1 to nbForm
NomForm="frm_" & format(i,"00")
For j = 1 to nbControl step 2
NomControl= "Ctrl_" & format(j,"00")
Forms(Me.Name)(NomForm)(NomControl).ForeColor = 255
Next j
Next i
(Pas testé mais l'instruction Forms(Me.Name)(NomForm)
(NomControl).ForeColor = 255 marche)
Voilà jé sais que j'ai une grosse lacune mais vous pouvez certainemnt m'aider
J'ai des sous formulaire soit frm_1 et frm_2 et frm_3 ...
Jai des zone 1,2,3,4,...
Je désire changer la couleur des zones soit :
La zone 1 du sous fomulaire frm_1 est rouge
j'incrémente mes numéro donc :
do while formt < 50 formt = formt + 1 zone = zone + 1
'je veut donc maintenant passer maintenant la zone 1 du sous formulaire frm_1 en rouge
comment faire en vba simple cela ferait
forms![frm_principal]![frm_1]![1].forecolor = 255
Mais avec des variable je sais pas faire comment faire ???
dim formt as form ?????? dim zone as textbox ????
merci car la c vraiment une grosse lacune .....
Merci d'avance
Bonjour,
As-tu autant de controles dans chacun des formulaires ? Si c'est le cas, on pourrait faire comme suit : 5 sous-form (frm_01-frm_10) avec chacun 10 controles (ctrl_01-ctrl10), ce qui devrait mettre tous les contenus des controles impairs en rouge.
Dim nbForm as Integer, nbControl as Integer, i as integer, j as integer Dim NomForm as string, NomControl as String nbForm=5: nbControl For i = 1 to nbForm NomForm="frm_" & format(i,"00") For j = 1 to nbControl step 2 NomControl= "Ctrl_" & format(j,"00") Forms(Me.Name)(NomForm)(NomControl).ForeColor = 255 Next j Next i
(Pas testé mais l'instruction Forms(Me.Name)(NomForm) (NomControl).ForeColor = 255 marche)
Voilà jé sais que j'ai une grosse lacune mais vous pouvez
certainemnt m'aider
J'ai des sous formulaire soit frm_1 et frm_2 et frm_3 ...
Jai des zone 1,2,3,4,...
Je désire changer la couleur des zones soit :
La zone 1 du sous fomulaire frm_1 est rouge
j'incrémente mes numéro donc :
do while formt < 50 formt = formt + 1 zone = zone + 1
'je veut donc maintenant passer maintenant la zone 1 du
sous formulaire frm_1 en rouge
comment faire en vba simple cela ferait
forms![frm_principal]![frm_1]![1].forecolor = 255
Mais avec des variable je sais pas faire comment faire ???
dim formt as form ?????? dim zone as textbox ????
merci car la c vraiment une grosse lacune .....
Merci d'avance
Bonjour,
As-tu autant de controles dans chacun des formulaires ? Si c'est le cas,
on pourrait faire comme suit : 5 sous-form (frm_01- frm_10) avec chacun 10
controles (ctrl_01-ctrl10), ce qui devrait mettre tous les contenus des
controles impairs en rouge.
Dim nbForm as Integer, nbControl as Integer, i as integer, j as integer
Dim NomForm as string, NomControl as String nbForm=5: nbControl For i = 1 to nbForm NomForm="frm_" & format(i,"00") For j = 1 to nbControl step 2 NomControl= "Ctrl_" & format(j,"00") Forms(Me.Name)(NomForm) (NomControl).ForeColor = 255
Next j Next i
(Pas testé mais l'instruction Forms(Me.Name)(NomForm) (NomControl).ForeColor = 255 marche)
Voilà jé sais que j'ai une grosse lacune mais vous
pouvez
certainemnt m'aider
J'ai des sous formulaire soit frm_1 et frm_2 et
frm_3 ...
Jai des zone 1,2,3,4,...
Je désire changer la couleur des zones soit :
La zone 1 du sous fomulaire frm_1 est rouge
j'incrémente mes numéro donc :
do while formt < 50
formt = formt + 1
zone = zone + 1
'je veut donc maintenant passer maintenant la zone 1
du
sous formulaire frm_1 en rouge
comment faire en vba simple cela ferait
forms![frm_principal]![frm_1]![1].forecolor = 255
Mais avec des variable je sais pas faire comment
faire ???
dim formt as form ??????
dim zone as textbox ????
merci car la c vraiment une grosse lacune .....
Merci d'avance
Bonjour,
As-tu autant de controles dans chacun des formulaires ?
Si c'est le cas,
on pourrait faire comme suit : 5 sous-form (frm_01-
frm_10) avec chacun 10
controles (ctrl_01-ctrl10), ce qui devrait mettre tous
les contenus des
controles impairs en rouge.
Dim nbForm as Integer, nbControl as Integer, i as
integer, j as integer
Dim NomForm as string, NomControl as String
nbForm=5: nbControl=10
For i = 1 to nbForm
NomForm="frm_" & format(i,"00")
For j = 1 to nbControl step 2
NomControl= "Ctrl_" & format(j,"00")
Forms(Me.Name)(NomForm)
(NomControl).ForeColor = 255
Next j
Next i
(Pas testé mais l'instruction Forms(Me.Name)(NomForm)
(NomControl).ForeColor = 255 marche)
Voilà jé sais que j'ai une grosse lacune mais vous pouvez
certainemnt m'aider
J'ai des sous formulaire soit frm_1 et frm_2 et frm_3 ...
Jai des zone 1,2,3,4,...
Je désire changer la couleur des zones soit :
La zone 1 du sous fomulaire frm_1 est rouge
j'incrémente mes numéro donc :
do while formt < 50 formt = formt + 1 zone = zone + 1
'je veut donc maintenant passer maintenant la zone 1 du
sous formulaire frm_1 en rouge
comment faire en vba simple cela ferait
forms![frm_principal]![frm_1]![1].forecolor = 255
Mais avec des variable je sais pas faire comment faire ???
dim formt as form ?????? dim zone as textbox ????
merci car la c vraiment une grosse lacune .....
Merci d'avance
Bonjour,
As-tu autant de controles dans chacun des formulaires ? Si c'est le cas,
on pourrait faire comme suit : 5 sous-form (frm_01- frm_10) avec chacun 10
controles (ctrl_01-ctrl10), ce qui devrait mettre tous les contenus des
controles impairs en rouge.
Dim nbForm as Integer, nbControl as Integer, i as integer, j as integer
Dim NomForm as string, NomControl as String nbForm=5: nbControl For i = 1 to nbForm NomForm="frm_" & format(i,"00") For j = 1 to nbControl step 2 NomControl= "Ctrl_" & format(j,"00") Forms(Me.Name)(NomForm) (NomControl).ForeColor = 255
Next j Next i
(Pas testé mais l'instruction Forms(Me.Name)(NomForm) (NomControl).ForeColor = 255 marche)
