coordonnées et abscisse cellule active

Gil_Se · 25 Janvier 2012

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 · 25 Janvier 2012

Re : coordonnées et abscisse cellule active

Bonjour Gil_Se,

un essai

edit : pièce jointe mise à jour
Bonjour Hasco

Guest · 25 Janvier 2012

Re : coordonnées et abscisse cellule active

Bonjour,
Voir dans fichier joint:

Code:

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 · 25 Janvier 2012

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

coordonnées et abscisse cellule active

Gil_Se

XLDnaute Occasionnel

Pièces jointes

tototiti2008

XLDnaute Barbatruc

Pièces jointes

Guest

Guest

Gil_Se

XLDnaute Occasionnel

Discussions similaires