Select and delete entire columns

Hi everybody,

I have a range activated

Code:

---

Range(strPlageSélectionnée).Activate

---

, and i'm looking for selecting their entire columns in order to delete them. I know that to select a column there is a specific formula

Code:

---

ActiveCell.EntireColumn.Select

---

and to delete one column it's

Code:

---

ActiveCell.EntireColumn.Delete

---

But how can i select and delete many columns at once. Is there any specific formula ?

Thanks for your help
Attachment 15493Attachment 15494Attachment 15495Attachment 15496

Maybe

Code:

---

Selection.EntireColumn.Delete

---

Hi Paul_Hossler,
I used

Code:

---

Range(strPlageSélectionnée).EntireColumn.Delete

---

and it works. thanks for your help

Hello Ramo964516,

Alternatively, if you want to delete contiguous ranges based on a single selected cell, such as G1 for example, you can do this -

Code:

---

Range(strPlageSélectionnée).Resize(, 2).EntireColumn.Delete  ' change 2 to any number of contiguous columns

---

Hope that helps!