Re : Problème VBA CLear Content
Bonjour Job 75,
Merci de ta patience, elle est très appréciée
Voilà ce que j'ai mis comme code dans ma feuille Excel 1 qui s'appelle Continuum (Pour ton info mes colonnes ont changé, la date est en AC et la case à effacer en A4)
Sub Effacer()
On Error Resume Next
With [AC4:AC1200].SpecialCells(xlCellTypeConstants, 1)
Intersect(.EntireRow, [A4:A1200]) = ""
End With
With [AC4:AC1200].SpecialCells(xlCellTypeFormulas, 1)
Intersect(.EntireRow, [A4:A1200]) = ""
Private Sub WorkSheet_Change(ByVal Target As Range)
On Error Resume Next
With [AC4:AC1200].SpecialCells(xlCellTypeConstants, 1)
If Not Intersect(Target, .Cells) Is Nothing Then Intersect(.EntireRow, [A:A]) = ""
End With
End Sub
Et voilà ce que j'ai mis comme code dans Modules/ Modules 1
Sub Effacer()
On Error Resume Next
With [AC4:AC1200].SpecialCells(xlCellTypeConstants, 1)
Intersect(.EntireRow, [A4:A1200]) = ""
End With
With [AC4:AC1200].SpecialCells(xlCellTypeFormulas, 1)
Intersect(.EntireRow, [A4:A1200]) = ""
Private Sub WorkSheet_Change(ByVal Target As Range)
On Error Resume Next
With [AC4:AC1200].SpecialCells(xlCellTypeConstants, 1)
If Not Intersect(Target, .Cells) Is Nothing Then Intersect(.EntireRow, [A:A]) = ""
End With
End Sub
PS : je suis à l'aise pour faire des macros simples mais pas en VBA.
En fait je ne suis pas sure que je copie les codes au bon endroit et de plus, lorsqu'il y a déjà un code dans une feuille comment en ajoute t-on un ? Juste en dessous ou à l'intérieur du précédent.
Merci beaucoup
Chrystou