Inserer des Etats dans Tableau en fonction de Cases VBA

Bonjour !

Je debut en VBA et j ai un soucis pour coder:

J'ai coder, 2 lignes déroulantes et je voudrais faire en sorte qu'a partir de celles-ci je puisse avec 3 autres cases de validation dans mon Userform (Planned/Not Yet/Done) pouvoir remplir mes cases Excel .

En gros remplacer mon "X" actuel par " Planned" "Not Yet" ou "Done" a partir de VBA

(Je sais qu'il existe deja une fonction similaire dans menú validation, mais je voudrais le faire par VBA)

En piece jointe mon Exemple

Bonjour 2111quentin,

A tester:

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2 = False
CheckBox3 = False
End If
End Sub

Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1 = False
CheckBox3 = False
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox3 = True Then
CheckBox1 = False
CheckBox2 = False
End If
End Sub

Private Sub CommandButton1_Click()

    If ComboBox1.Text <> "" And ComboBox2.Text <> "" And CheckBox1 = True Then
        Cells(ComboBox1.ListIndex + 3, ComboBox2.ListIndex + 3).Value = "Planned"
    End If

    If ComboBox1.Text <> "" And ComboBox2.Text <> "" And CheckBox2 = True Then
        Cells(ComboBox1.ListIndex + 3, ComboBox2.ListIndex + 3).Value = "Not Done"
    End If

    If ComboBox1.Text <> "" And ComboBox2.Text <> "" And CheckBox3 = True Then
        Cells(ComboBox1.ListIndex + 3, ComboBox2.ListIndex + 3).Value = "Done"
    End If

End Sub

Cordialement,

Bonjour xorsankukai

Je vais tester ça tout de suite !

Merci de ta réponses en tout cas je tiens au courant

C'est exactement ce que j'avais besoin Merci !!!!

Je vais étudier ce code pour pouvoir le refaire et l'adapter a un cas concret MERCI encore