[XL-2003] Suppression de ligne vide [Résolu]

[korni184]

Bonjour,

J'ai une macro qui reporte des chiffres en fonction d'un Vlookup.
Les cases ne contenant pas de données s'affichent #N/A. J'ai donc ajouter dans ma formule un

=if(iserror(vlookup....

Tout cela fonctionne parfaitement.

Mais parfois des lignes entières ne contiennent aucune données. Donc j'aimerai quelles se delete automatiquement.

Colonne A :

LIGNE 1 :CRAYON
LIGNE 2 :TAILLE CRAYON
LIGNE 3: STYLO
LIGNE 4: GOMME......

COLONNE B CLASSE 1
COLONNE C CLASSE 2
COLONNE D CLASSE 3

Donc imaginons que pour la classe 1,2 et 3 on es pas besoin de crayon, je voudrais que la ligne se supprime au résultat. Enfin de delete des lignes.

Comment pouvez-vous m'aider ? Avec un moteur ?

Merci d'avance

Bien à vous

[Daniel.C]

Bonjour,

Si "Ligne est le numéro de ligne :

Code :

1
2
'Réf.111027.xlsm korni184
If Application.CountA(Cells(Ligne, 2).Resize(, 3)) = 0 Then Rows(Ligne).Delete

[Jean-Pierre49]

Bonjour

une autre solution (toutes versions)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
                    Dim Plage                   As Range
                    Dim Cell                    As Range
                    Dim Derlign                 As Long
                    Dim CompA                   As Long
                    Dim CompB                   As Byte
                    Dim ind                     As Byte
 
    Derlign = Range("A" & Rows.Count).End(xlUp).Row
    Set Plage = Range("A1:H" & Derlign) 'déclaration du tableau
 
    Application.ScreenUpdating = False ' on fige l'ecran
    For CompA = Derlign To 2 Step -1 ' on bouche sur le tableau de bas en haut
        For CompB = 2 To 4 ' on balai les Colonnes
            If Cells(CompA, CompB) = "" Then ind = ind + 1 ' On compte les cellules vides
        Next CompB
 
        If ind = 3 Then ' Si le nombre de cellule vides = 3
            Plage.Rows(CompA).EntireRow.Delete ' On supprime la ligne
            ind = 0
        End If
    Next CompA
    Application.ScreenUpdating = True

cordialement

[korni184]

Je viens de faire plusieurs test et malheureusement cela ne fonctionne pas...
Je suis entrain de chercher :

Mon tableau ressemble à cela :

1               PREMIERE ANNEE                   DEUXIEME ANNEE	
2           CLASSE1 CLASSE2 CLASSE3          CLASSE1 CLASSE2 CLASSE3
3 CRAYON               1       2                3       2       2
4 STYLO							
5 GOMME        2       3                        4       5
6 CISEAU                       2                2               1
7 REGLE        4               4                        4	
				
    A          B       C       D       E        F       G       H

Je vous ai mis les colonnes et les lignes. Comme vous pouvez le remarquer la ligne 4 est vide, donc je voudrais via un moteur faire en sorte qu'elle se supprime.

Merci d'avance pour votre aide

[korni184]

Je viens de remarquer que le forum, n'a pas bien pris en compte mon tableau.

Donc je ne sais pas trop comment faire... j'ai un fichier excel, mais on ne peut pas le joindre. Il y a t-il une solution ?

[Daniel.C]

Code :

1
2
3
4
5
'Réf.111027.xlsm korni184
Dim Ligne As Long
For Ligne = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
    If Application.CountA(Rows(Ligne)) = 1 Then Rows(Ligne).Delete
Next Ligne

[Jean-Pierre49]

Test avec le code corrigé et adapté

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
                    Dim Plage                   As Range
                    Dim Cell                    As Range
                    Dim Derlign                 As Long
                    Dim CompA                   As Long
                    Dim CompB                   As Byte
                    Dim ind                     As Byte
 
    Derlign = Range("A" & Rows.Count).End(xlUp).Row
    Set Plage = Range("A1:H" & Derlign) 'déclaration du tableau
 
    Application.ScreenUpdating = False ' on fige l'ecran
    For CompA = Derlign To 2 Step -1 ' on bouche sur le tableau de bas en haut
        For CompB = 2 To 6 ' on balai les Colonnes
            If Cells(CompA, CompB) = "" Then ind = ind + 1 ' On compte les cellules vides
        Next CompB
 
        If ind = 5 Then ' Si le nombre de cellule vides = 5
            Plage.Rows(CompA).EntireRow.Delete ' On supprime la ligne
        End If
        ind = 0
    Next CompA
    Application.ScreenUpdating = True

Cordialement

[korni184]

Je viens de tester la formule

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
                   Dim Plage                   As Range
                    Dim Cell                    As Range
                    Dim Derlign                 As Long
                    Dim CompA                   As Long
                    Dim CompB                   As Byte
                    Dim ind                     As Byte
 
    Derlign = Range("A" & Rows.Count).End(xlUp).Row
    Set Plage = Range("A1:H" & Derlign) 'déclaration du tableau
 
    Application.ScreenUpdating = False ' on fige l'ecran
    For CompA = Derlign To 2 Step -1 ' on bouche sur le tableau de bas en haut
        For CompB = 2 To 6 ' on balai les Colonnes
            If Cells(CompA, CompB) = "" Then ind = ind + 1 ' On compte les cellules vides
        Next CompB
 
        If ind = 5 Then ' Si le nombre de cellule vides = 5
            Plage.Rows(CompA).EntireRow.Delete ' On supprime la ligne
        End If
        ind = 0
    Next CompA
    Application.ScreenUpdating = True

Ca fonctionne, juste une indication.

J'ai 8 colonnes, A(Les fournitures) et BCD les classes, E une colonne vide et FGH les autres classes....

Je vois au dessus cellules vides : 5, sa ne serait pas plutôt 7 ? en comptant la colonne de séparation (E)

Et pour balayer les colonnes 2 to 7 ?

[Jean-Pierre49]

Et pour balayer les colonnes 2 to 7 ?

For CompB = 2 To 8 ' on balai les Colonnes

Je vois au dessus cellules vides : 5, sa ne serait pas plutôt 7 ? en comptant la colonne de séparation (E)

exact


Cordialement

[korni184]

merci pour la qualité de vos réponses.

Bàv