Bonjour
En insérant un CommandButton dans ton USF
Private Sub CommandButton_Clik()
If optBBL=True Then Sheets(1).[A4]='BL'
If optBBE=True Then Sheets(1).[A4]='BE'
If optBOR=True Then Sheets(1).[A4]='OR'
'tu peux aussi ajouter ceci
Unload UserForm1
End Sub
Evidemment i l faut que tu renommes chaque option button
comme dans l'exemple
ou que tu adaptes le code avec tes propres noms
Message édité par: staple1600, à: 23/09/2005 08:52
Message édité par: staple1600, à: 23/09/2005 08:55
Message édité par: staple1600, à: 23/09/2005 08:56