Discussion :

[EAU24]

Bonjour à tous,
Tout d'abord bon dimanche.
Je cherche à compléter l'instruction VBA ci-dessous en lui demandant d'indiquer par un clic droit la date uniquement dans la colonne B
Je n'y suis pas arrivé.
Merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, 1).Select
Cancel = True
End Sub

[Malick]

Bonjour,

Avec cette formule, au clic droit la date est insérée dans la cellule correspondante au niveau de la colonne B :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
    ' Vérifie si la cellule cliquée est dans la colonne B
    If Target.Column = 2 Then
        ' Insère la date du jour dans la cellule cliquée
        Target.Value = Date
        ' Annule le menu contextuel du clic droit
        Cancel = True
    End If
End Sub

[EAU24]

Bonjour,

Avec cette formule, au clic droit la date est insérée dans la cellule correspondante au niveau de la colonne B :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
    ' Vérifie si la cellule cliquée est dans la colonne B
    If Target.Column = 2 Then
        ' Insère la date du jour dans la cellule cliquée
        Target.Value = Date
        ' Annule le menu contextuel du clic droit
        Cancel = True
    End If
End Sub

Merci c'est OK. à plus EAU24