extraction matricielle

Bonjour,

En utilisant une formule, on peut récupérer les coordonnées d'une cellule.

Ca donnerait qq chose comme ça :

=CAR(60+(COLONNE(A1)+4))&LIGNE(A1)

Re,
On pourrait peut être aussi passer par une fonction à appeler depuis XL comme une formule : =LOCCELL(A1)

Pq pas qq chose comme :

Function LOCCELL(C As Range)
Dim Lig As Long, Col As Long
Dim LigS1 As String, LigS2 As String, LigA As String

Lig = C.Row
Col = C.Column
If Col > 26 Then
aaa = Application.WorksheetFunction.RoundUp(Col / 26, 0) - 1
bbb = Col - (aaa * 26)
LigS1 = Chr(64 + aaa)
LigS2 = Chr(64 + bbb)
LOCCELL = LigS1 & LigS2 & C.Row
Else
LigA = Chr(64 + C.Column)
LOCCELL = Chr(64 + C.Column) & C.Row
End If

End Function

Bonjour,

Avec ou sans doublons ?
Si oui, tu as toute une série de formules (matricielles)
Si non, tu en as 2, plus simples.
J'espère seulement avoir bien compris…

[file name=CoordonneesElectro.zip size=5608]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CoordonneesElectro.zip[/file]

Bravo Monique,

Du grand art comme toujours !

et merci (je séchais lamentablement) !

😱