[XL-MAC 2011] copier la valeur d'une cellule dans une autre et pouvoir l'actualiser [Résolu]

[Aurore24]

Bonjour,
Je cherche à résoudre le problème suivant :
J'aimerais affecter à une cellule la valeur d'une autre. Quand je changerais la valeur de la première cellule, la deuxième cellule changerait automatiquement, ce que j'écrirais par exemple dans B1 serait : "=A1"
Maintenant, j'aimerais faire cette action en VBA, pour pouvoir l'intégrer dans une macro, mais je ne peux pas utiliser cette forme car la ligne et la colonne de la cellule source sont contenues dans des variables.
Quelqu'un aurait-il une solution ?
Merci d'avance,
Aurore

[mercatog]

Adapte les noms des feuilles et les coordonnées des cellules

Code :

worksheets("FeuilDest").cells(i,j).formula="=" & worksheets("FeuilSource").cells(x,y).address

[Aurore24]

Cela fonctionne parfaitement,
Merci beaucoup.

[Ormonth]

Bonjour,

en utilisant la propriété Formula de l'objet Range :

Code :

1
2
3
4
5
6
7
8
9
Sub DGFormulla()
Dim I As Long
Dim J As Long
 
I = 5
J = 11
Range("K8").Formula = Cells(I, J).Formula
 
End Sub

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Aurore24]

Bonjour Ormonth,
Merci de ta remarque, c'est vrai que je n'ai pas encore pris le réflexe de cliquer sur les pouces ou sur "résolu".

J'ai essayer la propriété Formula, mais elle ne répond pas à mon problème : si, après avoir exécuté la macro, je change la valeur de la cellule source, la cellule cible conserve la valeur précédente.

Code :

1
2
3
4
5
6
7
8
9
Sub testformula()
a = 1
b = 2
c = 3
d = 4
 
Cells(a, b).Formula = Cells(c, d).Formula
 
End Sub

[Ormonth]

Bonjour,

Exact

tu peux dans ce cas là jouer de différentes façon selon le contexte sur l'évènementiel Change des feuilles genre :

Code :

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$3" Then Call testformula 'Cells(c, d)
End Sub

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Aurore24]

En effet, je pourrais utiliser l'évènementiel Change, mais j'aimerais ne pas avoir à faire appel aux macros une fois ma feuille créée (pour qu'elle puisse, une fois créée, être utilisée par quelqu'un qui aurait désactivé les macros).
Pour cela, la proposition de mercatog me convenait mieux.

Ainsi, sur ce modèle, j'ai essayer d'écrire la formule
=SI(ESTVIDE(A1);"";tabsynth!X7)
dans la cellule B1 de ma feuille test, mais de l'écrire via une macro bien entendu !

Cela donne :

Code :

1
2
3
4
5
6
7
8
9
10
11
 
a = 1
b = 2
c = 24
d = 7
 
With Worksheets("test").Cells(a, b)
 
    .Formula = "=SI(ESTVIDE(test!" & Worksheets("test").Cells(a, a).Address & ");"""";tabsynth!" & Worksheets("tabsynth").Cells(d, c).Address
 
End With

Mais ce code provoque une erreur. Quelqu'un aurait-il une idée ?

Merci d'avance,

Aurore

[gFZT82]

Bonjour,

Il faut utiliser FormulaLocal pour permettre l'écriture en français et fermer la parenthèse en fin d'expression.

Code :

1
2
3
4
5
6
7
8
9
a = 1
b = 2
c = 24
d = 7
Var1 = Worksheets("test").Cells(a, a).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Var2 = Worksheets("tabsynth").Cells(d, c).Address(RowAbsolute:=False, ColumnAbsolute:=False)
With Worksheets("test").Cells(a, b)
    .FormulaLocal = "=SI(ESTVIDE(test!" & Var1 & ");"""";tabsynth!" & Var2 & ")"
End With

Cordialement.

[Aurore24]

Cela fonctionne,
Merci beaucoup,
Aurore