Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour JC,
Sub Macro1() Dim colonne As Integer For colonne = 256 To 1 Step -1 If Application.CountA(Columns(colonne)) = 0 Then Columns(colonne).Delete Next colonne End Sub
isabelle
Bonsoir
J'ai une macro pour supprimer les lignes vides Existe-t-il une macro pour supprimer les colonnes vides
merci
bonjour JC,
Sub Macro1()
Dim colonne As Integer
For colonne = 256 To 1 Step -1
If Application.CountA(Columns(colonne)) = 0 Then Columns(colonne).Delete
Next colonne
End Sub
isabelle
Bonsoir
J'ai une macro pour supprimer les lignes vides
Existe-t-il une macro pour supprimer les colonnes vides
Sub Macro1() Dim colonne As Integer For colonne = 256 To 1 Step -1 If Application.CountA(Columns(colonne)) = 0 Then Columns(colonne).Delete Next colonne End Sub
isabelle
Bonsoir
J'ai une macro pour supprimer les lignes vides Existe-t-il une macro pour supprimer les colonnes vides
