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

ChTi160 à dit:

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 !

VB:

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

Cliquez pour agrandir...