Les boîtes de dialogue

Boite de dialogue avec case à cocher.Retour au menu Contrôles divers

        Le Userform (CasesACocher)

        Le code

        Code lançant l'ouverture de la boîte de dialogue

 
Sub AfficheCaseACocher()
Range("A3:C3").Select
Selection.ClearContents
CasesACocher.Show
End Sub

        Code d'ouverture du formulaire

 
Private Sub UserForm_Activate()
' Remplace la propriéte TripleState mise à True(CheckBox1)
CheckBox1.Value = Null
CheckBox2.Value = False
CheckBox3.Value = False
End Sub
Nota : A l'ouverture du formulaire la case Français est coché mais en grisée.

        Code des boutons

       1 / Bouton OK
 
Private Sub OK_Click()
Dim Langue1 As String
Dim Langue2 As String
Dim Langue3 As String
If CheckBox1.Value = False Then
    Langue1 = "Non"
Else
    Langue1 = "Oui"
End If
If CheckBox2.Value = False Then
    Langue2 = "Non"
Else
    Langue2 = "Oui"
End If
If CheckBox3 = False Then
    Langue3 = "Non"
Else
     Langue3 = "Oui"
End If
CasesACocher.Hide
Range("A3").Value = Langue1
Range("B3").Value = Langue2
Range("C3").Value = Langue3
Range("A1").Select
End Sub
        2 / Bouton Annuler
 
Private Sub Annuler_Click()
  CasesACocher.Hide
End Sub

        Le résultat

Retour au début de document

Retour au début du document