Discussion :

[bamboou9]

Bonjour,

J'ai trouvé sur le forum des méthodes pour supprimer les cellules vides dans les colonnes d'un tableau contenant des données.
Cependant, celles-ci s'effectuent en supprimant les lignes vides du tableau, et c'est cela qui me gène car j'ai un autre tableau à droite de cette colonne auquel je ne veux pas toucher.
j'aimerai en fait simplement décaler les valeurs pour me retrouver avec une colonne sans cellules vides intermédiaires, mais toutes situées à la fin.
Pourriez-vous svp m'aider ?

Merci !

[loufab]

Bonjour,

Tableau, cellules, "autre tableau à droite" ???

Tu travailles avec Excel ou Word ?

Cordialement,

[bamboou9]

Bonsoir,

Désolé si ce n'est pas clair. En fait j'ai par exemple dans une colonne A des valeurs espacées de vide de façon aléatoire.
J'aimerai regrouper toutes les cellules contenant des valeurs en haut de la colonne (tout en conservant leur ordre).
Pour ça, j'ai trouvé des méthodes qui supprime la ligne entière contenant une cellule vide. Le problème c'est que je n'aime pas cette méthode parce que si j'ai des données à droite de ma colonne (peu importe les données que c'est), je les supprime aussi du coup !

Si quelqu'un a une solution, ce serait cool !

Merci !
PS : je travaille avec Excel

[mercatog]

Code :

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

1
2
3
4
5
Sub DeleteBlanks()
 
On Error Resume Next
Worksheets("Feuil1").Range("A:A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

[Theze]

Bonjour,

Ou avec UsedRange pour la feuille entière avec le code de mercatog :

Code :

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

1
2
 
Worksheets("Feuil1").UsedRange.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

Hervé.

[bamboou9]

Bonjour,

Désolé si je me suis trompé de forum...
Merci pour vos réponses, mais malheureusement ce sont des méthodes qui supprime les lignes contenant des cellules vides.
N'y a t-il pas un autre moyen ?

[mercatog]

Le code du #5 supprime seulement les cellules vides de la colonne A et non toutes les lignes

[Menhir]

Si ton but est de supprimer une seule cellule (ou plus exactement de les supprimer une par une) en décalant à chaque fois les cellules du dessous vers le haut, alors utilise la méthode Delete(xlShiftUp) de l'objet Range (ce Range pointant bien sûr sur la cellule à supprimer).

[bamboou9]

yep !
Cette méthode là m'aide beaucoup en effet ! Elle me permet de faire fonctionner mon code.
Je me rends compte que je me suis bien mal exprimé : en fait, ce que j'aimerai, c'est si dans une colonne on a une cellule vide, toutes les cellules situées en dessous de cette cellule vide se décale d'un cran vers le haut, et cela sans suppression de cellule. Comme si on faisait un couper coller en fait.

En tout cas merci quand même pour vos méthodes ! Ca marche !