Tester la validation d' un bouton de controle dans un formulaire

[philmaure]

Bonjour à tous,

J'ai une série de boutons de controle dans un formulaire, et avant d'enregistrer les données je souhaite tester qu'au moins une valeur a été cochée.

La syntaxe que j'ai rentré ne focntionne pas

Merci pour votre aide

Cdlt
philippe

 

[youky(BJ)]

Re : Tester la validation d' un bouton de controle dans un formulaire

Bonjour Philippe,
Voici la macro un peu modifiée
Bruno

Private Sub CommandButton1_Click()
'Tester si un ces critère est validé
For Each X In UserForm1.Frame1.Controls
 If X.Value = True Then coché = X.Name: Exit For
Next
If coché = "" Then
 MsgBox "Merci d'indiquer l'origine de l'incident " & Application.UserName
 UserForm1.Frame1.SetFocus
Else
 Range("a65536").End(xlUp).Offset(0, 1).Value = coché
End If
End Sub

 

[philmaure]

Re : Tester la validation d' un bouton de controle dans un formulaire

Bonjour Bruno,

Super(comme d'hab). Un grand merci pour ta soluce.
bonne journée
cdlt
philippe