Bonjour,
Voila je suis confronter a un problème que je n'arrive pas a résoudre.
J'ai environ 150 cellules a effacer et j'ai mis ce code ci dessous et sa ne marche pas si j'assemble les deux Ranges ensemble j'ai un message d'erreur?
Je vous remercie de votre aide.
Cordialement
Max
Voila je suis confronter a un problème que je n'arrive pas a résoudre.
J'ai environ 150 cellules a effacer et j'ai mis ce code ci dessous et sa ne marche pas si j'assemble les deux Ranges ensemble j'ai un message d'erreur?
Code:
Private Sub CommandButton1_Click()
Range("E1,J1,C3:J4,E18,J18,C20:J21,E35,J35,C37:J38,E52,J52,C54:J55,E69,J69,C71:J72,E86,J86,C88:J89,E103,J103,C105:J106,E120,J120,C122:J123,E137,J137,C139:J140,E154,J154,C156:J157,E171,J171,C173:J174,E188,J188,C190:J191,E205,J205,C207:J208,E222,J222,C224:J225").Select
Range("E239,J239,C241:J242,E256,J256,C258:J259,E273,J273,C275:J276,E290,J290,C292:J293,E307,J307,C309:J310,E324,J324,C326:J327,E341,J341,C343:J344,E358,J358,C360:J361,E375,J375,C377:J378,E392,J392,C394:J395,E409,J409,C411:J412").Select
Selection.ClearContents
Range("L2").Select
End SubJe vous remercie de votre aide.
Cordialement
Max