Discussion :

[jose_67]

Bonjour à tous, je voudrais supprimer les lignes vides de mon fichier. Il se trouve que quand j'ai plus d'une ligne vide qui se visent, mon code ne prend en compte qu'une ligne sur deux.
Il faudrait (il me semble) que je démarre par la ligne du bas et que je remonte dans ma sélection.
Mais je ne sais pas comment faire

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 supligne()
 
Dim derlign As Long, plage As Range
Dim numligne As Long
derlign = Sheets("Table de travail").Range("A12000").End(xlUp).Row
Set plage = Sheets("Table de travail").Range("A7" & ":A" & derlign)
With Sheets("Table de travail")
For i = 5 To dernligne
numlign = c.Row
If Cells(i, 17) = "" Then
    Rows(i).Delete Shift:=xlShiftDown
 
          End If
          Next i
End With
End Sub

Merci pour votre aide
Cordialement José

[laetitia]

bonjour jose_67 le forum essai comme cela

Code :

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

1
2
3
Sub es()
   Sheets("Table de travail").[q5:q12000].SpecialCells(xlCellTypeBlanks).Rows.Delete
End Sub

[Qwazerty]

Salut
Coucou Leti

Je n'ai pas essayé la solution de Laeticia, j'ai d'ailleurs failli la rater puisque qu'elle a répondu après que j'ai mis a jour la page du Fofo

Bref pour inverser une boucle for

Code :

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

For i = 5 To dernligne

il faut mettre

Code :

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

For i = dernligne to 5 step -1

voila a ++
Qwaz

[laetitia]

re,coucou Qwaz en partant de son code!!

Code :

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

1
2
3
4
5
6
7
8
Sub es()
  Dim i As Integer
    Application.ScreenUpdating = False
    With Sheets("Table de travail")
     For i = .Range("q12000").End(xlUp).Row To 5 Step -1
     If .Cells(i, 17) = "" Then .Rows(i).Delete
  Next i: End With
End Sub

[Roums]

Salut laetitia, Qwazerty, le forum

Je crois qu'il veut effacer la ligne en entier et en essayant le premier bout de code de laetitia ça n'effaçait que des cellules

J'ai essayé de trouver une solution mais je ne suis pas encore assez au point... même je n'en suis pas loin je pense !

Code :

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

1
2
3
4
5
6
7
8
Sub es()
Dim derlign As Integer
Dim i As Integer
Do Until Sheets("Table de travail").Range("q12000").SpecialCells(xlCellTypeBlanks).Row = Sheets("Table de travail").Range("q12000").End(xlUp).Offset(1).Row
derlign = Sheets("Table de travail").Range("q12000").SpecialCells(xlCellTypeBlanks).Row
Range("A" & derlign & "").EntireRow.Delete
Loop
End Sub

ça pause un problème par contre si les lignes à effacer sont contiguës avec la dernière.

C'est pas parfait surement, je m'exerce

[Invité]

Bonjour,

Il semble bien que votre problème soit que des lignes ne contenant aucune données ne soient pas reconnues comme des lignes vides (pour diverses raisons, par exemple formatage de colonnes ou de plage). Or lorsque la ligne est supprimée, la suppression n'est prise en compte que lorsque le fichier est enregistré.

Autrement dit, si c'est bien ce cas, lorsque vous supprimez la 1ère ligne vide et que vous utilisez ensuite :

Code :

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

derlign = Sheets("Table de travail").Range("q12000").SpecialCells(xlCellTypeBlanks).Row

c'est toujours la même "dernière ligne qui est trouvée".

A priori, je pense que les solutions de Laetitia ou de Quazerty devraient fonctionner, mais sûrement pas la vôtre.

Et ne pas oublier d'enregistrer votre fichier avant de faire autre chose.

D'autre part vous avez indiqué la ligne N° 12000 comme étant la dernière ligne : c'est bien parce que si vous appuyez sur "Ctrl + Fin" le curseur se trouve en ligne 12000 ?

Sinon vous pouvez utiliser :

Code :

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

derlign = Range("Q65536").End(xlUp).Row

mais bien évidemment avant la boucle et non pas à l'intérieur de la boucle.