Bonjour,
Dans une de mes macros, j'utilise la fonction ci-dessous pour supprimer des lignes :
With Intersect(ActiveSheet.[A:F], Selection.EntireRow)
.EntireRow.Delete xlShiftUp
End With
Dans un autre fichier, plutôt que supprimer les lignes, je voudrais seulement effacer une partie de la ligne. Pour ce faire, j'ai pensé que la modification ci-dessous fonctionnerait mais ce n'est pas le cas :
With Intersect(ActiveSheet.[A:F], Selection.EntireRow)
.EntireRow.ClearContents xlShiftUp
End With
Par avance merci
Dans une de mes macros, j'utilise la fonction ci-dessous pour supprimer des lignes :
With Intersect(ActiveSheet.[A:F], Selection.EntireRow)
.EntireRow.Delete xlShiftUp
End With
Dans un autre fichier, plutôt que supprimer les lignes, je voudrais seulement effacer une partie de la ligne. Pour ce faire, j'ai pensé que la modification ci-dessous fonctionnerait mais ce n'est pas le cas :
With Intersect(ActiveSheet.[A:F], Selection.EntireRow)
.EntireRow.ClearContents xlShiftUp
End With
Par avance merci
Dernière édition: