Avoir deux cellules clones sous ExcelRésolu

Question

Bonjour,



Je voudrais avoir 2 cellules clones dans Excel, c'est &#224; dire que
lorsque je modifie la formule de l'une, cette formule soit modifi&#233;e
dans l'autre, et inversement. De plus, ma feuille Excel n'&#233;tant pas
encore termin&#233;e, je voudrais utiliser le NOM de la cellule (nom
personalis&#233;, pas celui du type A5 ou L1C5) comme identifiant de la
cellule. 



J'ai test&#233; la proc&#233;dure Worksheet_change en utilisant la variable
target renvoy&#233;e, et en faisant un test sur son numero de ligne et d
colonne, ca marche, mais je voudrais utiliser le nom si possible.
Sinon, je n'ai pas trouv&#233; la propri&#233;t&#233; contenant la formule, j'ai
essay&#233; la propri&#233;t&#233; texte, mais je re&#231;ois une erreur, qui me fait
penser que la propri&#233;t&#233; text est en lecture seule (j'ai fait ca hier
soir assez tard, donc, ca vient peut-&#234;tre d'un probl&#232;me de code, enfin,
il ne me semble pas). Sinon, la propri&#233;t&#233; Value, donne un r&#233;sultat pas
mal, mais il ne renvoi renvoi que la valeur, et pas la formule...



Donc voila, ah oui, une derni&#232;re chose, les cases &#224; cloner se trouvent
dans des feuilles diff&#233;rentes (ah oui, sinon c'est pas marrant... )



Merci d'avance, et bonne prog!

hectorticoli · Accepted Answer

J'ai trouv&#233; le code que je cherchais, le voici :

Dans le code de feuil1 :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target = Range("Pr_1") Then
    Feuil2.Range("Pr_3").Formula = Feuil1.Range("Pr_1").Formula
    End If
End Sub

Dans le code de feuil2:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target = Feuil2.Range("Pr_3") Then
        Feuil1.Range("Pr_1").Formula = Feuil2.Range("Pr_3").Formula
    End If
End Sub

(Bien sur, si les 2 cases sont dans la m&#234;me feuille, les 2 conditions peuvent &#234;tre mises l'une apr&#232;s l'autre dans le code de la feuille correspondante)

Vous m'avez &#233;t&#233; d'une aide plus que pr&#233;cieuse pour l'&#233;tablissement de ce code, merci beaucoup et bonne prog!

jpleroisse · Answer

Pour choisir un Nom , tu s&#233;lectionne le menu Insertion / Nom / D&#233;finir , tu donne un nom &#224; la cellule et tu fait de m&#234;me dans la feuille ou tu veux copier les donn&#233;es.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Sheets(2).Range("TaCellule").Value = Range("MaCellule").Value
End Sub

jpleroisse

hectorticoli · Answer

Merci jpleroisse

Ca me dit comment utiliser le nom de ma cellule. Seulement ton code copie la VALEUR de la case, et pas la forumle de la case. Par exemple, si je rentre "=3*2" dans "MaCellule" (je reprend tes noms) je retrouverai "6" dans "TaCellule" alors que je voudrais avoir "=3*2". Tu saisis la nuance?

jpleroisse · Answer

OK je n'ai pas pens&#233; &#224; la formule c'ext vrai , excuse.

Sub Macro2()
    Range("MaCellule").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Application.Goto Reference:="TaCellule"
    Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
End Sub

hectorticoli · Answer

J'ai test&#233; ce code qui fonctionne, mais je l'ai copi&#233; dans Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) j'ai donc remplac&#233; le sub Macro2() par SubWorksheet_...

Et en faisant ca, le code me fait scintiller ma feuille et le r&#233;sultat de la copie de cellule est bien long (comme si le programme tentait de parcourir toutes les cases avant de faire le travaille demand&#233;...). Le probl&#232;me vient peut &#234;tre du fait que j'ai fait ce copier coller dans la proc&#233;durte d'&#233;venement Worksheet_SelectionChange . Sinon, j'ai tent&#233; ce code, qui ne fonctionne pas :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)    If Target.Row 1 And Target.Column 1 Then
    Sheets("Feuil1").Range("Pr_2").xlFormulas = Sheets("Feuil1").Range("Pr_1").xlFormulas
    End If
End Sub

(Pr_1 et Pr_2 &#233;tant mes 2 cellules que je veux cloner, Feuil1 est le nom de la feuille, mais bon, il sera destin&#233; &#224; &#234;tre diff&#233;rent plus tard)

Je voudrais savoir o&#249; mettre le code que tu m'as pass&#233; plus haut (dans quel &#233;v&#233;nement, si besoin, il me semble que cette proc&#233;dure ne se lance pas toute seule...), si celui ci fonctionne sans les ralentissements que j'ai d&#233;cris plus haut (et dont l'origine vient peut-&#234;tre du fait que j'ai copi&#233; ce code dans la zone Worksheet_Change.

PS : c'est un message tr&#232;s semblable &#224; celui que je t'ai envoy&#233;, mais je me dis que ca pourra servir &#224; d'autres, donc, je vais laisser l'ensemble des messages sur le forum...

valtrase · Answer

Salut,
Pour cloner deux cellules:
Dans vba faut faire
Range("Macellule2").formula = Range("Macellule1").Formula ( si elles sont d&#233;ja nomm&#233;e)
sinon:
feuil1.range("A1").Formula = Feuil2.Range("A1").formula
Le mieux c'est de coller le code dans l'&#233;v&#232;nement Activate de ton classeur

Dans Excel faut faire
click sur Macellule2 on tappe = et apr&#233;s click sur Macellule1 (m&#234;me sur un autre feuille)

pour donner un nom:
1) S&#233;lection de la cellule ou de ta plage de cellule 
2) click a gauche de ta barre de formule zone nom  et l&#224; tu entres le nouveau nom
Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Re,
Quand je dis dans VBA et apr&#233;s dans Ecel c'est soit l'un soit l'autre comme tu veux tout d&#233;pant si tu veux le faire par programmation ou directement sur la feuille.
Un conseil si cela ne doit pas changer autant le faire directement sur la feuille c'est plus simple.

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

hectorticoli · Answer

Merci Valtrase, mais ta m&#233;thode dans la feuille ne me permet de lier les cases que dans un sens (la 2&#176; est identique &#224; la premi&#232;re, donc en modifiant la premi&#232;re, tu modifies la 2&#176;, mais en modifiant la 2&#176;, et bien... je ne modifie que la 2&#176;, et ca je savais faire :-p mais merci bien pour le code. Et sinon, le fait de mettre ce code dans "Activate" ne va pas seulement faire la copie au lancement de la feuille??

      Je crois donc que je vais utiliser le Worksheet_Change et faire un test sur Target, seulement, faire le test sur le nom, et bien il a pas l'air de vouloir, enfin, j'ai encore 2 3 id&#233;es &#224; tester avant de jeter l'&#233;ponge...

Merci &#224; tous pour votre aide

jpleroisse · Answer

Tant mieux si cela a pu t'aider.
Mais, la formule que je t'ai donn&#233;e il faut la mettre dans un module et le nom de la macro dans workSheet.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Macro1
End Sub

jpleroisse

valtrase · Answer

Re,
Pour ta premi&#232;re question c'est non car tu attribue une formule &#224; ta cellule elle va donc la garder. Mais bon ceci dis je ne pensais pas aus deux sens.

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Avoir deux cellules clones sous Excel

10 réponses

Discussions similaires