Soyez le premier à donner votre avis sur cette source.
Vue 9 507 fois - Téléchargée 477 fois
Option Explicit ' sur cette version y a un petit bug lors de l'affichage, rien de très grave, je vous laisse chercher... Private Sub chksouris_Click() AfficherSélection End Sub Private Sub chkcouleur_Click() AfficherSélection End Sub Private Sub chkson_Click() AfficherSélection End Sub Private Sub Command1_Click() End End Sub Private Sub Option1_Click() AfficherSélection End Sub Private Sub Option3_Click() AfficherSélection End Sub Public Sub AfficherSélection() Dim info If chkcouleur.Value = vbChecked Then info = "Couleur : OUI" Else info = "Couleur : NON" End If If chksouris.Value = vbChecked Then info = info & vbCrLf & "Souris : OUI" Else info = info & vbCrLf & "Souris : NON" End If If chkson.Value = vbChecked Then info = info & vbCrLf & "Son : OUI" Else info = info & vbCrLf & "Son : NON" End If If opfr.Value = True Then info = info & vbCrLf & "Français" End If If opang.Value = True Then info = info & vbCrLf & "Anglais" End If If opall.Value = True Then info = info & vbCrLf & "Allemand" End If lblSélection.Caption = info End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.