Supprimer colonnes avec conditions

bonjour

j'essaye de supprimer les colonnes vides pour avoir une résultat comme la feuille 2

j'ai écris ce code mais je pense que j'ai du probléme avec les nombres dans le code

merci pour votre aide à corriger le code

cordialement

Marcos

Sub supp()

Application.ScreenUpdating = False

For i = 300 To 5 Step -1

Next i

dercolonne_Analyse_masse = Cells(4, Columns.Count).End(xlToLeft).Column

derligne_Analyse_masse = Range("A" & Rows.Count).End(xlUp).Row

test = False

For i = dercolonne_Analyse_masse To 7 Step -1

For Z = 3 To derligne_Analyse_masse

If Cells(Z, i) <> "" Then test = True

Next Z

If test = False Then Columns(i).Delete

test = False

Next i

dercolonne_Analyse_masse = Cells(7, Columns.Count).End(xlToLeft).Column

Range("7:" & dercolonne_Analyse_masse).EntireColumn.AutoFit

Application.ScreenUpdating = True

End Sub

Bonjour

Tes deux feuilles sont strictement identiques.

Que veux-tu faire exactement?

Cordialement

Salut msamirsa,

Bonsoir Amadeus,

Deux erreurs :

• tu calcules le nombre de lignes à partir de la colonne [A] qui est vide donc = 1 ;
• tu testes si une colonne est vide à partir de la ligne 3 qui n'est jamais vide.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'

Application.ScreenUpdating = False

'

iCol = Cells(4, Columns.Count).End(xlToLeft).Column

iRow = Range("B" & Rows.Count).End(xlUp).Row

'

For i = iCol To 7 Step -1

iOK = 0

For Z = 5 To iRow

If Cells(Z, i) <> "" Then

iOK = 1

Exit For

End If

Next Z

If iOK = 0 Then Columns(i).Delete shift:=xlToLeft

Next i

'

iCol = Cells(7, Columns.Count).End(xlToLeft).Column

sCol = Split(Columns(iCol).Address(ColumnAbsolute:=False), ":")(1)

Columns("G:" & sCol).AutoFit

Application.ScreenUpdating = True

'

End Sub

A+

bonsoir curulis57

Ahhhhh j'ai compris je vois maintenant , je te remercie vivement vraiment , c'est trés gentil curlius , je comprend mieux maintenant