Bonjour,
J’ai besoin de votre aide.
Sur la feuille, j’ai en A1 l’année, en ligne 2 les jours et en colonne 1 les mois.
Quand je clique sur une cellule comprise entre B3 et AF14, je voudrai que le jour de la semaine lundi, mardi …………. s’affiche en B16.
Merci.
Bonjour,
J’ai besoin de votre aide.
Sur la feuille, j’ai en A1 l’année, en ligne 2 les jours et en colonne 1 les mois.
Quand je clique sur une cellule comprise entre B3 et AF14, je voudrai que le jour de la semaine lundi, mardi …………. s’affiche en B16.
Merci.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B3:AF14")) Then
[B16] = Format(DateSerial([A1], Target.Row - 2, Target.Column - 1), "dddd")
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([B3:AF14], Target) Is Nothing And Target.Count = 1 Then
Range("B16") = CDate(Cells(2, Target.Column) & "/" & Cells(Target.Row, 1) & "/" & Range("A1"))
End If
End Sub