Bouton Click

Bonjour

J'ai le code pour un bouton ci-dessous, mais je n'arrive pas à aller au-dessus de 1500 c'est à dire au-delà de BK2:BK51.

Ça me fait erreur d’exécution 1004 la méthode 'Range' de l'objet ' _Worksheet' a échoué

Peut on allez plus loin et comment? Merci le forum.

Private Sub CommandButton1_Click()
    Range("C2:C51,E2:E51,g2:g51,i2:i51,k2:k51,m2:m51,o2:o51,q2:q51,s2:s51,u2:u51,w2:w51,y2:y51,AA2:AA51,AC2:AC51,AE2:AE51,AG2:AG51,AI2:AI51,AK2:AK51,AM2:AM51,AO2:AO51,AO2:AO51,AQ2:AQ51,AS2:AS51,AU2:AU51,AW2:AW51,AY2:AY51,BA2:BA51,BC2:BC51,BE2:BE51,BG2:BG51,BI2:BI51").Select
    Selection.ClearContents
End Sub

Posté le 31 mars 2015, 10:58
par mic6259

signaler

Répondre

Ajouter un commentaire

Moi je n'ai pas cette erreur quand j'exécute cette macro (dans un module, et pas sur le clic d'un bouton). J'ai testé sous excel 2007 / windows XP 32bit. Quelle est ta version d'excel ?

Posté le 31 mars 2015, 15:39
par Vince

signaler

Re le Forum Il y a erreur si l'on ajoute une plage au code exemple BK2:BK51 – Mytå 31 mars 2015, 21:48

signaler

Ajouter un commentaire

Salut le Forum

Essaye en fractionnant tes plages

Private Sub CommandButton1_Click()
Range("C2:C51,E2:E51,G2:G51,I2:I51,K2:K51,M2:M51,O2:O51,Q2:Q51,S2:S51,U2:U51,W2:W51,Y2:Y51").ClearContents
Range("AA2:AA51,AC2:AC51,AE2:AE51,AG2:AG51,AI2:AI51,AK2:AK51,AM2:AM51,AO2:AO51,AO2:AO51,AQ2:AQ51").ClearContents
Range("AS2:AS51,AU2:AU51,AW2:AW51,AY2:AY51,BA2:BA51,BC2:BC51,BE2:BE51,BG2:BG51,BI2:BI51,BK2:BK51").ClearContents
End Sub

Myta

Posté le 31 mars 2015, 19:49
par Mytå

signaler

Merci beaucoup çà marche – mic6259 2 avril 2015, 07:36

signaler

Ajouter un commentaire

Bouton Click

Questions similaires

Erreur

Signaler un problème