Discussion :

[Kador]

Bonsoir à tous,

Voila mon problème, J'aimerais supprimer toutes les lignes d'un tableau contenant une ou plusieurs cellules vides de la colonne A à la colonne P.

Comment faire?

Merci d'avance pour votre aide?

[alsimbad]

tu peux le faire en vba. tu teste si ta ligne est vide, ensuite tu la suprime...
tu peux essayer de fouiller le forum en tapant dans la recherche " supprimer lignes vide"

[Kador]

C'est en VBA que je souhaiterais le faire, mais je sais pas comment faire.
Merci

[PPz78]

Bon dimanche.

Excel dispose d'une fonction enregistrement.
tu mets en route l'enregistrement
tu supprime une ligne
tu arrêtes l'enregistrement
tu vas voir le code enregistré
tu modifies le code à tes besoins

et c'est fini.

[Kador]

L'enregistrement de mqcro, je connais. Mais un tableau que j'utilise quotidiennement et c'est pas tjs les memes cellules qui sont vide. C'est pour ca que j'aimerais faire une prog vba.

[alsimbad]

tu peux essayer de fouiller le forum en tapant dans la recherche " supprimer lignes vide"

tu as essayé ?

[PPz78]

Tu peux essayer ceci :

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
17
Sub Sup_ligne_Vide()
    For i_ligne = 20 To 1 Step -1
            Ligne_vide = True
        For i_com = 1 To 16
            V_lue = Cells(i_ligne, i_com)
            If V_lue <> "" Then
                Ligne_vide = False
                Exit For
            End If
        Next
        If Ligne_vide Then
            MsgBox ("La ligne : " & i_ligne & " est vide")
            Rows(i_ligne).Select
            Selection.Delete Shift:=xlUp
        End If
    Next
End Sub

[Kador]

Re,

J'ai essayé ton programme mais il se passe rien.

[PPz78]

Plusieurs solutions :

- Ce que j'ai envoyé ne traite que les 20 premières lignes
- Tu ne l'a pas mis au bon endroit

Pour faire un lever de doute tu lance une exécution dans le mode pas à pas

A+

[Kador]

est il possile de ne pas rajouter une limite de ligne parce que mon tableau n'a pâs tjs le meme nombre de ligne, ca varie quotidiennement

[Gorfael]

Salut Kador et le forum

Voila mon problème, J'aimerais supprimer toutes les lignes d'un tableau contenant une ou plusieurs cellules vides de la colonne A à la colonne P.

Ce que je comprends : on doit supprimer les lignes qui ne sont pas remplies intégralement de A à P (qui comportent au moins une cellule vide)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim Plg As Range
Dim Cel As Range
Dim X As Long
Set Plg = Range([A1], Range("P" & [A1].SpecialCells(xlCellTypeLastCell).Row)).SpecialCells(xlCellTypeBlanks)
For Each Cel In Plg
    Range("A" & Cel.Row) = "XXX"
Next Cel
For X = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("A" & X) = "XXX" Then Rows(X).Delete
Next X
End Sub

Attention : n'ayant pas la précision sur comment trouver la dernière ligne du tableau, toute ligne n'étant pas remplie de A à P dans la UsedRange (zone d'utilisation) sera supprimée.
A+

[PPz78]

Pour trouver la dernière cellule non vide d'une colonne, il faut utiliser cette instruction :

Code :

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

= Range("A65536").End(xlUp).Row

A+

[Kador]

Merci bcp PPz78, ca marche a la perfection

[PPz78]

Merci de cliquer sur résolu.

[fred65200]

bonsoir,
personnellemnt, je préfère

Code :

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

= Range("A" & Application.Rows.Count).End(xlUp).Row

pour une meilleure compatibilité avec Excel 2007.
Cordialement