Discussion :

[Menhir]

Bonjour,

Savez-vous s'il existe en VBA Excel une fonction qui peut transforme une référence de type L1C1 en A1 ?

Actuellement, pour faire ces conversions, j'utilise dans mon code des jonglages du style :

Code :

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

1
2
3
Range("A1").AddressLocal(True, True, xlR1C1)
Range("A1").Address(True, True, xlR1C1)
Cells(1, 1).Address(True, True, xlA1)

Mais ce serait plus propre s'il était possible de faire ça avec une fonction.
J'ai fouillé dans l'aide VBA (mais elle est moins pratique pour les fonctions que pour les objets) sans succès.

Savez-vous si une telle fonction existe ?

Merci d'avance.

[Invité]

Bonjour Menhir,

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Application.ReferenceStyle = xlR1C1
    Application.ReferenceStyle = xlA1
End Sub

[Menhir]

Bonjour rdurupt et merci pour cette réponse.

Mais c'est justement ce que je cherche à éviter.
Mes utilisateurs ont leur petites manies : certains préfèrent les références en A1, d'autres en L1C1. Et pas question de les perturber.
Ou alors, il faudrait, en fin de macro, rétablir l'option d'origine en espérant qu'il n'y ait pas d'intéruption.

J'ai utilisé l'objet ReferenceStyle pour savoir quelle est le mode utilisé par l'utilisateur et je voulais que la macro adapte les formules introduites.

Pour les numéros de ligne, ce n'est pas un problème mais avec les colonnes (surtout si elles dépassent Z, ça devient galère).
D'où ma question.

Mais je me doute bien qu'il y a 90% de chance que ça n'existe pas.

[eriiic]

Bonjour,

ça par exemple :

Code :

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

ref = Application.ConvertFormula(Formula:="A1", fromReferenceStyle:=xlA1, toReferenceStyle:=xlR1C1)

Bien sur tu peux mettre une formule plus complète comme "=somme(A1:A2)+C3"

eric

[Menhir]

C'est exactement ça !

Je me doutais bien que ça pouvait difficilement être une fonction VBA ou une fonction Excel de VBA. Je n'aurais pas imaginé qu'un objet fasse ça.

Merci beaucoup.