MACRO pour passage de R1C1 à A1

Coucou tous !

J'espère ne pas demander alors que la question a déjà été posée, j'ai effectué plusieurs recherches ("convertir R1C1", "R1C1", j'ai trouvé des "Syntaxes objets en R1C1" et autres topics, mais qui n'ont jamais abouti à une réponse qui me satisfasse) ;

Je souhaite écrire une macro qui permette d'un clic sur le bouton adéquat de passer toute ma feuille de R1C1 à A1 (et réciproquement) ;

Avez-vous une idée de comment faire ?

Un truc comme

Thisworkbook.Activesheet.formulaR1C1 = true

Thisworkbook.Activesheet.formulaA1 = true

Ou alors faut-il utiliser du FormatCondition ?

Je sais que certains auront la réponse, je trouverais sans doute en cherchant 20 minutes mais je ne les ai pas vraiment,

J'espère ne pas me faire lyncher ...

/pas taper taper

Merci d'avance pour votre aide !!

OH ! Autre requête, toute bête mais tant que j'y suis :

Je sais déclarer une variable Globale, mais pas affecter un classeur de façon globale !

Comment faire une sorte de

"Global Set wb = ThisWorkbook" ?

Il doit y avoir plus simple que dans chaque Sub créée, faire appel en début de procédure à une procédure qui assignerait les bons set aux bonnes plages avec une portée qui soit général ... ?

Ca me semble rudement tiré par les cheveux, mon idée

Et une dernière question (tant que j'y suis ),

Je ne serais pas contre créer une petite macro qui permette de

1/ figer une cellule et la mettre par exemple en haut à droite de mon écran

2/ affichant l'heure à chaque seconde

Pour le moment, j'ai codé cela, mais c'est une boucle infinie (j'étais plutôt parti sur un msgbox mais ça semble plus compliqué donc je me suis rabattu sur l'idée de la cellule figée)

Sub TheHours()

'affiche l'heure en permanence dans un msgbox
 ' Il faudrait figer une cellule
Dim Hour As Date
Do

    Hour = Now
    Hour = MsgBox(Hour)
    DoEvents
Loop

End Sub

Bonjour,

pour inverser les titres des colonnes , (si j'ai bien compris ta question):

Sub Colonne1ouA() ' changer les entetes de colonnes A en 1 et inversement

Dim mpanel As Boolean

Dim R1 As Boolean

Application.ScreenUpdating = False

On Error Resume Next

Dim Place_Actuelle

R1 = IIf(Application.ReferenceStyle = xlR1C1, True, False) ' xlR1C1 - colonne avec chiffre

If R1 Then

Application.ReferenceStyle = xlA1 ' XlA1 colonne avec A-B-C

Else

Application.ReferenceStyle = xlR1C1

End If

End Sub