J'utilise ce code pour tester a l'inisialisation de l'userform si des
textbox sont rempli.
For Each CtrlIni In Array(txtJour1, txtJour2, txtJour3, txtJour4, txtJour5,
txtJour6, txtJour7, txtJour8, txtJour9, txtJour10)
With CtrlIniti
If CtrlIniti = "" Then
.BackColor = &HC0C0FF
.Locked = False
.Visible = False
Else
.Visible = True
.BackColor = &H80000005
.Locked = True
End If
End With
Next CtrlIni
Ce que j'essaye de faire, c'est qu'en cliquant sur "modifier une fiche" que
cela me test les controls rempli et que cela me met a true le control qui
suis.
Si par exemple, les controls : txtJour1, txtJour2, txtJour3, txtJour4 sont
rempli, que cela me rende visible le txtJour5.
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 Jacques*, En reprenant ton code : For Each CtrlIni In Array(txtJour1, txtJour2, txtJour3, txtJour4, txtJour5, txtJour6, txtJour7, txtJour8, txtJour9, txtJour10) With CtrlIniti If CtrlIniti <> "" Then .BackColor = &HC0C0FF .Locked = False .Visible = False Else .Visible = True .BackColor = &H80000005 .Locked = True Exit For ' Sortir de la boucle End If End With Next CtrlIni
Pas teste, mais devrait convenir :oÞ
Ce que j'essaye de faire, c'est qu'en cliquant sur "modifier une fiche" que cela me test les controls rempli et que cela me met a true le control qui suis.
Si par exemple, les controls : txtJour1, txtJour2, txtJour3, txtJour4 sont rempli, que cela me rende visible le txtJour5.
Merci a vous, Jacques
-- 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 Jacques*,
En reprenant ton code :
For Each CtrlIni In Array(txtJour1, txtJour2, txtJour3, txtJour4,
txtJour5,
txtJour6, txtJour7, txtJour8, txtJour9, txtJour10)
With CtrlIniti
If CtrlIniti <> "" Then
.BackColor = &HC0C0FF
.Locked = False
.Visible = False
Else
.Visible = True
.BackColor = &H80000005
.Locked = True
Exit For ' Sortir de la boucle
End If
End With
Next CtrlIni
Pas teste, mais devrait convenir :oÞ
Ce que j'essaye de faire, c'est qu'en cliquant sur "modifier une fiche" que
cela me test les controls rempli et que cela me met a true le control qui
suis.
Si par exemple, les controls : txtJour1, txtJour2, txtJour3, txtJour4 sont
rempli, que cela me rende visible le txtJour5.
Merci a vous, Jacques
--
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 Jacques*, En reprenant ton code : For Each CtrlIni In Array(txtJour1, txtJour2, txtJour3, txtJour4, txtJour5, txtJour6, txtJour7, txtJour8, txtJour9, txtJour10) With CtrlIniti If CtrlIniti <> "" Then .BackColor = &HC0C0FF .Locked = False .Visible = False Else .Visible = True .BackColor = &H80000005 .Locked = True Exit For ' Sortir de la boucle End If End With Next CtrlIni
Pas teste, mais devrait convenir :oÞ
Ce que j'essaye de faire, c'est qu'en cliquant sur "modifier une fiche" que cela me test les controls rempli et que cela me met a true le control qui suis.
Si par exemple, les controls : txtJour1, txtJour2, txtJour3, txtJour4 sont rempli, que cela me rende visible le txtJour5.
Merci a vous, Jacques
-- 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
Jacques
JLuc
C'est une chose que j'avais essayée, cela fonctionnait mais le souci c'est que cela me supprime ceux déjà rempli, et suivant ou je met la sortie de boucle sois, cela me supprimer jusqu'a l'avant dernier soit tous, ceux avant.
Dans ton exemple, cela supprime tout, si je le met aprés le end With, cela me laisse l'avant dernier control .
Merci, Jacques "JLuc" a écrit dans le message de news:
*Bonjour Jacques*, En reprenant ton code : For Each CtrlIni In Array(txtJour1, txtJour2, txtJour3, txtJour4, txtJour5, txtJour6, txtJour7, txtJour8, txtJour9, txtJour10) With CtrlIniti If CtrlIniti <> "" Then .BackColor = &HC0C0FF .Locked = False .Visible = False Else .Visible = True .BackColor = &H80000005 .Locked = True Exit For ' Sortir de la boucle End If End With Next CtrlIni
Pas teste, mais devrait convenir :oÞ
Ce que j'essaye de faire, c'est qu'en cliquant sur "modifier une fiche" que cela me test les controls rempli et que cela me met a true le control qui suis.
Si par exemple, les controls : txtJour1, txtJour2, txtJour3, txtJour4 sont rempli, que cela me rende visible le txtJour5.
Merci a vous, Jacques
-- 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
C'est une chose que j'avais essayée, cela fonctionnait mais le souci c'est
que cela me supprime ceux déjà rempli, et suivant ou je met la sortie de
boucle sois, cela me supprimer jusqu'a l'avant dernier soit tous, ceux
avant.
Dans ton exemple, cela supprime tout, si je le met aprés le end With, cela
me laisse l'avant dernier control .
Merci, Jacques
"JLuc" <ns.jeanluc.laurent@free.fr.ns> a écrit dans le message de news:
mn.e4877d5b64068c61.40692@free.fr.ns...
*Bonjour Jacques*,
En reprenant ton code :
For Each CtrlIni In Array(txtJour1, txtJour2, txtJour3, txtJour4,
txtJour5,
txtJour6, txtJour7, txtJour8, txtJour9, txtJour10)
With CtrlIniti
If CtrlIniti <> "" Then
.BackColor = &HC0C0FF
.Locked = False
.Visible = False
Else
.Visible = True
.BackColor = &H80000005
.Locked = True
Exit For ' Sortir de la boucle
End If
End With
Next CtrlIni
Pas teste, mais devrait convenir :oÞ
Ce que j'essaye de faire, c'est qu'en cliquant sur "modifier une fiche"
que cela me test les controls rempli et que cela me met a true le control
qui suis.
Si par exemple, les controls : txtJour1, txtJour2, txtJour3, txtJour4
sont rempli, que cela me rende visible le txtJour5.
Merci a vous, Jacques
--
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
C'est une chose que j'avais essayée, cela fonctionnait mais le souci c'est que cela me supprime ceux déjà rempli, et suivant ou je met la sortie de boucle sois, cela me supprimer jusqu'a l'avant dernier soit tous, ceux avant.
Dans ton exemple, cela supprime tout, si je le met aprés le end With, cela me laisse l'avant dernier control .
Merci, Jacques "JLuc" a écrit dans le message de news:
*Bonjour Jacques*, En reprenant ton code : For Each CtrlIni In Array(txtJour1, txtJour2, txtJour3, txtJour4, txtJour5, txtJour6, txtJour7, txtJour8, txtJour9, txtJour10) With CtrlIniti If CtrlIniti <> "" Then .BackColor = &HC0C0FF .Locked = False .Visible = False Else .Visible = True .BackColor = &H80000005 .Locked = True Exit For ' Sortir de la boucle End If End With Next CtrlIni
Pas teste, mais devrait convenir :oÞ
Ce que j'essaye de faire, c'est qu'en cliquant sur "modifier une fiche" que cela me test les controls rempli et que cela me met a true le control qui suis.
Si par exemple, les controls : txtJour1, txtJour2, txtJour3, txtJour4 sont rempli, que cela me rende visible le txtJour5.
Merci a vous, Jacques
-- 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
docm
Bonjour.
Pour ne rendre visible que le premier controle vide:
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) With CtrlIni If CtrlIni = "" And ok = False Then .BackColor = &HC0C0FF .Locked = False .Visible = True ok = True Else .Visible = False .BackColor = &H80000005 .Locked = False End If End With Next CtrlIni
docm
"Jacques" a écrit dans le message news: 438b401b$0$6674$
Salut a toutes et tous
J'utilise ce code pour tester a l'inisialisation de l'userform si des textbox sont rempli.
For Each CtrlIni In Array(txtJour1, txtJour2, txtJour3, txtJour4, txtJour5,
txtJour6, txtJour7, txtJour8, txtJour9, txtJour10) With CtrlIniti If CtrlIniti = "" Then .BackColor = &HC0C0FF .Locked = False .Visible = False Else .Visible = True .BackColor = &H80000005 .Locked = True End If End With Next CtrlIni
Ce que j'essaye de faire, c'est qu'en cliquant sur "modifier une fiche" que
cela me test les controls rempli et que cela me met a true le control qui suis.
Si par exemple, les controls : txtJour1, txtJour2, txtJour3, txtJour4 sont rempli, que cela me rende visible le txtJour5.
Merci a vous, Jacques
Bonjour.
Pour ne rendre visible que le premier controle vide:
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3)
With CtrlIni
If CtrlIni = "" And ok = False Then
.BackColor = &HC0C0FF
.Locked = False
.Visible = True
ok = True
Else
.Visible = False
.BackColor = &H80000005
.Locked = False
End If
End With
Next CtrlIni
docm
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message news:
438b401b$0$6674$8fcfb975@news.wanadoo.fr...
Salut a toutes et tous
J'utilise ce code pour tester a l'inisialisation de l'userform si des
textbox sont rempli.
For Each CtrlIni In Array(txtJour1, txtJour2, txtJour3, txtJour4,
txtJour5,
txtJour6, txtJour7, txtJour8, txtJour9, txtJour10)
With CtrlIniti
If CtrlIniti = "" Then
.BackColor = &HC0C0FF
.Locked = False
.Visible = False
Else
.Visible = True
.BackColor = &H80000005
.Locked = True
End If
End With
Next CtrlIni
Ce que j'essaye de faire, c'est qu'en cliquant sur "modifier une fiche"
que
cela me test les controls rempli et que cela me met a true le control qui
suis.
Si par exemple, les controls : txtJour1, txtJour2, txtJour3, txtJour4 sont
rempli, que cela me rende visible le txtJour5.
Pour ne rendre visible que le premier controle vide:
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) With CtrlIni If CtrlIni = "" And ok = False Then .BackColor = &HC0C0FF .Locked = False .Visible = True ok = True Else .Visible = False .BackColor = &H80000005 .Locked = False End If End With Next CtrlIni
docm
"Jacques" a écrit dans le message news: 438b401b$0$6674$
Salut a toutes et tous
J'utilise ce code pour tester a l'inisialisation de l'userform si des textbox sont rempli.
For Each CtrlIni In Array(txtJour1, txtJour2, txtJour3, txtJour4, txtJour5,
txtJour6, txtJour7, txtJour8, txtJour9, txtJour10) With CtrlIniti If CtrlIniti = "" Then .BackColor = &HC0C0FF .Locked = False .Visible = False Else .Visible = True .BackColor = &H80000005 .Locked = True End If End With Next CtrlIni
Ce que j'essaye de faire, c'est qu'en cliquant sur "modifier une fiche" que
cela me test les controls rempli et que cela me met a true le control qui suis.
Si par exemple, les controls : txtJour1, txtJour2, txtJour3, txtJour4 sont rempli, que cela me rende visible le txtJour5.
Merci a vous, Jacques
Jacques
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais que soient visibles 1, 2, 3, 4, et 5.
Merci, Jacques "docm" a écrit dans le message de news: %
Bonjour.
Pour ne rendre visible que le premier controle vide:
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) With CtrlIni If CtrlIni = "" And ok = False Then .BackColor = &HC0C0FF .Locked = False .Visible = True ok = True Else .Visible = False .BackColor = &H80000005 .Locked = False End If End With Next CtrlIni
docm
"Jacques" a écrit dans le message news: 438b401b$0$6674$
Salut a toutes et tous
J'utilise ce code pour tester a l'inisialisation de l'userform si des textbox sont rempli.
For Each CtrlIni In Array(txtJour1, txtJour2, txtJour3, txtJour4, txtJour5,
txtJour6, txtJour7, txtJour8, txtJour9, txtJour10) With CtrlIniti If CtrlIniti = "" Then .BackColor = &HC0C0FF .Locked = False .Visible = False Else .Visible = True .BackColor = &H80000005 .Locked = True End If End With Next CtrlIni
Ce que j'essaye de faire, c'est qu'en cliquant sur "modifier une fiche" que
cela me test les controls rempli et que cela me met a true le control qui suis.
Si par exemple, les controls : txtJour1, txtJour2, txtJour3, txtJour4 sont rempli, que cela me rende visible le txtJour5.
Merci a vous, Jacques
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant
vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais
que soient visibles 1, 2, 3, 4, et 5.
Merci, Jacques
"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
%23NhsaRF9FHA.808@TK2MSFTNGP09.phx.gbl...
Bonjour.
Pour ne rendre visible que le premier controle vide:
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3)
With CtrlIni
If CtrlIni = "" And ok = False Then
.BackColor = &HC0C0FF
.Locked = False
.Visible = True
ok = True
Else
.Visible = False
.BackColor = &H80000005
.Locked = False
End If
End With
Next CtrlIni
docm
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message news:
438b401b$0$6674$8fcfb975@news.wanadoo.fr...
Salut a toutes et tous
J'utilise ce code pour tester a l'inisialisation de l'userform si des
textbox sont rempli.
For Each CtrlIni In Array(txtJour1, txtJour2, txtJour3, txtJour4,
txtJour5,
txtJour6, txtJour7, txtJour8, txtJour9, txtJour10)
With CtrlIniti
If CtrlIniti = "" Then
.BackColor = &HC0C0FF
.Locked = False
.Visible = False
Else
.Visible = True
.BackColor = &H80000005
.Locked = True
End If
End With
Next CtrlIni
Ce que j'essaye de faire, c'est qu'en cliquant sur "modifier une fiche"
que
cela me test les controls rempli et que cela me met a true le control qui
suis.
Si par exemple, les controls : txtJour1, txtJour2, txtJour3, txtJour4
sont
rempli, que cela me rende visible le txtJour5.
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais que soient visibles 1, 2, 3, 4, et 5.
Merci, Jacques "docm" a écrit dans le message de news: %
Bonjour.
Pour ne rendre visible que le premier controle vide:
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) With CtrlIni If CtrlIni = "" And ok = False Then .BackColor = &HC0C0FF .Locked = False .Visible = True ok = True Else .Visible = False .BackColor = &H80000005 .Locked = False End If End With Next CtrlIni
docm
"Jacques" a écrit dans le message news: 438b401b$0$6674$
Salut a toutes et tous
J'utilise ce code pour tester a l'inisialisation de l'userform si des textbox sont rempli.
For Each CtrlIni In Array(txtJour1, txtJour2, txtJour3, txtJour4, txtJour5,
txtJour6, txtJour7, txtJour8, txtJour9, txtJour10) With CtrlIniti If CtrlIniti = "" Then .BackColor = &HC0C0FF .Locked = False .Visible = False Else .Visible = True .BackColor = &H80000005 .Locked = True End If End With Next CtrlIni
Ce que j'essaye de faire, c'est qu'en cliquant sur "modifier une fiche" que
cela me test les controls rempli et que cela me met a true le control qui suis.
Si par exemple, les controls : txtJour1, txtJour2, txtJour3, txtJour4 sont rempli, que cela me rende visible le txtJour5.
Merci a vous, Jacques
JLuc
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais que soient visibles 1, 2, 3, 4, et 5.
ok = True
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) If ok = True Then If CtrlIni <> "" Then CtrlIni.BackColor = &HC0C0FF CtrlIni.Locked = False CtrlIni.Visible = True Else CtrlIni.Visible = True CtrlIni.BackColor = &HC0C0FF '&H80000005 CtrlIni.Locked = False ok = False End If Else CtrlIni.Visible = False CtrlIni.BackColor = &H80000005 CtrlIni.Locked = True End If Next CtrlIni
Essaie comme ca et dis nous ;-)
-- 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
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant
vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais
que soient visibles 1, 2, 3, 4, et 5.
ok = True
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3)
If ok = True Then
If CtrlIni <> "" Then
CtrlIni.BackColor = &HC0C0FF
CtrlIni.Locked = False
CtrlIni.Visible = True
Else
CtrlIni.Visible = True
CtrlIni.BackColor = &HC0C0FF '&H80000005
CtrlIni.Locked = False
ok = False
End If
Else
CtrlIni.Visible = False
CtrlIni.BackColor = &H80000005
CtrlIni.Locked = True
End If
Next CtrlIni
Essaie comme ca et dis nous ;-)
--
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
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais que soient visibles 1, 2, 3, 4, et 5.
ok = True
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) If ok = True Then If CtrlIni <> "" Then CtrlIni.BackColor = &HC0C0FF CtrlIni.Locked = False CtrlIni.Visible = True Else CtrlIni.Visible = True CtrlIni.BackColor = &HC0C0FF '&H80000005 CtrlIni.Locked = False ok = False End If Else CtrlIni.Visible = False CtrlIni.BackColor = &H80000005 CtrlIni.Locked = True End If Next CtrlIni
Essaie comme ca et dis nous ;-)
-- 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
docm
Alors comme ceci pour montrer les controles tant qu'on n'en rencontre pas un qui soit vide :
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) With CtrlIni If Vide = False Then .BackColor = &HC0C0FF .Locked = False .Visible = True If CtrlIni = "" Then Vide = True End If Else .Visible = False .BackColor = &H80000005 .Locked = False End If End With Next CtrlIni
docm
"Jacques" a écrit dans le message news: 438b724b$0$18306$
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais
que soient visibles 1, 2, 3, 4, et 5.
Merci, Jacques
Alors comme ceci pour montrer les controles tant qu'on n'en rencontre pas un
qui soit vide :
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3)
With CtrlIni
If Vide = False Then
.BackColor = &HC0C0FF
.Locked = False
.Visible = True
If CtrlIni = "" Then
Vide = True
End If
Else
.Visible = False
.BackColor = &H80000005
.Locked = False
End If
End With
Next CtrlIni
docm
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message news:
438b724b$0$18306$8fcfb975@news.wanadoo.fr...
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant
vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides,
j'aimerais
Alors comme ceci pour montrer les controles tant qu'on n'en rencontre pas un qui soit vide :
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) With CtrlIni If Vide = False Then .BackColor = &HC0C0FF .Locked = False .Visible = True If CtrlIni = "" Then Vide = True End If Else .Visible = False .BackColor = &H80000005 .Locked = False End If End With Next CtrlIni
docm
"Jacques" a écrit dans le message news: 438b724b$0$18306$
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais
que soient visibles 1, 2, 3, 4, et 5.
Merci, Jacques
Jacques
JLuc et docm
Merci a vous, je vais regarder. Désolé pour le temps de réponse mais j'ai eu quelques imprévu.
Merci, Jacques "docm" a écrit dans le message de news:
Alors comme ceci pour montrer les controles tant qu'on n'en rencontre pas un qui soit vide :
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) With CtrlIni If Vide = False Then .BackColor = &HC0C0FF .Locked = False .Visible = True If CtrlIni = "" Then Vide = True End If Else .Visible = False .BackColor = &H80000005 .Locked = False End If End With Next CtrlIni
docm
"Jacques" a écrit dans le message news: 438b724b$0$18306$
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais
que soient visibles 1, 2, 3, 4, et 5.
Merci, Jacques
JLuc et docm
Merci a vous, je vais regarder.
Désolé pour le temps de réponse mais j'ai eu quelques imprévu.
Merci, Jacques
"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
O173QjG9FHA.3200@TK2MSFTNGP11.phx.gbl...
Alors comme ceci pour montrer les controles tant qu'on n'en rencontre pas
un
qui soit vide :
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3)
With CtrlIni
If Vide = False Then
.BackColor = &HC0C0FF
.Locked = False
.Visible = True
If CtrlIni = "" Then
Vide = True
End If
Else
.Visible = False
.BackColor = &H80000005
.Locked = False
End If
End With
Next CtrlIni
docm
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message news:
438b724b$0$18306$8fcfb975@news.wanadoo.fr...
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le
suivant
vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides,
j'aimerais
Merci a vous, je vais regarder. Désolé pour le temps de réponse mais j'ai eu quelques imprévu.
Merci, Jacques "docm" a écrit dans le message de news:
Alors comme ceci pour montrer les controles tant qu'on n'en rencontre pas un qui soit vide :
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) With CtrlIni If Vide = False Then .BackColor = &HC0C0FF .Locked = False .Visible = True If CtrlIni = "" Then Vide = True End If Else .Visible = False .BackColor = &H80000005 .Locked = False End If End With Next CtrlIni
docm
"Jacques" a écrit dans le message news: 438b724b$0$18306$
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais
que soient visibles 1, 2, 3, 4, et 5.
Merci, Jacques
Jacques
Le groupe
JLuc, domc, c'est nickel cela fonctionne.
Merci, jacques "Jacques" a écrit dans le message de news: 438e04b5$0$29226$
JLuc et docm
Merci a vous, je vais regarder. Désolé pour le temps de réponse mais j'ai eu quelques imprévu.
Merci, Jacques "docm" a écrit dans le message de news:
Alors comme ceci pour montrer les controles tant qu'on n'en rencontre pas un qui soit vide :
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) With CtrlIni If Vide = False Then .BackColor = &HC0C0FF .Locked = False .Visible = True If CtrlIni = "" Then Vide = True End If Else .Visible = False .BackColor = &H80000005 .Locked = False End If End With Next CtrlIni
docm
"Jacques" a écrit dans le message news: 438b724b$0$18306$
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais
que soient visibles 1, 2, 3, 4, et 5.
Merci, Jacques
Le groupe
JLuc, domc, c'est nickel cela fonctionne.
Merci, jacques
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message de news:
438e04b5$0$29226$8fcfb975@news.wanadoo.fr...
JLuc et docm
Merci a vous, je vais regarder.
Désolé pour le temps de réponse mais j'ai eu quelques imprévu.
Merci, Jacques
"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
O173QjG9FHA.3200@TK2MSFTNGP11.phx.gbl...
Alors comme ceci pour montrer les controles tant qu'on n'en rencontre pas
un
qui soit vide :
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3)
With CtrlIni
If Vide = False Then
.BackColor = &HC0C0FF
.Locked = False
.Visible = True
If CtrlIni = "" Then
Vide = True
End If
Else
.Visible = False
.BackColor = &H80000005
.Locked = False
End If
End With
Next CtrlIni
docm
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message news:
438b724b$0$18306$8fcfb975@news.wanadoo.fr...
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le
suivant
vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides,
j'aimerais
Merci, jacques "Jacques" a écrit dans le message de news: 438e04b5$0$29226$
JLuc et docm
Merci a vous, je vais regarder. Désolé pour le temps de réponse mais j'ai eu quelques imprévu.
Merci, Jacques "docm" a écrit dans le message de news:
Alors comme ceci pour montrer les controles tant qu'on n'en rencontre pas un qui soit vide :
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) With CtrlIni If Vide = False Then .BackColor = &HC0C0FF .Locked = False .Visible = True If CtrlIni = "" Then Vide = True End If Else .Visible = False .BackColor = &H80000005 .Locked = False End If End With Next CtrlIni
docm
"Jacques" a écrit dans le message news: 438b724b$0$18306$
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais
que soient visibles 1, 2, 3, 4, et 5.
Merci, Jacques
docm
De rien... ;-)
docm
Jacques déclare:
Le groupe
JLuc, domc, c'est nickel cela fonctionne.
Merci, jacques "Jacques" a écrit dans le message de news: 438e04b5$0$29226$
JLuc et docm
Merci a vous, je vais regarder. Désolé pour le temps de réponse mais j'ai eu quelques imprévu.
Merci, Jacques "docm" a écrit dans le message de news:
Alors comme ceci pour montrer les controles tant qu'on n'en rencontre pas un qui soit vide :
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) With CtrlIni If Vide = False Then .BackColor = &HC0C0FF .Locked = False .Visible = True If CtrlIni = "" Then Vide = True End If Else .Visible = False .BackColor = &H80000005 .Locked = False End If End With Next CtrlIni
docm
"Jacques" a écrit dans le message news: 438b724b$0$18306$
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais que soient visibles 1, 2, 3, 4, et 5.
Merci, Jacques
De rien... ;-)
docm
Jacques déclare:
Le groupe
JLuc, domc, c'est nickel cela fonctionne.
Merci, jacques
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message de
news: 438e04b5$0$29226$8fcfb975@news.wanadoo.fr...
JLuc et docm
Merci a vous, je vais regarder.
Désolé pour le temps de réponse mais j'ai eu quelques imprévu.
Merci, Jacques
"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
O173QjG9FHA.3200@TK2MSFTNGP11.phx.gbl...
Alors comme ceci pour montrer les controles tant qu'on n'en
rencontre pas un
qui soit vide :
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3)
With CtrlIni
If Vide = False Then
.BackColor = &HC0C0FF
.Locked = False
.Visible = True
If CtrlIni = "" Then
Vide = True
End If
Else
.Visible = False
.BackColor = &H80000005
.Locked = False
End If
End With
Next CtrlIni
docm
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message news:
438b724b$0$18306$8fcfb975@news.wanadoo.fr...
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le
suivant
vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides,
j'aimerais que soient visibles 1, 2, 3, 4, et 5.
Merci, jacques "Jacques" a écrit dans le message de news: 438e04b5$0$29226$
JLuc et docm
Merci a vous, je vais regarder. Désolé pour le temps de réponse mais j'ai eu quelques imprévu.
Merci, Jacques "docm" a écrit dans le message de news:
Alors comme ceci pour montrer les controles tant qu'on n'en rencontre pas un qui soit vide :
For Each CtrlIni In Array(TextBox1, TextBox2, TextBox3) With CtrlIni If Vide = False Then .BackColor = &HC0C0FF .Locked = False .Visible = True If CtrlIni = "" Then Vide = True End If Else .Visible = False .BackColor = &H80000005 .Locked = False End If End With Next CtrlIni
docm
"Jacques" a écrit dans le message news: 438b724b$0$18306$
Re
Merci, JLuc et docm
En faite, j'aimerais rendre visible, tous les controls rempli + le suivant vide, afin de le remplir;
En résumé : si 1, 2, 3, 4 sont rempli et les 6 autres sont vides, j'aimerais que soient visibles 1, 2, 3, 4, et 5.
