Selectionner les colonnes masquées et les supprimées

Salut Marc,

Essaie ceci (sans sélection) :

Sub SupprimerColonnes()
Dim i As Integer
For i = 255 To 1 Step -1
If Cells(1, i).EntireColumn.Hidden Then _
Cells(1, i).EntireColumn.Delete
Next
End Sub


A+
Nicolas B.

Bonjour,

Comment faire pour sélectionner toutes les colonnes masquées d'une feuille
et les supprimées en vb.

Merci

Bonjour,

Merci cela fonctionne mais est-il possible aussi de selectionner toutes les
colonnes masquées puis de les supprimer en une seule fois?

@+
--
Marc

Salut Marc,

Essaie ceci (sans sélection) :

Sub SupprimerColonnes()
Dim i As Integer
For i = 255 To 1 Step -1
If Cells(1, i).EntireColumn.Hidden Then _
Cells(1, i).EntireColumn.Delete
Next
End Sub


A+
Nicolas B.

Bonjour,

Comment faire pour sélectionner toutes les colonnes masquées d'une feuille
et les supprimées en vb.

Merci

Comme ceci ?

Sub SupprimerColonnes()
Dim i As Integer
Dim rg As Range
For i = 1 To 255
If Cells(1, i).EntireColumn.Hidden Then
If rg Is Nothing Then
Set rg = Columns(i)
Else
Set rg = Union(rg, Columns(i))
End If
End If
Next
rg.Delete
End Sub


A+
Nicolas B.

Bonjour,

Merci cela fonctionne mais est-il possible aussi de selectionner toutes les
colonnes masquées puis de les supprimer en une seule fois?

@+

Par exemple!

Merci c'est parfait

@+
--
Marc

Comme ceci ?

Sub SupprimerColonnes()
Dim i As Integer
Dim rg As Range
For i = 1 To 255
If Cells(1, i).EntireColumn.Hidden Then
If rg Is Nothing Then
Set rg = Columns(i)
Else
Set rg = Union(rg, Columns(i))
End If
End If
Next
rg.Delete
End Sub


A+
Nicolas B.

Bonjour,

Merci cela fonctionne mais est-il possible aussi de selectionner toutes les
colonnes masquées puis de les supprimer en une seule fois?

@+