Bon il suffit de faire ceci qui consiste a d'abord rechercher tous les options buttons puis de vérifier leur valeur.
Dim Control As Object
For Each Control In Me.Controls If Control.Name = "Le nom de l'optionbutton" Then If Control.Value = True Then 'Ben on fé ce que tu veux End If End If Next
@+++
Damien
|