Bonsoir Corbin,
Avec le code ci-dessous à insérer dans le code de la feuille et un bouton Activex inséré dans la cellule I5. A adapter avec la colonne et ligne si autre cellule.
Mettre au départ 1 dans la cellule (I5) sous le bouton. Avec le bouton en texte Non réalisé et couleur jaune.
Private Sub CommandButton1_Click()
clic = [I5]
Select Case clic
Case 0
Range("I5") = 1
CommandButton1.Caption = "Non réalisé"
CommandButton1.BackColor = &H80FFFF
Case 1
Range("I5") = 2
CommandButton1.Caption = "Conforme"
CommandButton1.BackColor = &H80FF80
Case 2
Range("I5") = 0
CommandButton1.Caption = "Non Conforme"
CommandButton1.BackColor = &H8080FF
End Select
End Sub
Le premier bouton dans le menu ci-dessous.
Et la feuille 2, ici pour exemple, qui contient le bouton. Et le code de la feuille. Faire clic droit sur la feuille.