Discussion :

[tepuy]

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 :

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

1
2
3
Sub Activelazone()
ActiveSheet.UsedRange.Select
End Sub

pour selectionner la zone
et

Code :

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

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

[joe.levrai]

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 :

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

shift:=xlToLeft

[tepuy]

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

Code :

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

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

Merci

[Quentin77170]

Essaye avec ça

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

Code :

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

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.

[joe.levrai]

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 :

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

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