Mise en page feuille de production

bonjour

J'ai encore un sujet pour des experts pour une mise en page sue une feuille de production, je voudrais supprimer les colonnes de 27 à 32 puis ensuite supprimer les lignes si les cellules de L9c22 à L9c26 vides.

Pouvez-vous m'aider?

Merci

Bonjour,

Pour la première partie utiliser

Sub test()
For i = 32 To 27 Step -1
Columns(i).Delete
Next
End Sub

Pour la deuxième partie préciser la question.

A+

merci pour ton aide

le fait de supprimer les colonnes de 27 à32, les lignes ou les cellules sont vides sur la colonne 22 à26( "BC1") doivent êtres supprimées.

Bonjour,

Une possibilité :

Sub Galopin()
Dim i%, k%, kk%, Y As Boolean
Application.ScreenUpdating = False
For i = 32 To 27 Step -1
   Columns(i).Delete
Next
i = Cells(65535, 9).End(xlUp).Row
For k = i To 9 Step -1
For kk = 22 To 26
   Y = Cells(k, kk) = ""
   If Not Y Then Exit For
Next
   If Y Then Rows(k).Delete
Next
End Sub

Nota :

Je me suis basé sur la colonne 9 pour déterminer la dernière ligne du tableau.

Cela suppose que cette colonne est toujours non vide.

A+