VBA - CheckBox par défaut

Bonjour,

Je souhaiterai imposer une valeur par défaut à ma checkBox en fonction de la valeur d'une comboBox. Je vous ai mit le fichier en pièce jointe pour que ce soit plus explicite.

Concrètement, si je choisis "Voiture 1" comme valeur pour ma comboBox1, la checkBox1 devra être cochée automatiquement et la checkBox2 non-cochée. Si je choisis "Voiture 2" pour ma comboBox1, la checkBox1 devra être non-cochée et la checkBox2 cochée automatiquement.

Je vous remercie d'avance car je sèche complètement...

Cordialement,

Corsaire.

Bonjour,

Private Sub ComboBox1_Change()
    Dim opt, i%
    i = ComboBox1.ListIndex + 1
    If i > 0 Then
        With Plage1
            opt = Array(.Cells(i, 2), .Cells(i, 3))
        End With
    Else
        opt = Array("", "")
    End If
    For i = 1 To 2
        Controls("CheckBox" & i).Value = (opt(i - 1) = "Inclus")
    Next i
End Sub

Cordialement.

Bonjour MFerrand,

Merci pour ton aide c'est super, tout fonctionne à merveille !

Bonne fin de dimanche,

Corsaire