sélection de cellules dans macro

bpol

XLDnaute Impliqué
Re-bonjour le forum,

j'ai une grande quantité de cellules à sélectionner dans une macro afin de les effacer.

elles ne sont pas jointes

comment puis faire car lorsque je fais le traditionnel


Range("C6:AR6,C23 :AR23,C25 :AR25,C27 :AR27,C29 :AR29,C31 :AR31,C33 :AR33,C35 :AR35,C37:AR37,C39:AR39,C41:AR41,C43:AR43,C45:AR45,C47:AR47,C49:AR49,C51:AR51,C53:AR53,C55:AR55,C57:AR57,C59:AR59C61:AR61,C63:AR63,C65:AR65,C67:AR67,C69:AR69,C71:AR71,C73:AR73,C75:AR75,C77:AR77,C79:AR79,C81:AR81,C83:AR83,C85:AR85,C87:AR87,C89:AR89,C91:AR91,C93:AR93,C95:AR95,C97:AR97,C99:AR99,C101:AR101,C103:AR103,C105:AR105,C107:AR107,C109:AR109,C111:AR111,C113:AR113,C115:AR115").Select cela bug


Merci
Bpol
 
C

Compte Supprimé 979

Guest
Re : sélection de cellules dans macro

Salut bpol,

Tu peux utliser également une boucle
Code:
Sub EffaceCel()
  Dim Lig As Long
  Range("C6:AR6").ClearContents
  For Lig = 23 To 115 Step 2
    Range("C" & Lig & ":AR" & Lig).ClearContents
  Next Lig
End Sub

A+
 

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof