re
moi j'ai mis "A1" pour que des que le else passe c'est la ligne 1 qui sera clearformat
comme il est impossible d'ajouter une custompropertie vide
tu te doute bien que tester si elle est "<>"" est aussi impossible
dans mon exemple je fait
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "Feuil1" Then
' Depart
ActiveSheet.Unprotect Password:=""
Application.ScreenUpdating = False
If ActiveSheet.CustomProperties.Count = 0 Then
ActiveSheet.CustomProperties.Add Name:="oldaddress", Value:="A1"
Else
With Range(ActiveSheet.CustomProperties(1).Value): .ClearFormats: .RowHeight = 15: End With
ActiveSheet.CustomProperties(1).Value = Target.Address(0, 0)
Cells(3, 2).Resize(, 24).Copy
With Cells(Target.Row, 2).Resize(, 24): .RowHeight = 40: .PasteSpecial Paste:=xlPasteFormats: End With
End If
Application.CutCopyMode = False
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Application.ScreenUpdating = True
End If
End Sub
si je met
"init comme toi quand la ligne verte sera déclenchée çà va faire quoi d’après toi ??????
la range ("init") n'existe pas BUG!!!!
si ligne 1 utilisée et non concernée par le clear format mettre a la place .value=cells(rows.count,columns.count).address(0,0)
ca te mettra la "A104576"( la derniere ) c'est rare d'utiliser tout la grille
voili voilou