Discussion :

[k-eisti]

bonjour a tous ,

je veux supprimer les colonnes masquées d'une feuille,


existe une macro qui permet ce la ??
merci de votre aide

[ferronimus]

tu utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

columns("A").Delete

qu'elle soitvisible ou pas sa marche

[jfontaine]

En partant sur l'hypothèse que tu veux executer ta macro sur 50 colonnes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim i As Byte
 
For i = 1 To 50
 
    If Me.Columns(1).Hidden = True Then
        Me.Columns.Delete
        i = i - 1 'replace le curseur 1 cran en arrière pour tester la colonne qui a remplacée la colonne supprimée
    End If
 
Next i

[k-eisti]

Merci jfontaine , j'ai adapté la macro a mon exemple
voila ma macro peut être sa peut aider les autres

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
For i = 1 To NbreColonne
        If Worksheets(NomFeuille).Columns(i).EntireColumn.Hidden = True Then
            Worksheets(NomFeuille).Columns(i).Delete
            i = i - 1
        End If
    Next i

A+

[wilfried_42]

Bonjour à tous

une petite correction, ca marche avec les colonnes et les lignes
Si sur 200 colonnes, tu en à 150 de cachées, tu vas boucler 350 fois
Perceque nombre_colonne restera à 200

Pour les colonnes le nombre n'etant pas si important le temps de travail n'est pas si rallongé, mais sur 10000 lignes la c'est different.

Voici ta boucle modifiée en la faisant partir de la fin vers le debut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = NbreColonne to 1 step -1 ' pour compter à rebour
        If Sheets(NomFeuille).Columns(i).Hidden = True Then sheets(NomFeuille).Columns(i).Delete
Next i

je tiens à precisé que les colonnes ou lignes doivent etre masquée, les filtres automatiques ou elaborés, meme s'ils masquent les lignes, n'agissent en aucun cassur la propriété Hidden

Bonne journée