Récupérer les coordonnées d'une cellulle après être positionné dans cette cellulle

[alaindeloin]

Bonjour,

J'ai une macro qui me permet de me positionner dans la cellule correspondant à la date du jour,
je voudrais colorer cette cellule automatiquement et les 2 autres a cotés

voici mon code mais je voudrais mettre les coordonnes des cellules à la place de A10 U10 et V10:
Merci si vous pouvez m'aider

------------------------------------------
Sub Aut😵pen()
Sheets("Feuil1").Activate
Range("A2").Cells(Day(Now()), 1).Select

Range("A10:U10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("V10").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
----------------------------------------------

 

[jp14]

Re : Récupérer les coordonnées d'une cellulle après être positionné dans cette cellul

Bonjour et bienvenue sur le forum

Si j'ai bien compris
Utiliser le code "Offset(décalage ligne, décalage colonne)
Range("A2").Cells(Day(Now()), 1).Offset(0, 1).Select cellule adjacente : même ligne, colonne suivante

JP