Quel est le jour de la semaine ?

[Paulle]

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.

 

[Modeste geedee]

Bonsour®

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.

dans le module de feuille 1

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

 

[JM27]

Bonjour
A mettre dans le module de la feuille

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

 

[Paulle]

Merci à vous deux pour vos réponses rapides qui correspondent exactement à ce que je voulais.