Bonjour à tous,
J'ai un tableau avec des mises en formes conditionnelles dans certaines colonnes. J'utilse une macro pour inserer une ligne en début de mon tableau.Malheureusement lorsque j'insere une ligne , mes mises en formes conditionnelles ne sont pas copiées. Je vous met le code ci-dessous pour inserer une ligne dans mon tableau :
Sub AjouterLigneBROSS()
'
' AjouterLigne Macro
'
'
Dim indice
With Sheets("BROS")
.ListObjects(1).ListRows.Add 1 '....ajoute une ligne en début de tableau (sans le 1, c'est en fin)
'indice = IIf(.ListObjects(1).ListRows.Count = 0, 1, .ListObjects(1).ListRows.Count)
indice = Application.Max(.ListObjects(1).ListColumns(1).DataBodyRange) + 1
.ListObjects(1).HeaderRowRange.Cells(1).Offset(1, 0) = indice
End With
'
End Sub
Merci à vous
Cordialement