papy 73 ans
XLDnaute Occasionnel
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.
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.
VB:
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
Dernière édition: