Discussion :

[jpma75]

Bonjour,

Ex : la Cellule D1 contient cette référence (avec guillemets) "$D$4"

Comment récupérer le numéro de colonne faisant référence à cette adresse ?

J'ai essayé avec INDIRECT, ADDRESS, etc. mais je tourne en rond.

Outre la solution en VBA, je suis également preneur pour la formule avec Excel.

En vous remerciant par avance,
Cordialement,
jp

[Invité]

Bonjour,

Il ya peut-être plus simple...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub Test1()
 
Dim Colonne As String
 
     Colonne = Split(Range("D1").Value, "$")(1)
     MsgBox Columns(Colonne).Column
 
End Sub

En généralisant avec une fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Sub Test2()
 
     MsgBox ColonneEquivalente(Range("D1").Value)
 
End Sub
 
Function ColonneEquivalente(ByVal ValeurCellule As String) As Integer
 
Dim Colonne As String
 
     ColonneEquivalente = 0
     Colonne = Split(ValeurCellule, "$")(1)
     ColonneEquivalente = Columns(Colonne).Column
 
End Function

[jpma75]

Bonjour,

Parfait !
Merci beaucoup !

Cordialement,
jp