sélection de cellules dans macro

[bpol]

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

 

[Victor21]

Re : sélection de cellules dans macro

Bonjour, bpol

Sélectionne toutes ces cellules, et attribue leur un nom (RAZ par exemple)
Ensuite, tu demande à ta macro d'effacer RAZ.

 

[Compte Supprimé 979]

Re : sélection de cellules dans macro

Salut bpol,

Tu peux utliser également une boucle

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+

 

[bpol]

Re : sélection de cellules dans macro

Merci Bruno cela fonctionne.

 

[Compte Supprimé 979]

Re : sélection de cellules dans macro

Re,

Range("LeNom").Select

A+