Copie automatique sur d'autres feuilles

[funditch]

Bonjour

Je cherche a creer une copie automatique de certaines cellules sur d'autres feuilles du meme classeur

EX: feuilles1 les colonnes A B C devrait se retrouver sur les feuilles 2 et 3 dans les colonnes A B C
Si je modifie une des lignes sur la feuille1 cette modification devrait se faire automatiquement sur les 2 autres feuilles
J'espère avoir été asser clair dans ma questions

Merci d'avance pour votre aide

 

[kjin]

Re : Copie automatique sur d'autres feuilles

Bonsoir, et bienvenu sur Xld,
Le plus simple est de faire un Copier/Coller avec liaison de ta plage de cellules de la feuille 1 dans les feuilles 2 et 3
A+
kjin

 

[job75]

Re : Copie automatique sur d'autres feuilles

Bonjour à tous,

Le Copier/Coller avec liaison alourdit beaucoup puisqu'il y aura des formules dans toutes les cellules. Par ailleurs, surtout, ne pas le faire sur toute la feuille (cela prendrait un temps fou, il faudrait arrêter Excel par Ctrl+Maj+Suppr).

Copier donc (sans liaison) la plage A:C de la Feuil1 dans les Feuil2 et Feuil3.

Avant de faire une modif en Feuil1 plage A:C, sélectionner les 3 feuilles ensemble (touche Ctrl et cliquer sur les onglets) : la modif se répercutera sur les 2 autres feuilles.

On peut faire cela automatiquement avec les 2 macros suivantes dans le code de la Feuil1 (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_Activate() [COLOR="Red"]'quand on active la feuille[/COLOR]
If Intersect(Selection, Range("A:C")) Is Nothing Then Exit Sub
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) [COLOR="Red"]'quand on change de sélection[/COLOR]
If Intersect(Target, Range("A:C")) Is Nothing Then
ActiveSheet.Select
Else
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
End If
End Sub

On peut si on le désire mettre ces macros dans les 3 feuilles : une modif sur l'une se répercutera sur les 2 autres.

A+

Edit : si on on s'intéresse uniquement au contenu des cellules, la macro suivante est bien sûr plus simple :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:C")) Is Nothing Then Exit Sub
Range("A:C").Copy Sheets("Feuil2").Range("A1")
Range("A:C").Copy Sheets("Feuil3").Range("A1")
End Sub

Les modifications de format ne seront pas prises en compte tant qu'aucune valeur n'est modifiée.