E ericTA XLDnaute Occasionnel 13 Novembre 2016 #1 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
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 XLDnaute Barbatruc 13 Novembre 2016 #2 Bonjour ericTA, Avec 147 messages vous avez dû entendre parler de l'enregistreur de macro non ? Code: Application.ReferenceStyle = xlR1C1 'xlA1 A+ Vote positif 0 Vote négatif
Bonjour ericTA, Avec 147 messages vous avez dû entendre parler de l'enregistreur de macro non ? Code: Application.ReferenceStyle = xlR1C1 'xlA1 A+
Dranreb XLDnaute Barbatruc 13 Novembre 2016 #3 Bonjour. Information: C'est la toute première icône de mon menu Perso. Exécute un Macros.xlsm!RefStyleL1C1 : VB: Sub RefStyleL1C1() Application.ReferenceStyle = xlR1C1 + xlA1 - Application.ReferenceStyle End Sub Edit: Salut Job75. Dernière édition: 13 Novembre 2016 Vote positif 0 Vote négatif
Bonjour. Information: C'est la toute première icône de mon menu Perso. Exécute un Macros.xlsm!RefStyleL1C1 : VB: Sub RefStyleL1C1() Application.ReferenceStyle = xlR1C1 + xlA1 - Application.ReferenceStyle End Sub Edit: Salut Job75.
job75 XLDnaute Barbatruc 13 Novembre 2016 #4 Re, Macro pour inverser le style de référence : Code: 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 : Code: Sub A1_L1C1() Application.ReferenceStyle = -Application.ReferenceStyle - 4149 End Sub A+ Dernière édition: 13 Novembre 2016 Vote positif 0 Vote négatif
Re, Macro pour inverser le style de référence : Code: 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 : Code: Sub A1_L1C1() Application.ReferenceStyle = -Application.ReferenceStyle - 4149 End Sub A+