Cloner une feuille Excel

Fermé
st.tex Messages postés 1 Date d'inscription mercredi 28 octobre 2015 Statut Membre Dernière intervention 28 octobre 2015 - 28 oct. 2015 à 15:05
via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 - 29 oct. 2015 à 00:42
Bonjour à tous.

Je cherche à cloner une feuille Excel de façon à ce que si je modifie une cellule sur l'une, la modification soit reportée automatiquement dans la cellule de l'autre feuille. Est-ce possible sans avoir à paramétrer les cellules une à une?
D'avance merci
A voir également:

1 réponse

via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 2 741
29 oct. 2015 à 00:42
Bonsoir st.tex

Possible par macro

1) S'il s'agit juste de reporter la modification de la valeur de la cellule (attention certains formats ne seront pas reportés tels quels : 06:00:00 donnera 0,25, 12% donnera 0,12 ..)
Private Sub Worksheet_Change(ByVal Target As Range)
'Remplacer Feuil2 par le nom de la feuille de recopie s'il est différent
Sheets("Feuil2").Cells(Target.Row, Target.Column) = Target.Value
End Sub


2) S'il s'agit de reporter la cellule à l'identique (valeur, format, bordure, remplissage ..)
Private Sub Worksheet_Change(ByVal Target As Range)
'Remplacer Feuil1 et Feuil2 par les noms des feuilles de copie et de recopie s'ils sont différents

'ligne et colonne de la cellule modifiée
x = Target.Row
y = Target.Column
'reselectionne la cellule et la copie
ActiveSheet.Cells(x, y).Select
Selection.Copy
' desactive le raffraichissement écran (evite de voir passage d'une feuille à l'autre)
Application.ScreenUpdating = False
'selectionne la feuille de recopie, la cellule puis colle
Sheets("Feuil2").Select
Sheets("Feuil2").Cells(x, y).Select
ActiveSheet.Paste
' revient sur la 1ere feuille
Sheets("Feuil1").Select
'réactive le rafraichissement écran
Application.ScreenUpdating = True
End Sub


L'une ou l'autre macro est à placer dans le worksheet de la feuille source :
ALT + F11 pour ouvrir éditeur VBA - double clic sur la feuille source dans l'arborescence à gauche - copier coller la macro dans la page blanche et fermer l'éditeur

Cdlmnt
Via
0