Discussion :

[austin974]

Bonjour à tous

Voici mon problème, j'aimerais regrouper mes cellules non vide sur chaque ligne.

aprés plusieurs recherches j'ai trouvé ce code:

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim Colonne As Range
On Error Resume Next
For Each Colonne In Range("A1:E10").Columns
 
    Colonne.SpecialCells(xlCellTypeBlanks).Delete (xlUp)
Next
End Sub

Mais il fait l'inverse c'est à dire qu'il regroupe par colonne et non par ligne

Pouvez vous m'aider SVP.

[issoram]

Bonjour,

Essaie comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
    Dim ligne As Range
 
    On Error Resume Next
    For Each ligne In Range("A1:E10").Rows
        ligne.SpecialCells(xlCellTypeBlanks).Delete xlShiftToLeft
    Next
 
End Sub

Cordialement.

[austin974]

Super un grand merci a vous sa marche super bien

bonne journée