Affichage d'une valeur par double clic

James007 à dit:

A titre d'exemple ou de point de départ pour un Event double-Click:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
    Cancel As Boolean)
    With Target
        If .Cells.Count > 1 Then Exit Sub
        If Intersect(.Cells, Me.Range("C:C")) Is Nothing Then Exit Sub
        .Value = Date
        .NumberFormat = "dd-mmm-yy"
        Cancel = True
    End With
End Sub

A+

Cliquez pour agrandir...

Banzai64 à dit:

Bonsoir

Sans fichier au départ
Sans fichier à l'arrivée 🙂

Si j'ai compris ta demande

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column > 3 And Target.Column < 7 Then
    Range("D" & Target.Row).Resize(1, 3).ClearContents
    Target.Value = Target.Column - 3
    Cancel = True
  End If
End Sub

Cliquez pour agrandir...

Banzai64 à dit:

Bonjour

La macro il fallait la mettre dans le code de la feuille concernée et pas dans un module

Je t'ai rajouté le 0

Cliquez pour agrandir...