VBA Excel - Supression nom de colonne + Suppression automatique de colonne selon cell

**eddyG** · 26/10/2006, 18h14

Bonjour,

J'ai deux question sur le VBA dans excel.

La première, quelqu'un connait-il le code pour supprimer les noms de colonnes(A, B, C,...) et de ligne(1,2,3,...) de toutes les feuilles d'un classeur??

La deuxième, plus compliqué, y aurait-il un code pour supprimer les colonnes d'une feuille par rapport à un critère. Par exemple, si A2="" alors je supprime A.

Merci d'avance de vos réponses

Eddy

**tazmania** · 26/10/2006, 18h22

Je n'ai pas très bien compris ta première question, tu ve supprimer le nom des colonnes et des lignes et non pas supprimer leur contenu.

Pour la deuxième question, voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Range("A2").Select
if ActiveCell.Value = "" then
 Columns("A:A").Select
 Selection.Delete Shift:=xlToLeft
End if

**eddyG** · 26/10/2006, 18h27

Ok merci de ta réponse. Par contre pour ma deuxième question, comme pointes-tu sur la feuille voulue???

Pour la première, si tu préféres, c'est l'entourage des cellules que je voudrais supprimer, la partie grise.

Merci

Eddy

**SfJ5Rpw8** · 26/10/2006, 18h34

pour le 1) il sagit de l'option excel affichage des entête de lignes et colonnes.. l'enregistreur de macro aurai pu te donner la réponse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  ActiveWindow.DisplayHeadings = False

pour le 2)..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets("Feuil1").Columns("A:A").Delete

**eddyG** · 26/10/2006, 18h39

Bonjour et merci pour vos réponses,

Pour le 1, c'est donc résolu.

Par contre pour le deux, je pense qu'il faut que je précise encore un peu.

En fait, je veux faire la recherche sur une plage de cellule et supprimer les colonnes ou cette cellule et vide. Cela veut dire qu'il faut que je regarde par exemple, toutes les cellules de A1 à D1 et si C1 et D1 sont vides, je supprime les colonnes C et D. Et cerise sur le gateau, je veux faire cette manip sur deux feuillesn d'où la nécessité de pointer sur une puis sur l'autre.

Merci d'avance

Eddy

**SfJ5Rpw8** · 26/10/2006, 18h46

... un coup de for each...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 Dim c As Range 'Cellule testée
 For Each c In ThisWorkbook.Sheets("Feuil1").Range("A1:D1")
   If c = "" Then c.EntireColumn.Delete
 Next

**eddyG** · 26/10/2006, 18h50

nickel merci

**eddyG** · 30/10/2006, 11h57

Pour mon deuxième point, le code fonctionne seulement, il ne me supprime qu'une colonne sur deux, surement à cause du décalage créé à la suppression.

Quelqu'un aurait-il une idéee???

Merci d'avance

Rappel du code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Dim c As Range
    For Each c In ThisWorkbook.Sheets("Agences_NB").Range("E3:CK3")
        If c = "" Then c.EntireColumn.Delete
    Next

**SfJ5Rpw8** · 30/10/2006, 12h14

en parcourant les colonnes de droite à gauche...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    For i = ThisWorkbook.Sheets("Agences_NB").Range("E3:CK3").Columns.count To 1 Step -1
        
     set c = ThisWorkbook.Sheets("Agences_NB").Range("E3:CK3").Cells(1,i)
         If c = "" Then c.EntireColumn.Delete
    Next