Discussion :

[Antoine.dah]

Bonjour à tous,

je viens vers vous car je n'arrive pas à faire référence à une cellule, donc si vous pouviez me donner la fonction ça serait pas mal!

-> Je sais comment recopier une valeur dans une cellule, admettons:

A1: 2

J'ai envie de reporter cette valeur en A2

Code :

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

Range("A2").value=Range("A1").value

Seulement ça me met que "2" en A2, j'aimerai qu'il y ait: A2=A1, comme ça si je modifie A1, A2 se modifie directement aussi!

-> Pour trouver la bonne "formule" j'ai enregistrer une macro et voilà ce que ça me met:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro4()
'
' Macro4 Macro
'
 
'
    Range("A2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=R2C1"
    Range("A3").Select
End Sub

-> J'ai donc essayé de copier cette formule dans mon code, mais voilà le problème:

Dans "R2C1" j'aimerai bien mettre "L" à la place de 2 et "C" à la place de 1 pour pouvoir mettre une boucle. Mais ça ne marche pas




Je suis nouveau sur cette plateforme, donc désolé d'avance si je suis dans le mauvais forum, etc..


Merci à vous

[jpvba]

Bonjour Antoine,


La question que j'Ai pourquoi passé par vba pour ce code quand il est très facile de l'utilisé directement dans excel ???

[Patrice740]

Bonjour,

Pourquoi modifier L et C, il suffit d'appliquer la formule à la plage, par exemple :

Code :

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

1
2
3
Sub Macro4()
  Range("A2:F2").FormulaR1C1 = "=R[-1]C"
End Sub