VBA Ecriture simultanée dans deux feuilles Fermé

Question

Bonjour, 

Je voudrais pouvoir écrire dans les cellules de la colonne A de ma "Feuil1" et que ce que je viens d'écrire soit directement écrit dans la même case de ma "Feuil2", ceci pour éviter de réécrire deux fois la même chose. Est-ce possible ?

ThauTheme · Answer

Bonjour Hglp, bonjour le forum,

Essaie avec ce code placé dans le composant Feuil1(Feuil1) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Sheets("Feuil2").Range(Target.Address).Value = Target.Value
End Sub

ThauTheme · Answer

Re,

Je ne comprends pas. Le code que je t'ai proposé fait exactement ce que tu demandes. Il copie automatiquement ce que tu tapes dans la colonne A de l'onglet Feuil1, au même endroit dans l'onglet Feuil2.
En revanche, ta macro fait le contraire. Elle recopie de l'onglet Feuil2 à l'onglet Feuil1 mais pas automatiquement, il te faut la lancer...
Puis avec ton Exit For elle ne boucle que sur une seule donnée... et ne copie que la dernière valeur de la colonne A ?!...

Teste le code que je t'ai proposé ! Clique avec le bouton droit en bas sur l'onglet Feuil1 et choisis l'option Visualiser le code. Là tu colles le code. Ensuite tout ce que tu écris dans la colonne A de Feuil1 et recopié dans la colonne A de Feuil2.

ThauTheme · Answer

Re,

Le faire sur les deux ça doit faire une boucle sans fin !... Tu changes dans l'onglet Feuil1 => ça change dans l'onglet Feuil2. Donc, puisque ça change dans l'onglet Feuil2 => ça change aussi dans l'onglet Feuil1... En boucle. C'est ça qui doit faire planter. Je ne pense pas que ce soit une bonne idée.
Sinon, j'ai écrit le code avec Excel 2010 et il fonctionne très bien chez moi... Est-ce que ton second onglet se nomme bien Feuil2 ?

eriiic · Answer

Bonjour,

Ce que je ne comprend pas bien c'est pourquoi tu boucles sur plusieurs cellules ?
Tu écris dans plusieurs cellules à la fois ?
Sinon tu ne peux pas le faire dans 2 feuilles comme ça. Comme dit thautheme c'est une boucle sans fin.

Pour le faire, dans un module Standard :
Public noEvents As Boolean
Dans tes 2 feuilles (adaptant le nom) :
Private Sub Worksheet_Change(ByVal Target As Range)
    If noEvents Then Exit Sub
    noEvents = True
    If Target.Column = 1 Then Sheets("Feuil2").Range(Target.Address).Value = Target
    noEvents = False
End Sub
Et teste sans faire des arrangements à ta sauce avant.

eric

 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

VBA Ecriture simultanée dans deux feuilles

4 réponses

Discussions similaires