Discussion :

[garn]

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 :

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

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

mais quoi mettre apres le then

[bidou]

Code :

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

ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete xlUp

[garn]

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

[Megaxel]

Ben...?
Et si tu fais juste

Code :

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

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

[garn]

Ben...?
Et si tu fais juste

Code :

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

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

"object doesn't support this property or method "

[Megaxel]

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

Code :

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

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...)

[garn]

beh ca marche bcp mieux, merci ^^