Cloner une feuille Excel
st.tex
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14512 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Cloner une feuille Excel
- Cloner disque dur - Guide
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Déplacer une colonne excel - Guide
- Word et excel gratuit - Guide
1 réponse
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 ..)
2) S'il s'agit de reporter la cellule à l'identique (valeur, format, bordure, remplissage ..)
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
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