Simplifier une macro
Bonsoir
Je voudrais simplifier la macro ci-dessous. C'est la seule façon que j'ai trouvé pour effacer le contenu de certaines cellules.
Merci de votre aide
Range("D14:Q14").Select
Selection.ClearContents
Range("F15:Q15").Select
Selection.ClearContents
Range("F16:AI16").Select
Selection.ClearContents
Range("M17:R17").Select
Selection.ClearContents
Range("W17:AG17").Select
ActiveCell.FormulaR1C1 = ".................................."
Range("G18:P18").Select
Selection.ClearContents
Range("Y18:AH18").Select
Selection.ClearContents
Range("G19:P19").Select
ActiveCell.FormulaR1C1 = "..............................."
Range("D22:Q22").Select
Selection.ClearContents
Bonsoir,
Union(Range("D14:Q14"), Range("F15:Q15"), Range("F16:AI16"), Range("M17:R17"), _
Range("G18:P18"), Range("Y18:AH18"), Range("D22:Q22")).ClearContents
Union(Range("W17:AG17"), Range("G19:P19")).FormulaR1C1 = ".................................."
j’espère avoir répondu à tes attentes.
slts.
Salut,
Pour effacer plusieurs plages simultanément :
Range("D14:Q14,F15:Q15,F16:AI16,M17:R17, etc.").ClearContentsBonne fin de soirée.
Edt : Salut Oualid, désolé, j'avais pas vu ta réponse.
Bonjour
Ok ça marche!
Merci c'est sympa