Bouton Click

1

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
Répondre
0

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 ?

Vince Posté le 31 mars 2015, 15:39
par Vince
  • Re le Forum Il y a erreur si l'on ajoute une plage au code exemple BK2:BK51 – Mytå 31 mars 2015, 21:48
2

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

Mytå Posté le 31 mars 2015, 19:49
par Mytå
  • Merci beaucoup çà marche – mic6259 2 avril 2015, 07:36

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :