Discussion :

[mercatog]

bon après midi,
j'ai réalisé un bout de code, et à l'interieur j'ai cette ligne qui permet de supprimer toutes les lignes dont la première cellule est vide

Code :

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

1
2
3
4
 
....
        .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
....

ceci fonctionne seulement s'il y a au moins une cellule vide dans la première colonne de la plage de donnée.

sinon, erreur!

s'il y a moyen de détourner cet erreur
ou carrément faire autrement (sans boucle)
Merci

[DeaD78]

Salut,

Code :

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

1
2
3
4
5
6
For i = 1 To Range("A65536").End(xlUp).Row
    If IsEmpty(Cells(i, 1).Value) Then
        .Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        Exit For
    End If
Next

Teste pour moi.

A+

[Pierrot93]

Bonjour Mercatog, Dead

une autre approche ainsi :

Code :

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

1
2
3
Dim x As Range
Set x = Range("A1:A" & Range("A65536").End(xlUp).Row)
If Application.CountBlank(x) > 0 Then x.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

bonne soirée
@+

[DeaD78]

Bonjour Pierrot,

J'aime beaucoup ta solution ! Je ne connaissais pas le .CountBlank.

Bonne soirée à vous

EDIT : mercatog, essaie la solution de Pierrot, elle me paraît plus optimisée. Teste et choisis ce qui te convient Tu n'y verras sûrement aucune différence vu que je sors rapidement de la boucle si je trouve un "blanc" (pense aussi à désactiver le ScreenUpdating), mais j'ai ma solution "chouchou" et ce n'est pas la mienne

[mercatog]

impec et merci

merci aussi pour sortir de la boucle rapidement

[mercatog]

Aussi impec Pierrot

j'ai opté pour ta proposition
j'ai certaines phobies de boucles apparentes!

merci aussi Dead

[DeaD78]

j'ai certaines phobies de boucles apparentes!

T'es pas sorti de l'auberge en disant ça Tellement de choses sont basées sur ces boucles en programmation, peu importe le langage !

Et si par apparentes, tu entends la guirlande de noël dans ta fenêtre Excel, il te suffit de mettre

Code :

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

Application.ScreenUpdating = False

au début de ton code et de le remettre à True à la fin.

Bref, je supporte encore et toujours la solution de Pierrot (j'me la note quelque part ) mais je ne peux que te conseiller d'aller échanger un mot ou deux avec ces boucles histoire de vaincre tes phobies : elles peuvent s'avérer être de très bonnes amies

Allez, bonne soirée à vous 2 !

[laetitia]

bonjour le fil le forum une autre methode

Code :

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

1
2
3
Sub test1()
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

[mercatog]

Mes phobies viennent de la mal-compréhension, certes les boucles sont nécessaires et utiles! Pour moi en dernier recours (je suis déjà chauve; et les boucles...!!)!! et pas à cause des "guirlandes de noël"!!

cordialement

merci Laetitia