Scribd
Importer
3 vues2 pages

Formulaire de sélection avec options limitées

Le document décrit un formulaire utilisateur en VBA qui permet de sélectionner jusqu'à 5 options parmi 24 cases à cocher. Lorsqu'une case est cochée, son étiquette est enregistrée dans une cellule, et le nombre total de cases cochées est affiché dans une zone de texte. Si le nombre de sélections dépasse 5, la case à cocher correspondante est désactivée.

Transféré par

zeggout.siham2
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats XLS, PDF, TXT ou lisez en ligne sur Scribd
3 vues2 pages

Formulaire de sélection avec options limitées

Le document décrit un formulaire utilisateur en VBA qui permet de sélectionner jusqu'à 5 options parmi 24 cases à cocher. Lorsqu'une case est cochée, son étiquette est enregistrée dans une cellule, et le nombre total de cases cochées est affiché dans une zone de texte. Si le nombre de sélections dépasse 5, la case à cocher correspondante est désactivée.

Transféré par

zeggout.siham2
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats XLS, PDF, TXT ou lisez en ligne sur Scribd

Saisie limitée à 5 options

Dim Chk(1 To 24) As New ClasseSaisie


Private Sub UserForm_Initialize()
For b = 1 To 24: Set Chk(b).GrSaisie = Me("
Me.b_ok.Enabled = False
End Sub
Alcatel Private Sub b_ok_Click()
SG ligne = 8
For i = 1 To 24
CA
If Me("checkbox" & i) Then
Renault Cells(ligne, 6) = Me("checkbox" & i).Cap
CERCI ligne = ligne + 1
End If
Next i
End Sub

Module de classe ClasseSaisie:

Public WithEvents GrSaisie As [Link]


Private Sub GrSaisie_Change()
n=0
For i = 1 To 24
If Selection_titres("Checkbox" & i) Then n
Next i
Selection_titres.[Link] = n
If n > 5 Then Selection_titres([Link]
Selection_titres.b_ok.Enabled = IIf(n > 0, T
'For i = 1 To 24
' Selection_titres("Checkbox" & i).Enabled
' IIf(n = 5, Selection_titres("Checkbox"
'Next
End Sub
isie limitée à 5 options
Chk(1 To 24) As New ClasseSaisie
ate Sub UserForm_Initialize()
b = 1 To 24: Set Chk(b).GrSaisie = Me("Checkbox" & b): Next b
b_ok.Enabled = False
Sub
ate Sub b_ok_Click()
ne = 8
r i = 1 To 24
Me("checkbox" & i) Then
Cells(ligne, 6) = Me("checkbox" & i).Caption
ligne = ligne + 1
nd If
xt i
Sub

dule de classe ClasseSaisie:

ic WithEvents GrSaisie As [Link]


ate Sub GrSaisie_Change()
=0
r i = 1 To 24
Selection_titres("Checkbox" & i) Then n = n + 1
xt i
lection_titres.[Link] = n
n > 5 Then Selection_titres([Link]) = False
lection_titres.b_ok.Enabled = IIf(n > 0, True, False)
r i = 1 To 24
Selection_titres("Checkbox" & i).Enabled = _
IIf(n = 5, Selection_titres("Checkbox" & i).Value, True)
ext
Sub

Vous aimerez peut-être aussi