Discussion :

[oscar.cesar]

bonjour à
voila le probleme
comme supprimer toutes les cellule vides située dans une colonne, puis on passe à la colonne suivante ('cela sur 10 colonne consecutive). en sachant que la suppression doit commencer de la derniere cellule non vide de la colonne concernéE.
je precise aussi que la suppression doit ce faire colonne par colonne .

merci

[Invité]

Bonjour Oscar.cesar,

Un code à copier sur votre feuille qui devrait fonctionner :

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
Sub Supp_cel_vide()
'1ère colonne de traitement (vous pouvez modifier)
c1 = 2
'1ère ligne de données (vous pouvez modifier)
l1 = 2
 
For c = c1 To c1 + 9
dl = Range(Cells(65536, c), Cells(65536, c)).End(xlUp).Row
    For l = dl To l1 Step -1
    Range(Cells(l, c), Cells(l, c)).Select
        If ActiveCell.Value = "" Then
        Selection.Delete Shift:=xlUp
        End If
    Next l
Next c
End Sub

[oscar.cesar]

merci de ta reponse
je voudrais juste savoir si le code peut etre modifier pour partir de la premiere ligne L1 et non de la derniere comme je l'avais indique precedement.
car je n'ai pas forcemment 65536 ligne à traiter.
ou mieux peut on partir de la derniere cellule non vide de chaque colonne pour effacer les cellules vides

le but c'est de limite le temps de traitement

merci encore

[Invité]

Re Oscar.cesar,

En fait on ne traite pas 65536 lignes.

cette ligne sert à trouver la 1ère ligne non vide en remontant à partir de la dernière ligne possible (65536 jusqu'à la version 2003) et cela est très rapide.

Code :

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

dl = Range(Cells(65536, c), Cells(65536, c)).End(xlUp).Row

Par exemple si dans la colonne C la dernière ligne non vide est la 3226ème la variable "dl" va prendre la valeur 3226. Les lignes traitées seront donc de 3226 jusqu'à la valeur que vous aurez donné à la variable "l1" (par exemple 2).

Par contre il y n'y a sûrement que cette solution.

D'ailleurs l'une d'entre elles serait de trier les colonnes une par une par ordre décroissant, mais cela n'est faisable que si l'orde de vos données ne doit pas rester celui d'origine.

Si c'est le cas vous pouvez utiliser :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Supp_cel_vides()
'1ère colonne de traitement (vous pouvez modifier)
c1 = 2
'1ère ligne de données (vous pouvez modifier)
l1 = 2
 
For c = c1 To c1 + 9
dl = Range(Cells(65536, c), Cells(65536, c)).End(xlUp).Row
Range(Cells(l1, c1), Cells(dl, c)).Select
    Selection.Sort Key1:=Range(Cells(l1, c), Cells(l1, c)), Order1:=xlDescending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Next c
End Sub

[oscar.cesar]

bonsoir jacquesjean

ok ca marche
merci de tes explications