[VBA-E]supprimer des cellules vide

bonjour, j'essaye de trouver un code a appliquer a un bouton macro mais en debutant en vba c'est pas évident :o

Mon probleme est le suivant : j'ai une feuille excel avec des cellules vides et d'autres pleines, qui changent suivant les cas ( un import a partir d'access + une formule, donc par exemple la cellule B1 peut etre vide un moment et non vide pour un autre cas . Et j'aimerais faire une macro generique )

Comment supprimer uniquement les cellules vide - en decalant vers le haut - comme si on le faisait a la main mais par instruction conditionnelle type " si la cellule B2 est vide alors la supprimer en decalant les cellules vers le haut "

le but etant donc de ne pas avoir de " blancs " dans mes colonnes pour gagner de la place ( a la base j'ai des doublons parfois, qui sont eliminés par une formule toute bete. la cellule est donc vide. Mais impossible de trouver comment la supprimer par macro )

je pense qu'on peut appliquer un truc genre

Code:

---

If ActiveSheet.Colums("B").Cells.SpecialCells(xlCellTypeBlanks) Is Null Then

---

mais quoi mettre apres le then :piou:

Code:

---

ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete xlUp

---

merci ^^

Par contre apres essai , ca ne fonctionne pas puisqu'en fait apparemment les cellules que je veux supprimer ne sont pas "vides" mais dependent d'une formule
par ex : SI(A8=A7;"";import!C7)
et bien sur la cellule est dans le cas du ""

j'ai cherché dans l'aide vb les differents types de XlCellType mais j'en ai trouvé aucun qui correspond >_<

xlCellTypeAllFormatConditions. Cells of any format
xlCellTypeAllValidation. Cells having validation criteria
xlCellTypeBlanks. Empty cells
xlCellTypeComments. Cells containing notes
xlCellTypeConstants. Cells containing constants
xlCellTypeFormulas. Cells containing formulas
xlCellTypeLastCell. The last cell in the used range
xlCellTypeSameFormatConditions. Cells having the same format
xlCellTypeSameValidation. Cells having the same validation criteria
xlCellTypeVisible. All visible cells

Ben...?
Et si tu fais juste

Code:

---

If ActiveSheet.Colums("B").Cells.SpecialCells(xlCellTypeBlanks).Value = "" Then...

---

Citation:

---

Envoyé par Megaxel

Ben...?
Et si tu fais juste

Code:

---

If ActiveSheet.Colums("B").Cells.SpecialCells(xlCellTypeBlanks).Value = "" Then...

---

---

"object doesn't support this property or method " :?

D'accord. Et si tu fais un truc comme ça, alors:

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim Cellule As Range For Each Cellule In ActiveSheet.Range("B1:B10") If Cellule Is Nothing Or Cellule.Value = "" Then Cellule.Delete xlUp End If Next Cellule End Sub

---

Ça ne marche pas mieux? (le B10 est un peu limitant, il faut aller jusqu'à la dernière ligne de la colonne, bien sûr...)

beh ca marche bcp mieux, merci ^^