Suppression automatique de colonnes vides

C

Compte Supprimé 979

Guest

• 25 Février 2009

• #2

Re : Suppression automatique de colonnes vides

Salut Emmanuel75,

Essaye ce code ci

Code:

Sub SupColVide()
  Dim Col As Integer, DerCol As Integer
  ' Trouver la dernière colonne du tableau
  DerCol = Range("IV2").End(xlToLeft).Column
  ' De la dernière colonne vers la 3ème
  For Col = DerCol To 3
    ' Si l'entête du tableau est vide
    If Cells(2, Col).Value = "" Then
      ' On supprime la colonne
      Columns(Col).Delete
    End If
  Next Col
End Sub

A+

 

Vote positif 0 Vote négatif

E

emmanuel75

Guest

• 25 Février 2009

• #3

Re : Suppression automatique de colonnes vides

Bonjour BrunoM45,

En fait, la macro se "passe", aucun message d'erreur, mais aucune colonne n'est supprimée...je ne vois pas pourquoi...le code a l'air simple et élégant...

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 25 Février 2009

• #4

Re : Suppression automatique de colonnes vides

bonjour,

en fait il manque un tout petit truc dans la macro de bruno :

Code:

Sub SupColVide()
  Dim Col As Integer, DerCol As Integer
  ' Trouver la dernière colonne du tableau
  DerCol = Range("IV2").End(xlToLeft).Column
  ' De la dernière colonne vers la 3ème
  For Col = DerCol To 3 [B][COLOR="Red"]Step -1[/COLOR][/B]
    ' Si l'entête du tableau est vide
    If Cells(2, Col).Value = "" Then
      ' On supprime la colonne
      Columns(Col).Delete
    End If
  Next Col
End Sub

a+

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 25 Février 2009

• #5

Re : Suppression automatique de colonnes vides

Bonjour,

ci-joint une autre solution.

Sub Test()
Set MaZone = Range(Range("C2"), Range("IV2").End(xlToLeft))
If Application.CountBlank(MaZone) > 0 Then MaZone.SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
End Sub

 

Pièces jointes

• Test1.xls

  41 KB · Affichages: 100
• Test1.xls

  41 KB · Affichages: 108
• Test1.xls

  41 KB · Affichages: 106

Vote positif 0 Vote négatif

E

emmanuel75

Guest

• 25 Février 2009

• #6

Re : Suppression automatique de colonnes vides

Merci à vous tous....j'ai testé les deux macros celle de Catrice et celle de mromain çà marche très bien ...GRAND MERCI à tous...

Emmanuel

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 25 Février 2009

• #7

Re : Suppression automatique de colonnes vides

bonjour

code adapté de celui que donne l'enregistreur de macro 😉

Code:

Sub Macro1()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 25 Février 2009

• #8

Re : Suppression automatique de colonnes vides

vbacrumble,

Sub Macro1()
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

Attention avec cette méthode, s'il y a des cellules vides dans les colonnes => surprises 😀

Voir le fichier joint

 

Pièces jointes

• Test2.xls

  42 KB · Affichages: 89
• Test2.xls

  42 KB · Affichages: 100
• Test2.xls

  42 KB · Affichages: 101

Dernière édition: 25 Février 2009

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 25 Février 2009

• #9

Re : Suppression automatique de colonnes vides

Re, bonjour Catrice


Houps !

Merci de m'avoir signalé la chose 😉

 

Vote positif 0 Vote négatif