Re : Suppression de colonnes automatiques
Merci pierrot93,
C'est exactement ce que je voulais, mais j'ai encore un petit problème, lorsque je lance la macro la feuille de calcul clignote pendant un certain temps et je vois les lignes et les colonnes se supprimer.
Y a t'il un moyen de supprimer ce bug et gagner du temps.
Voilà le code complet avec une extention pour amener le total des colonnes à la dernière ligne.
'Supprimer ligne vides et Colonnes
Sheets("2").Select
Dim x As Integer
With Sheets("2")
For x = .Range("A503").End(xlUp).Row To 1 Step -1
If .Range("A" & x) = 0 Then
Rows(x).Delete
Else
Exit For
End If
Next
End With
Dim c As Integer
For c = 94 To 1 Step -1
If Cells(3, c).Value = 0 Then Cells(3, c).EntireColumn.Delete
Next c
' Total_ligne_503
Sheets("2").Select
With Sheets("2")
Rows("503:503").Cut
Cells.Find(What:="End", After:=Range("A3"), LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False).Activate
ActiveSheet.Paste
End With
Voilà, j'espère avoir été assez clair, c'est pas toujours évident d'expliquer.
Encore merci pour votre aide.
Nitrog