Nettoyage cellule vide dans tableau sur excel 2010

Bonjour
j'ai un tableau conetenant des donneés dispersée dans un tableau et je souhaite nettoyer toutes les cellules vides de celui ci ( lignes et colonne) . l'objectif final est de regouper les donnees sous forme de base de donnée.

Pour cela j'utilise les macros suivante

Code:

---

1 2 3

Sub Activelazone() ActiveSheet.UsedRange.Select End Sub

---

pour selectionner la zone
et

Code:

---

1 2 3

Sub SupprimeLignevide() [A:H].SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp End Sub

---

pour supprimer cependant les cellules blanches des colonnes ne se suppriment pas

Pouvez vous m'aider?
Merci beaucoup

Bonjour,

si j'ai bien compris ta problématique,pour un regroupement comme tu le spécifies, je pense que supprimer les cellule avec un Shift sur le haut n'est pas approprié

essaye avec

Code:

---

shift:=xlToLeft

---

Bonjour plus excatement je souhaite nettoyer les cellules vides des colonnes et ranger sur la même colonne les contenu identiques des lignes

Code:

---

1 2 3 4

Sub Activelazone() ActiveSheet.UsedRange.Select [A:H].SpecialCells(xlCellTypeBlanks).Delete shift:=xltoLeft End Sub

---

Merci

Essaye avec ça ;)

Si j'ai bien compris ton besoin, dans le fichier, ça devrait le faire ;)

Code:

---

1 2 3

Sub Activelazone() ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft End Sub

---

Je ne comprends pas trop pourquoi tu sélectionnais la UsedRange pour au final de même pas l'utilise (tu appelais directement les colonnes A:H).
Donc ma proposition travaille uniquement dans la UsedRange... Et ça semble marcher chez moi.

Bonjour,

il faut donc effectuer, ligne par ligne, un tri des valeurs, avant de réaliser ta suppression des cellules vides


ceci semble correspondre à ton dernier classeur exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Sub TriEtSuppression() Dim Plage As Range   Application.ScreenUpdating = False   With Feuil1 ' pour chaque ligne For i = 2 To .UsedRange.Rows.Count   ' de la colonne B jusqu'à la dernière colonne Set Plage = .Range(.Cells(i, 2), .Cells(i, .UsedRange.Columns.Count))   With .Sort With .SortFields ' suppression du tri existant (s'il y en a un) .Clear ' ajout de la plage de tri (ascendant sur les valeurs) .Add Key:=Plage, SortOn:=xlSortOnValues, Order:=xlAscending End With   ' application du tri .SetRange Plage .Header = xlGuess .MatchCase = False .Orientation = xlLeftToRight .SortMethod = xlPinYin .Apply   End With ' ligne suivante Next i   ' suppression des cellules vides après avoir tout trié .UsedRange.SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft End With   Application.ScreenUpdating = True End Sub

---