Salut Bobobo,
Salut Eric,
l'occasion d'utiliser des cellules nommées...
- [TYPE_MONTAGE] : la cellule orange où tu bascules de "X" à "O" ;
- [LIB_TYPE] : la cellule où tu affiches ton choix en toutes lettres ;
- [TYPEM] : (juste à gauche de la cellule orange) si tu as besoin d'une traduction numérique de ton choix dans tes calculs, tu y mets la valeur adéquate lors de la bascule. Ici, j'y mets 1 pour "X", 0 pour 'O".
À toi de mettre la couleur de fonte en blanc.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
If Not Intersect(Target, [TYPE_MONTAGE]) Is Nothing Then _
[TYPE_MONTAGE] = IIf([TYPE_MONTAGE] = "X", "O", "X"): _
[LIB_TYPE] = "Montage en " & [TYPE_MONTAGE]: _
[TYPEM] = IIf([TYPE_MONTAGE] = "O", 0, 1): _
Target.Offset(1, 0).Select
'
End Sub
A+