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
anonymousA
Bonjour,
suis pas sur que ce soit beaucoup plus simple. Dans ce qui suit on suppose que l'ensemble des checkboxes de ton UF est composé seulement des 14 checkboxes ca évite simplement de nommer les checkboxes et faire une longue instruction.
For Each ctrl In Me.Controls If TypeName(ctrl) = "CheckBox" Then If 1 * ctrl.Value <> 0 Then Exit Sub Next
If Checkbox1.Value = False and Checkbox2.Value = False and ..(etc).......CheckBox14.Value úlse Then Exit Sub
Merci pour votre aide....
Denys
Bonjour,
suis pas sur que ce soit beaucoup plus simple. Dans ce qui suit on
suppose que l'ensemble des checkboxes de ton UF est composé seulement
des 14 checkboxes
ca évite simplement de nommer les checkboxes et faire une longue
instruction.
For Each ctrl In Me.Controls
If TypeName(ctrl) = "CheckBox" Then If 1 * ctrl.Value <> 0 Then
Exit Sub
Next
suis pas sur que ce soit beaucoup plus simple. Dans ce qui suit on suppose que l'ensemble des checkboxes de ton UF est composé seulement des 14 checkboxes ca évite simplement de nommer les checkboxes et faire une longue instruction.
For Each ctrl In Me.Controls If TypeName(ctrl) = "CheckBox" Then If 1 * ctrl.Value <> 0 Then Exit Sub Next
If Checkbox1.Value = False and Checkbox2.Value = False and ..(etc).......CheckBox14.Value úlse Then Exit Sub
Merci pour votre aide....
Denys
Denys
Bonsoir AnonymousA,
Merci beaucoup, c'est exactement ce qu'il me faut....
Denys
Bonjour,
suis pas sur que ce soit beaucoup plus simple. Dans ce qui suit on suppose que l'ensemble des checkboxes de ton UF est composé seulement des 14 checkboxes ca évite simplement de nommer les checkboxes et faire une longue instruction.
For Each ctrl In Me.Controls If TypeName(ctrl) = "CheckBox" Then If 1 * ctrl.Value <> 0 Then Exit Sub Next
If Checkbox1.Value = False and Checkbox2.Value = False and ..(etc).......CheckBox14.Value úlse Then Exit Sub
Merci pour votre aide....
Denys
Bonsoir AnonymousA,
Merci beaucoup, c'est exactement ce qu'il me faut....
Denys
Bonjour,
suis pas sur que ce soit beaucoup plus simple. Dans ce qui suit on
suppose que l'ensemble des checkboxes de ton UF est composé seulement
des 14 checkboxes
ca évite simplement de nommer les checkboxes et faire une longue
instruction.
For Each ctrl In Me.Controls
If TypeName(ctrl) = "CheckBox" Then If 1 * ctrl.Value <> 0 Then
Exit Sub
Next
Merci beaucoup, c'est exactement ce qu'il me faut....
Denys
Bonjour,
suis pas sur que ce soit beaucoup plus simple. Dans ce qui suit on suppose que l'ensemble des checkboxes de ton UF est composé seulement des 14 checkboxes ca évite simplement de nommer les checkboxes et faire une longue instruction.
For Each ctrl In Me.Controls If TypeName(ctrl) = "CheckBox" Then If 1 * ctrl.Value <> 0 Then Exit Sub Next
