Modification code

[papy 73 ans]

Bonjour à tous,
J'essaie sans succès de copier [BaseFormat] et de coller [Base] le format si modification dans colonne A de la feuille Base [Champs nommés].
Je voudrais également supprimer la ligne dont un nom serait effacée (colonne A).
Espérant m'être bien exprimé et en vous remerciant.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("A:A")     'Si modification colonne A
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
        Is Nothing Then
    End If
    [BaseFormat].Copy: [Base].PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

 

[youky(BJ)]

Salut Papy,
Je verrais bien comme ceci
Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 1 Then Exit Sub ' si cellule ailleurs que colonne 1 on quitte
'on copy A:A en A1 de Base
[BaseFormat!A:A].Copy: [Base!A1].PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End Sub

 

[papy 73 ans]

Bonsoir youky,
Je te remercie pour ce code et désolé de te répondre si tardivement, séjour hosto oblige.