Bonjour tout le monde,
Comme je débutant en VBA, j'ai enregistré en auto une macro qui me supprime toute la cellule (valeur, couleur,bordure...). Elle est trop longue et il doit avoir des choses qu'on peut supprimer je suppose...Si quelqu'un peut m'alléger cette macro, je lui serai reconnaissant. Merci et bon dimanche à vous tous.
CDlt
Sub essai4()
Range("AA16").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Interior.ColorIndex = xlNone
End Sub
Comme je débutant en VBA, j'ai enregistré en auto une macro qui me supprime toute la cellule (valeur, couleur,bordure...). Elle est trop longue et il doit avoir des choses qu'on peut supprimer je suppose...Si quelqu'un peut m'alléger cette macro, je lui serai reconnaissant. Merci et bon dimanche à vous tous.
CDlt
Sub essai4()
Range("AA16").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Interior.ColorIndex = xlNone
End Sub
Dernière édition: