Microsoft 365 Remplacer liste déroulante par un bouton de switch

[CThierry]

Bonjour,
Novice sur excel je cherche à remplacer un menu déroulant, dans un tableau (tache/date) qui me permet de choisir entre 3 valeurs (todo, Fait, Annulé) par un bouton sur chaque cellule concernée qui permettrait de switcher d'une valeur à l'autre. Le menu déroulant n'étant pas très pratique dans mon cas (tablette tactile)
Merci de votre aide.

 

[CThierry]

Re
j'ai modifié pour adapter la plage de prise en compte du Double Click en fonction des éléments de la Colonne "A"
En modifiant ainsi la macro de la feuille !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim DerLgn As Long
Cancel = True
DerLgn = Cells(Rows.Count, 1).End(xlUp).Row 'on determine la dernière ligne non vide de la colonne "A"
    If Not Intersect(Target, Range(Cells(2, 2), Cells(DerLgn, 9))) Is Nothing Then 'on vérifie que le double Click est bien dans la bonne Plage
    Target = IIf(Target = "NON", "FAIT", IIf(Target = "FAIT", "OK", IIf(Target = "OK", "*", "NON")))
    End If
End Sub

jean marie

Juste génial ! Enorme merci !!!
Note: Tu as du te marrer en voyant ma bricole perso...

 

[ChTi160]

Re
je n'ai rien regardé , juste fait ce qui était demandé Lol
jean marie