Discussion :

[bosk1000]

bonjour

j'essaye de suprimer les lignes vides de mon tableau

j'ai tester ce code

Code :

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

1
2
3
4
5
 
Numdl = Range("a65536").End(xlUp).Row 'pour recupere le dernier numero de la ligne
For i = Numdl To 2 Step -1
 If ActiveCell Is Empty Then Rows.Delete
 Next i

mais hélas ça plante

merci pour votre aide

[drakkar_agfa]

Bonjour,

Voici un code qui supprime les lignes vide par rapport à une colonne:

Code :

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

1
2
3
For i = Fin To Depart Step -1
    If Cells(i, Col) = "" Then Rows(i).Delete
Next

Il parcourt le fichier de la fin jusqu'au début (fin et Depart sont les numéros de lignes) et prend la colonne (Col, numéro de colonne) comme cellule si vide.

Tu peux adapter au besoin!

[bosk1000]

impec

merci

fo juste penser a un petit detail dans le code pour les débutant

Code :

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

1
2
 
 If Cells(i, "a") = "" Then Rows(i).Delete

mettre les guillement avant et près la lettre de la colone

[Godzestla]

If Cells(i, "a") = "" Then Rows(i).Delete

oops. Ca va faire mal ton truc car cells accepte des argument numériques et "a".... n'est pas trop compatible.

Ecoute drakkar_agfa, sans inventer la roue carrée.

Salut drakkar_agfa. amitiés.

[drakkar_agfa]

Et oui, avec le cells(1,1), il accepte le numérique.
Pas comme le Range("A1")

Bien le bonjour Godzestla, content de voir lapinou dans ta signature
Il t'a eu toi aussi!