hi,

Sub Macro1()
n = 32768
rws = Columns.Count
If n < rws Then
rw = 1
clm = n
Else
If n Mod rws = 0 Then
rw = Int(n / rws)
clm = Columns.Count
Else:
rw = Int(n / rws) + 1
clm = n Mod rws
End If
End If
MsgBox Cells(rw, clm).Address()
End Sub

isabelle

Le 2015-04-05 17:07, a écrit :

I want the opposite of this:

MsgBox Cells(16385).Address()