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

philmaure · 26 Février 2013

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) · 26 Février 2013

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

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

Code:

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 · 26 Février 2013

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

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

philmaure

XLDnaute Impliqué

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

philmaure

XLDnaute Impliqué

Discussions similaires

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

philmaure

XLDnaute Impliqué

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

philmaure

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency