changer de style de référence L1C1 par macro

[ericTA]

Salut à tous,
je suis sous Excel 2013 et je cherche un moyen par macro de changer de style de référence L1C1 en évitant d'aller dans option...
Si vous avez une idée , merci d'avance.
Eric

 

[job75]

Bonjour ericTA,

Avec 147 messages vous avez dû entendre parler de l'enregistreur de macro non ?

Application.ReferenceStyle = xlR1C1 'xlA1

A+

 

[Dranreb]

Bonjour.

Information: C'est la toute première icône de mon menu Perso. Exécute un Macros.xlsm!RefStyleL1C1 :

Sub RefStyleL1C1()
Application.ReferenceStyle = xlR1C1 + xlA1 - Application.ReferenceStyle
End Sub

Edit: Salut Job75.

 

[job75]

Re,

Macro pour inverser le style de référence :

Sub A1_L1C1()
Application.ReferenceStyle = IIf(Application.ReferenceStyle = xlA1, xlR1C1, xlA1)
End Sub

A affecter à un bouton ou à lancer par touche de raccourci.

Edit : salut Bernard, OK alors autant aller carrément au plus court :

Sub A1_L1C1()
Application.ReferenceStyle = -Application.ReferenceStyle - 4149
End Sub

A+

 

[ericTA]

Merci à tous