Array pour supprimer plusieurs colonnes dans une boucle

Bonjour le forum,

Je dois supprimer des colonnes dans une boucle,

le souci est que la suppression d'une colonne fait passer un rang si je le fais au fur et à mesure, et si je fais j=j-1 aprés la suppression d'une colonne, il mouline en boucle

Si je stocke les nos de colonnes dans un array, est-ce que çà résoud mon problème ?

    'effacer les colonnes vides avec un nom
        For j = 2 To dercol
            For i = 3 To drl
                If Cells(i, j).Value = "" Then
                    cpt = cpt + 1
                End If
            Next i
                  '  MsgBox j & " " & cpt & " " & drl - 2
                If cpt = drl - 2 Then
                    Range(Cells(1, j), Cells(33, j)).Select
                    Selection.Delete Shift:=xlToLeft
                End If
                    cpt = 0
        Next j

Le code de cette macro se trouve fin de module 1, et çà concerne le bouton < dans la page mois.

j'ai tenté le code avec array dans le module 2, qui concerne le bouton >, mais çà bug.

Merci

Bonjour Fronck

Etonné que vous ne sachiez pas ça

Pour tout ce qui est suppression de lignes et de colonnes, on commence pas la fin pour arriver au début

  'effacer les colonnes vides avec un nom
  For j = dercol To 2 Step -1
    For i = 3 To drl
      If Cells(i, j).Value = "" Then
        cpt = cpt + 1
      End If
    Next i
    '  MsgBox j & " " & cpt & " " & drl - 2
    If cpt = drl - 2 Then
      Range(Cells(1, j), Cells(33, j)).Delete Shift:=xlToLeft
    End If
    cpt = 0
  Next j

Utiliser un array ne changera rien

A+

Bonjour Bruno,

Bah oui, suis-je bête, tout simplement.

Super.

Merci