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

[RyuAutodidacte]

Bonjour,

Ce n’est pas assez clair pour moi, Merci de donner plus de détails Avec les tenants et les aboutissants et le but final …

[Antoine.dah]

Bonjour,


je veux tout simplement copier la formule et non pas la valeur. Je veux reproduire la même chose lorsque l'on se sert que d'Excel

Exemple lorsque l'on se sert que d'Excel:

Je clique sur la cellule A2
Puis j'écris "=A1"

Ainsi, lorsque la valeur de la cellule A1 change, la valeur de la cellule A2 change également.

Je veux trouver la formule qui permet le même mécanisme.

Code :

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

1
2
3
4
 
sub exemple ()
range("A2").value=Range("A1").value
end sub

Ce code affecte seulement la valeur de la cellule A1 dans la cellule A2.


J'ai pas de code pré-établis

[Antoine.dah]

Pour résumé:


Lorsque j'exécute ma macro, je veux que lorsque je clique sur la cellule concerné A2:

=A1

et non pas

=2 (valeur d'A1)

[RyuAutodidacte]

Fais une recherche sur Range.Formula ou Range.FormulaLocal, tu auras les explications

[Antoine.dah]

Merci beaucoup pour ton temps et ton aide Ryu, j'ai pas été très claire avec vous pour vous expliquer ma problématique.

Code :

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

Range.formula

répond en partie à mon problème, puisque ça me permet de faire référence à des cellules et non pas aux valeurs de ces cellules.

Voilà un exemple de code qui pourrait vous éclaircir sur mes intentions:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub test()
Dim l, c As Integer
 
l = 1
i = 1
 
For i = 1 To 10
 
    Cells(l, 3).Formula = Cells(l, 1) * Cells(l, 2)
 
    l = l + 1
 
Next
 
End Sub

où par exemple:
A1:A10=2
B1:B10= 1, 2, 3, 4, ..., 10

Ce code calcule la table de 2 et donne le résultat dans la colonne C (3ème colonne).

Voilà ce que je souhaite:

Après avoir exécuter ma macro (et sans avoir à réutiliser ma macro), pouvoir changer les valeurs de la première et/ou deuxième colonne et qu'ainsi la valeur des cellules de la colonne C se modifie directement.


Or les valeurs de la colonne C, après l'exécution du code ci-dessus ne font pas référence aux cellules des deux premières colonnes. Si je prends la cellule C1 par exemple, sa valeur est de 2. Moi j'aimerai que lorsque je clique sur la cellule C1, il y ait comme résultat "=A1*B1"

Il est possible d'obtenir ce que je veux en tapant par exemple:

Code :

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

Range("C1").formula="= A1*B1"

Cependant, il faudrait que j'écrive cette ligne 10 fois (A2*B2, A3*B3,...) pour obtenir ce que je veux.



C'est la première fois il me semble que j'essaye d'expliquer une difficulté rencontrée concernant le codage. Donc désolé encore une fois si je ne suis pas 100% compréhensible!

[Algoplus]

Bonjour,

avec

Code :

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

ActiveCell.FormulaR1C1 = "=R2C1"

on était pas loin (encore que R2C1 en A2 ...)

après pour insérer des variables dans une chaine:

Code :

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

1
2
3
4
Dim L As Long, C As Integer
L = 5
C = 6
MsgBox "Roméo" & L & "Charly" & C  ' donnera =>"Roméo5Charly6"

[Patrice740]

Bonjour,

DOUBLON : https://www.developpez.net/forums/d1...rence-cellule/

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

[RyuAutodidacte]

En attendant que tes explication soient plus claires, en voilà des précises à lire :
Ecrire une formule dans Excel à l'aide d'une procédure VBA
Ecrire une formule dans Excel à l'aide d'une procédure VBA (Part 2)