Effacer des cellules

[apdf]

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?

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 Sub

Je vous remercie de votre aide.

Cordialement

Max

 

[Pierrot93]

Re : Effacer des cellules

Bonjour,

il y a une limite du nombre de caractères possibles dans un "range", essaye comme suit :

  Union(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"), _
    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")).ClearContents

bonne journée
@+

 

[apdf]

Re : Effacer des cellules

Bonjour Pierrot,

Je te remercie sa marche Nickel....

Bonne journée

@+
Max