Comment conserver la mise en forme des cellules tout en référençant d'autres cellules de feuille?

En règle générale, la cellule ne conserve la valeur de la cellule que lorsqu'elle fait référence à une autre cellule, mais dans cet article, j'introduis un code VBA pour conserver les valeurs de cellule et la mise en forme tout en référençant une autre cellule, et les valeurs de cellule et la mise en forme changent à mesure que la cellule de référence change comme ci-dessous capture d'écran affichée.

Conservez le formatage des cellules tout en référençant une autre cellule avec VBA

Conservez le formatage des cellules tout en référençant une autre cellule avec VBA

Pour gérer ce travail, il vous suffit d'exécuter le code ci-dessous.

1. Activez le classeur que vous utilisez, appuyez sur Alt + F11 clé pour activer Microsoft Visual Basic pour Application et double-cliquez sur le nom de la feuille dans laquelle vous placerez la cellule de référence Projet-VBAProjet volet pour afficher un script vide. Dans ce cas, je veux faire référence à la cellule A1 dans le Sheet1. Voir la capture d'écran:

2. Collez le code ci-dessous dans le script et dans le code VBA, spécifiez les références de cellule dont vous avez besoin.

VBA: conserver la mise en forme et les valeurs tout en référençant une autre cellule

Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then              'Range("A1") the reference cell
        Target.Copy
        ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
                    'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
        Application.CutCopyMode = False
        Target.Select
    End If
    Application.EnableEvents = True
End Sub

Notes: A1 est la cellule de référence, B1 in Fiche 2 est la cellule que vous souhaitez lier à la cellule de référence et conserver les valeurs et la mise en forme avec A1 dans Shee1.

Ensuite, lorsque vous modifiez les valeurs ou la mise en forme dans la cellule A1 dans Sheet1, la cellule B1 dans Sheet2 sera modifiée en cliquant deux fois sur la cellule de référence.