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

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

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:

---

1 2 3 4 5 6

Range("A2").Select if ActiveCell.Value = "" then Columns("A:A").Select Selection.Delete Shift:=xlToLeft End if

---

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

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:

---

1 2	ActiveWindow.DisplayHeadings = False

---

pour le 2)..

Code:

---

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

---

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:P

... un coup de for each...

Code:

---

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

---

nickel merci


:aie:

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
:roll:


Rappel du code:

Code:

---

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

---

en parcourant les colonnes de droite à gauche...

Code:

---

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

---

Merci de ta réponse,


Seulement, il me dit qu'il y a une erreur de syntaxe???

un to 1 de trop, code corrigé..

super cette fois-c, c'est bon.


Merci

:lol: