N
nicole
Guest
Bonjour amis du forum,
Bien qu'il ne fasse pas très beau, je commence avec beaucoup de peps ce Week-end et j'espère que c'est le cas pour vous aussi.
En ce qui concerne mon post, j'ai besoin de comprendre le sens de quelques lignes de code.
1) For each ct in userform.controls
for i=1 to 9
if ct. name="TextB"&i then
ct.Enabled=False
Exit for
end if
next.
2) que signifient les macros commencant par "With me" et finissant par "end with"?
3) A quoi sert "ini"?
4) que signifie associé à un classeur et à une page: End(xlUp).Row?
5) tbXSetup?
6) Private sub ini
dim ctrl as control
dim col as string
for each ctrl in Me.controls
if typeOfCTRL Is MSforms.TextBox then
col=Right (CTRL.Name, 1)
CTRL.value= Worksheets("").Range(Col&Lig)
End If
Next CTRL
End sub
7) Private Sub TbxSetUp
Dim the lock As Boolean
Dim ctrl as control
select case mode
case 1: TheLock= True
case 2: TheLock= False
case 1: TheLock= False:recording
end select
for each ctrl in Me.controls
If typeOfctrl is Msforms.textBox then
ctrl.locked=TheLock
end if
next ctrl
end sub
voila je sais que j'ai été très longue et je m'en excuse. Seulement j'au du mal à comprendre ces lignes et donc à les transposer dans un autre cas.
Merci d'avance et très bon week-end.
Nicole
Bien qu'il ne fasse pas très beau, je commence avec beaucoup de peps ce Week-end et j'espère que c'est le cas pour vous aussi.
En ce qui concerne mon post, j'ai besoin de comprendre le sens de quelques lignes de code.
1) For each ct in userform.controls
for i=1 to 9
if ct. name="TextB"&i then
ct.Enabled=False
Exit for
end if
next.
2) que signifient les macros commencant par "With me" et finissant par "end with"?
3) A quoi sert "ini"?
4) que signifie associé à un classeur et à une page: End(xlUp).Row?
5) tbXSetup?
6) Private sub ini
dim ctrl as control
dim col as string
for each ctrl in Me.controls
if typeOfCTRL Is MSforms.TextBox then
col=Right (CTRL.Name, 1)
CTRL.value= Worksheets("").Range(Col&Lig)
End If
Next CTRL
End sub
7) Private Sub TbxSetUp
Dim the lock As Boolean
Dim ctrl as control
select case mode
case 1: TheLock= True
case 2: TheLock= False
case 1: TheLock= False:recording
end select
for each ctrl in Me.controls
If typeOfctrl is Msforms.textBox then
ctrl.locked=TheLock
end if
next ctrl
end sub
voila je sais que j'ai été très longue et je m'en excuse. Seulement j'au du mal à comprendre ces lignes et donc à les transposer dans un autre cas.
Merci d'avance et très bon week-end.
Nicole