En VBA, egalité de cellule avec mise a jour automatique

[francois01]

Bonjour,

Etant novice en VBA, d'après tous les messages postés, j'ai réussi à faire ce que je souhaitais.
Cependant, je n'arrive pas à resoudre le pb suivant :

- Quel est la ligne de code à mettre pour qu'une cellule d'une feuille X soit égale la cellule Y ?

J'ai essayé ça :
Sheets("Carnet de terrain").Range("C71").Copy Sheets("Chiffrage").Range("C97")

Le probleme est que quand je lance la macro, cela fonctionne; mais si par la suite je viens modifier la valeur dans la feuille "Carnet de terrain", la cellule C97 dans chiffrage ne se met pas à jour automatiquement.

En fait je pense qu'il faudrait un truc du style :
Sheets("Carnet de terrain").Range("C71") = Sheets("Chiffrage").Range("C97") mais ca ne fonctionne pas ?

Qq1 pourrait-il m'aider svp ?

 

[Fred0o]

Re : En VBA, egalité de cellule avec mise a jour automatique

Bonjour François01 et bienvenue sur le forum.

Apparement, la bonne syntaxe est :

Sheets("Carnet de terrain").Range("C71") = Sheets("Chiffrage").Range("C97")

Mais je ne sais pas pourquoi cela ne merche pas. Le mieux serait de poster un fichier exemple.

A+

 

[francois01]

Re : En VBA, egalité de cellule avec mise a jour automatique

je comprends vraiment pas ...

si qq 1 peut m'aider svp !

 

[Fred0o]

Re : En VBA, egalité de cellule avec mise a jour automatique

Re-bonjour,

T'as pas bien dû lire :

Le mieux serait de poster un fichier exemple.

En attendant le fichier...

A+

 

[roro69]

Re : En VBA, egalité de cellule avec mise a jour automatique

Bonsoir
pourquoi pas tout simplement dans la cellule de la feuille chiffrage ceci

='Carnet de terrain'!C97

Sino les deux codes marchent ;après tout dépend comment tu appelles la procédure........
A++

 

[francois01]

Re : En VBA, egalité de cellule avec mise a jour automatique

re fredo0, j'avais bien posté un fichier exemple mais en modifiant le msg de base (s'appele essai.xls) et pour roro69, je ne peux pas inscrire dans la cellule ce code car je veux l'action de copier la cellule se fasse en macro car avant il y a un copier/coller en macro egalement. ceci m'effacerait donc la formule entrée precedement.

 

[roro69]

Re : En VBA, egalité de cellule avec mise a jour automatique

RE

avant il y a un copier/coller en macro egalement. ceci m'effacerait donc la formule entrée precedement.

D'accord pas de problème mais dans ton fichier il n'ya aucune procédure à ce sujet.
Néanmoins les deux codes marchent

Sheets("Carnet de terrain").Range("C71").Copy Sheets("Chiffrage").Range("C97")
______________________________________________________________________
Sheets("Carnet de terrain").Range("C71") = Sheets("Chiffrage").Range("C97")

Après reste à savoir comment tu appeles ta procédure et quelle est son déroulement
A++

 

[Fred0o]

Re : En VBA, egalité de cellule avec mise a jour automatique

Re-bonsoir

J'ai bien vu le fichier exemple mais ton code il est où ? En plus tu as une valeur sur la feuille "Carnet de Terrain" et pas sur "Chiffrage". Que doit-on faire exactement ?

A+

 

[Staple1600]

Re : En VBA, egalité de cellule avec mise a jour automatique

Bonsoir tous

Pour infos, un fichier xlsx ne contiendra jamais de macros.
Il faut l'enregistrer soit en xlsm ou en xls.

 

[roro69]

Re : En VBA, egalité de cellule avec mise a jour automatique

Bonsoir staple
Je l'avais déjà enregistrer sous xls mais y a vraiment pas de code dedans.
A++

 

[francois01]

Re : En VBA, egalité de cellule avec mise a jour automatique

Voila le fichier original avec ma macro simplifiée.

ce sera peut etre plus simple car je lis qu'il n'ya pas de code, je comprends pas ???

Lancer la macro Insertion2 et aller voir à la fin du code les explications que j'ai mis.

Merci

 

[Staple1600]

Re : En VBA, egalité de cellule avec mise a jour automatique

Re

francois01
Utilises cette syntaxe

ActiveCell.FormulaLocal = "='Carnet de terrain'!C51"

roro69:
C'est à francois01 que mon précédent message s'adressait (puisque la pj dans son message 1 est un xlsx)

Problème réglé avec cette nouvelle pj en xls 😉

 

[Fred0o]

Re : En VBA, egalité de cellule avec mise a jour automatique

Re-bonsoir à tous,

Si j'ai bien compris, voici le code à appliquer :

ActiveCell.Formula = "='Carnet de terrain'!C51"

A+

Edit : Je n'ai pas rafraîchi assez tôt, Stapple.

 

[Staple1600]

Re : En VBA, egalité de cellule avec mise a jour automatique

Re

Pas grave, FredOo

Formula ou FormulaLocal cela marche dans les deux cas 😉

En espérant qu'on a bien compris ce qu'il fallait comprendre 😉

GAG: ca marche même comme cela

Sub lol()
Dim Pastis$
Pastis = "51"
ActiveCell.Formula = "='Carnet de terrain'!C" & Pastis
End Sub

 

[francois01]

Re : En VBA, egalité de cellule avec mise a jour automatique

staple et fred MERCI BEAUCOUP !

C'est exactement ce que je cherchais à faire. Je pensais bien que la syntaxe n'etait paas bien compliquée, mais j'etais incapable d'y arriver seul !

Meerci encore !