coordonnées et abscisse cellule active

[Gil_Se]

Bonjour à tous.
Je suis à la recherche de préférence par une formule, et sinon par une macro, d'une solution me donnant dans 2 cellules la date et le nom de la personne correspondant à la cellule active.
Un exemple en pièce jointe pour être plus clair.
Merci d'avance.
Gilles

 

[tototiti2008]

Re : coordonnées et abscisse cellule active

Bonjour Gil_Se,

un essai

edit : pièce jointe mise à jour
Bonjour Hasco

 

[Guest]

Re : coordonnées et abscisse cellule active

Bonjour,
Voir dans fichier joint:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Range("B7").CurrentRegion
    If Not Intersect(.Offset(1, 1).Resize(.Rows.Count - 1, .Columns.Count - 1), Target) Is Nothing Then
        [E3] = Intersect(Target.EntireColumn, .Rows(1))
        [E4] = Intersect(Target.EntireRow, .Columns(1))
    End If
End With
End Sub

A+
[Edit] Hello tototiti

 

[Gil_Se]

Re : coordonnées et abscisse cellule active

Bonsoir.
Je ne suis pas arrivé à adapter cette macro à mon fichier. J'essaye encore et je reviens vers vous si je n'y arrive pas.
Merci et bonne soirée.
Gilles