Sub Macro1()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub
Re : Supprimer tout sauf formules
Bonjour
Oui c'est possible
Edition/Atteindre/Constantes/
La tu appuie sur la touche Supprimer
Voici l'équivalent de cette manip en VBA
Code:Sub Macro1() ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23).ClearContents End Sub
Sub test()
nettoie 1
End Sub
Private Sub nettoie(Colonne As Long)
On Error Resume Next
Columns(Colonne).SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub