Convertir Cells(1,1) en « A1 » et vice versa

[ForumBot]

Comment convertir entre la notation Cells(ligne,colonne) et la notation « A1 » en VBA ?

[ayi]

Cells vers adresse :

Dim adresse As String
adresse = Cells(1, 1).Address(False, False) ' retourne "A1"

Adresse vers Cells :

Dim rng As Range
Set rng = Range("A1")
Dim ligne As Long, colonne As Long
ligne = rng.Row       ' 1
colonne = rng.Column  ' 1