Ceci est une proc=E9dure qui cr=E9=E9e des checbox =E0 l'int=E9rieur=20
d'une frame. Le nombre de chechbox est d=E9termin=E9 par le=20
tableau qui recense le nom des feuille.
Le probl=E8me est que je ne parviens pas =E0 attribuer de=20
propri=E9t=E9 caption(Le nom des feuilles) aux checkboxs.
Dim chkPage As Control 'chk correspond aux checkbox qui=20
vont etre creeent
Dim valtop As Integer 'valtop correspond a la hauteur=20
initiale de la 1ere checbox creee
Dim tailleSBR As Integer
Dim chk As Object
'creation du nb de checkbox correspondant aux nb de=20
rayons
valtop =3D -10
tailleSBR =3D 10
For i =3D LBound(monTabFeuill) To UBound(monTabFeuill)
Set chkPage =3D fmImprTous.Controls.Add
("Forms.CheckBox.1")
With chkPage
.Left =3D 6
.Top =3D valtop + 13
.Width =3D 140
.Height =3D 16
.Name =3D monTabFeuill(i)
' .Caption =3D monTabFeuill(i).Text
End With
Set chk =3D fmImprTous.Controls
' chk.Caption =3D "m" 'monTabFeuill(i)
valtop =3D chkPage.Top
tailleSBR =3D tailleSBR + 13
Next i
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
Michel Gaboly
Bonjour,
Que représente "monTabFeuill" ? Est-ce un objet qui a une propriété "Text" ?
Ceci est une procédure qui créée des checbox à l'intérieur d'une frame. Le nombre de chechbox est déterminé par le tableau qui recense le nom des feuille. Le problème est que je ne parviens pas à attribuer de propriété caption(Le nom des feuilles) aux checkboxs.
Dim chkPage As Control 'chk correspond aux checkbox qui vont etre creeent Dim valtop As Integer 'valtop correspond a la hauteur initiale de la 1ere checbox creee Dim tailleSBR As Integer Dim chk As Object 'creation du nb de checkbox correspondant aux nb de rayons valtop = -10 tailleSBR = 10 For i = LBound(monTabFeuill) To UBound(monTabFeuill) Set chkPage = fmImprTous.Controls.Add ("Forms.CheckBox.1") With chkPage .Left = 6 .Top = valtop + 13 .Width = 140 .Height = 16 .Name = monTabFeuill(i) ' .Caption = monTabFeuill(i).Text End With Set chk = fmImprTous.Controls ' chk.Caption = "m" 'monTabFeuill(i) valtop = chkPage.Top tailleSBR = tailleSBR + 13 Next i
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Bonjour,
Que représente "monTabFeuill" ? Est-ce un objet qui
a une propriété "Text" ?
Ceci est une procédure qui créée des checbox à l'intérieur
d'une frame. Le nombre de chechbox est déterminé par le
tableau qui recense le nom des feuille.
Le problème est que je ne parviens pas à attribuer de
propriété caption(Le nom des feuilles) aux checkboxs.
Dim chkPage As Control 'chk correspond aux checkbox qui
vont etre creeent
Dim valtop As Integer 'valtop correspond a la hauteur
initiale de la 1ere checbox creee
Dim tailleSBR As Integer
Dim chk As Object
'creation du nb de checkbox correspondant aux nb de
rayons
valtop = -10
tailleSBR = 10
For i = LBound(monTabFeuill) To UBound(monTabFeuill)
Set chkPage = fmImprTous.Controls.Add
("Forms.CheckBox.1")
With chkPage
.Left = 6
.Top = valtop + 13
.Width = 140
.Height = 16
.Name = monTabFeuill(i)
' .Caption = monTabFeuill(i).Text
End With
Set chk = fmImprTous.Controls
' chk.Caption = "m" 'monTabFeuill(i)
valtop = chkPage.Top
tailleSBR = tailleSBR + 13
Next i
Que représente "monTabFeuill" ? Est-ce un objet qui a une propriété "Text" ?
Ceci est une procédure qui créée des checbox à l'intérieur d'une frame. Le nombre de chechbox est déterminé par le tableau qui recense le nom des feuille. Le problème est que je ne parviens pas à attribuer de propriété caption(Le nom des feuilles) aux checkboxs.
Dim chkPage As Control 'chk correspond aux checkbox qui vont etre creeent Dim valtop As Integer 'valtop correspond a la hauteur initiale de la 1ere checbox creee Dim tailleSBR As Integer Dim chk As Object 'creation du nb de checkbox correspondant aux nb de rayons valtop = -10 tailleSBR = 10 For i = LBound(monTabFeuill) To UBound(monTabFeuill) Set chkPage = fmImprTous.Controls.Add ("Forms.CheckBox.1") With chkPage .Left = 6 .Top = valtop + 13 .Width = 140 .Height = 16 .Name = monTabFeuill(i) ' .Caption = monTabFeuill(i).Text End With Set chk = fmImprTous.Controls ' chk.Caption = "m" 'monTabFeuill(i) valtop = chkPage.Top tailleSBR = tailleSBR + 13 Next i
-- Cordialement,
Michel Gaboly http://www.gaboly.com
Denis Michon
Bonjour Nicolas,
For i = LBound(monTabFeuill) To UBound(monTabFeuill)
à partir la ligne de code précédente, on peut déduire que monTabFeuill est une variable tableau (array) qui renferme les noms de tous tes feuilles. Ta procédure n'est pas explicite comment tu renseignes ton tableau "monTabFeuill" ...mais un tableau n'a sûrement pas de propriété Text comme dans la ligne suivante : .Caption = monTabFeuill(i).Text .
Seulement ceci devrait être suffisant :
.Caption = monTabFeuill(i)
Salutations!
"Nicolas" a écrit dans le message de news:07e101c3b813$25d96740$ Ceci est une procédure qui créée des checbox à l'intérieur d'une frame. Le nombre de chechbox est déterminé par le tableau qui recense le nom des feuille. Le problème est que je ne parviens pas à attribuer de propriété caption(Le nom des feuilles) aux checkboxs.
Dim chkPage As Control 'chk correspond aux checkbox qui vont etre creeent Dim valtop As Integer 'valtop correspond a la hauteur initiale de la 1ere checbox creee Dim tailleSBR As Integer Dim chk As Object 'creation du nb de checkbox correspondant aux nb de rayons valtop = -10 tailleSBR = 10 For i = LBound(monTabFeuill) To UBound(monTabFeuill) Set chkPage = fmImprTous.Controls.Add ("Forms.CheckBox.1") With chkPage .Left = 6 .Top = valtop + 13 .Width = 140 .Height = 16 .Name = monTabFeuill(i) ' .Caption = monTabFeuill(i).Text End With Set chk = fmImprTous.Controls ' chk.Caption = "m" 'monTabFeuill(i) valtop = chkPage.Top tailleSBR = tailleSBR + 13 Next i
Bonjour Nicolas,
For i = LBound(monTabFeuill) To UBound(monTabFeuill)
à partir la ligne de code précédente, on peut déduire que monTabFeuill est une variable tableau (array) qui renferme les
noms de tous tes feuilles. Ta procédure n'est pas explicite comment tu renseignes ton tableau "monTabFeuill" ...mais un
tableau n'a sûrement pas de propriété Text comme dans la ligne suivante : .Caption = monTabFeuill(i).Text .
Seulement ceci devrait être suffisant :
.Caption = monTabFeuill(i)
Salutations!
"Nicolas" <nospam-nicolas.woisselin@laposte.fr> a écrit dans le message de news:07e101c3b813$25d96740$a401280a@phx.gbl...
Ceci est une procédure qui créée des checbox à l'intérieur
d'une frame. Le nombre de chechbox est déterminé par le
tableau qui recense le nom des feuille.
Le problème est que je ne parviens pas à attribuer de
propriété caption(Le nom des feuilles) aux checkboxs.
Dim chkPage As Control 'chk correspond aux checkbox qui
vont etre creeent
Dim valtop As Integer 'valtop correspond a la hauteur
initiale de la 1ere checbox creee
Dim tailleSBR As Integer
Dim chk As Object
'creation du nb de checkbox correspondant aux nb de
rayons
valtop = -10
tailleSBR = 10
For i = LBound(monTabFeuill) To UBound(monTabFeuill)
Set chkPage = fmImprTous.Controls.Add
("Forms.CheckBox.1")
With chkPage
.Left = 6
.Top = valtop + 13
.Width = 140
.Height = 16
.Name = monTabFeuill(i)
' .Caption = monTabFeuill(i).Text
End With
Set chk = fmImprTous.Controls
' chk.Caption = "m" 'monTabFeuill(i)
valtop = chkPage.Top
tailleSBR = tailleSBR + 13
Next i
For i = LBound(monTabFeuill) To UBound(monTabFeuill)
à partir la ligne de code précédente, on peut déduire que monTabFeuill est une variable tableau (array) qui renferme les noms de tous tes feuilles. Ta procédure n'est pas explicite comment tu renseignes ton tableau "monTabFeuill" ...mais un tableau n'a sûrement pas de propriété Text comme dans la ligne suivante : .Caption = monTabFeuill(i).Text .
Seulement ceci devrait être suffisant :
.Caption = monTabFeuill(i)
Salutations!
"Nicolas" a écrit dans le message de news:07e101c3b813$25d96740$ Ceci est une procédure qui créée des checbox à l'intérieur d'une frame. Le nombre de chechbox est déterminé par le tableau qui recense le nom des feuille. Le problème est que je ne parviens pas à attribuer de propriété caption(Le nom des feuilles) aux checkboxs.
Dim chkPage As Control 'chk correspond aux checkbox qui vont etre creeent Dim valtop As Integer 'valtop correspond a la hauteur initiale de la 1ere checbox creee Dim tailleSBR As Integer Dim chk As Object 'creation du nb de checkbox correspondant aux nb de rayons valtop = -10 tailleSBR = 10 For i = LBound(monTabFeuill) To UBound(monTabFeuill) Set chkPage = fmImprTous.Controls.Add ("Forms.CheckBox.1") With chkPage .Left = 6 .Top = valtop + 13 .Width = 140 .Height = 16 .Name = monTabFeuill(i) ' .Caption = monTabFeuill(i).Text End With Set chk = fmImprTous.Controls ' chk.Caption = "m" 'monTabFeuill(i) valtop = chkPage.Top tailleSBR = tailleSBR + 13 Next i
Clément Marcotte
Ton caption est en commentaire.
"Nicolas" a écrit dans le message de news:07e101c3b813$25d96740$ Ceci est une procédure qui créée des checbox à l'intérieur d'une frame. Le nombre de chechbox est déterminé par le tableau qui recense le nom des feuille. Le problème est que je ne parviens pas à attribuer de propriété caption(Le nom des feuilles) aux checkboxs.
Dim chkPage As Control 'chk correspond aux checkbox qui vont etre creeent Dim valtop As Integer 'valtop correspond a la hauteur initiale de la 1ere checbox creee Dim tailleSBR As Integer Dim chk As Object 'creation du nb de checkbox correspondant aux nb de rayons valtop = -10 tailleSBR = 10 For i = LBound(monTabFeuill) To UBound(monTabFeuill) Set chkPage = fmImprTous.Controls.Add ("Forms.CheckBox.1") With chkPage .Left = 6 .Top = valtop + 13 .Width = 140 .Height = 16 .Name = monTabFeuill(i) ' .Caption = monTabFeuill(i).Text End With Set chk = fmImprTous.Controls ' chk.Caption = "m" 'monTabFeuill(i) valtop = chkPage.Top tailleSBR = tailleSBR + 13 Next i
Ton caption est en commentaire.
"Nicolas" <nospam-nicolas.woisselin@laposte.fr> a écrit dans le
message de news:07e101c3b813$25d96740$a401280a@phx.gbl...
Ceci est une procédure qui créée des checbox à l'intérieur
d'une frame. Le nombre de chechbox est déterminé par le
tableau qui recense le nom des feuille.
Le problème est que je ne parviens pas à attribuer de
propriété caption(Le nom des feuilles) aux checkboxs.
Dim chkPage As Control 'chk correspond aux checkbox qui
vont etre creeent
Dim valtop As Integer 'valtop correspond a la hauteur
initiale de la 1ere checbox creee
Dim tailleSBR As Integer
Dim chk As Object
'creation du nb de checkbox correspondant aux nb de
rayons
valtop = -10
tailleSBR = 10
For i = LBound(monTabFeuill) To UBound(monTabFeuill)
Set chkPage = fmImprTous.Controls.Add
("Forms.CheckBox.1")
With chkPage
.Left = 6
.Top = valtop + 13
.Width = 140
.Height = 16
.Name = monTabFeuill(i)
' .Caption = monTabFeuill(i).Text
End With
Set chk = fmImprTous.Controls
' chk.Caption = "m" 'monTabFeuill(i)
valtop = chkPage.Top
tailleSBR = tailleSBR + 13
Next i
"Nicolas" a écrit dans le message de news:07e101c3b813$25d96740$ Ceci est une procédure qui créée des checbox à l'intérieur d'une frame. Le nombre de chechbox est déterminé par le tableau qui recense le nom des feuille. Le problème est que je ne parviens pas à attribuer de propriété caption(Le nom des feuilles) aux checkboxs.
Dim chkPage As Control 'chk correspond aux checkbox qui vont etre creeent Dim valtop As Integer 'valtop correspond a la hauteur initiale de la 1ere checbox creee Dim tailleSBR As Integer Dim chk As Object 'creation du nb de checkbox correspondant aux nb de rayons valtop = -10 tailleSBR = 10 For i = LBound(monTabFeuill) To UBound(monTabFeuill) Set chkPage = fmImprTous.Controls.Add ("Forms.CheckBox.1") With chkPage .Left = 6 .Top = valtop + 13 .Width = 140 .Height = 16 .Name = monTabFeuill(i) ' .Caption = monTabFeuill(i).Text End With Set chk = fmImprTous.Controls ' chk.Caption = "m" 'monTabFeuill(i) valtop = chkPage.Top tailleSBR = tailleSBR + 13 Next i
