Liste sans les " lignes zéros"

[Christian0258]

Bonjour à tout le forum,

Je ne trouve pas la solution à mon problème de liste sur 3 colonnes
que je souhaite réduire...

voir fichier...

Merci pour votre aide si précieuse,
Christian

 

[DL_13]

Re : Liste sans les " lignes zéros"

Bonjour,

Peux tu essayer ces quelques lignes de code dans un module standard

Sub EnleveLigne()
Dim DerLig As Long, i As Integer
Application.ScreenUpdating = False
DerLig = Range("BG65530").End(xlUp).Row
For i = DerLig To 2 Step -1
    If Cells(i, 59).Value = 0 And Cells(i, 60) = 0 And Cells(i, 61) = 0 Then Rows(i).EntireRow.Delete
Next i
Application.ScreenUpdating = True
End Sub

Bonne journée

 

[Efgé]

Re : Liste sans les " lignes zéros"

Bonjour Christian0258, DL_13, le fil, le forum,
Une autre approche (le résultat est en feuille 2) à adapter au besoin:

Sub regroup()
Dim Plg(), TabloReport(), i&, j&, k&
With Sheets("Feuil1")
    Plg = .Range(.Cells(3, 59), .Cells(Rows.Count, 61).End(xlUp)).Value
End With
For i = LBound(Plg, 1) To UBound(Plg, 1)
    For j = 1 To 3
        If Plg(i, j) = 0 Then Var = Var + 1
    Next j
    If Var <> 3 Then
        TabRow = TabRow + 1
        ReDim Preserve TabloReport(1 To 3, 1 To TabRow)
        For k = 1 To 3
            TabloReport(k, TabRow) = Plg(i, k)
        Next k
    End If
    Var = 0
Next i
With Sheets("Feuil2")
    .UsedRange.ClearContents
    .Cells(1, 1).Resize(TabRow, 3) = Application.Transpose(TabloReport)
End With
End Sub

Cordialement

 

[Christian0258]

Re : Liste sans les " lignes zéros"

Re, le forum, DL_13,

Merci pour ton aide, DL_13.

En fait je souhaite, laisser le contenu des 3 colonnes BF à BI (sans supprimer aucun résultat), et faire la "compression" dans les colonnes BJ à BL...

Bien à toi,
Christian

 

[Christian0258]

Re : Liste sans les " lignes zéros"

Re, le forum, DL_13, Efgé,

Oups pardon, pas vu Efgé...

C'est ça.
Dis-mois Efgé comment modifier ton code pour coller le résulat dans la même feuille col BJ à BL ?

Bien à vous,
Christian

 

[Efgé]

Re : Liste sans les " lignes zéros"

Re
Pour coller sur la même feuille :

Sub regroup()
Dim Plg(), TabloReport(), i&, j&, k&
With Sheets("Feuil1")
    Plg = .Range(.Cells(3, 59), .Cells(Rows.Count, 61).End(xlUp)).Value
    For i = LBound(Plg, 1) To UBound(Plg, 1)
        For j = 1 To 3
            If Plg(i, j) = 0 Then Var = Var + 1
        Next j
        If Var <> 3 Then
            TabRow = TabRow + 1
            ReDim Preserve TabloReport(1 To 3, 1 To TabRow)
            For k = 1 To 3
                TabloReport(k, TabRow) = Plg(i, k)
            Next k
        End If
        Var = 0
    Next i
    .Range(.Cells(3, 62), .Cells(3, 64).End(xlDown)).ClearContents
    .Cells(3, 62).Resize(TabRow, 3) = Application.Transpose(TabloReport)
End With
End Sub

Cordialement
Edit : Une modif sur le ClearContents...

 

[Christian0258]

Re : Liste sans les " lignes zéros"

Re, le forum, DL_13, Efgé,

Je vous remercie infiniment, DL_13 et Efgé.
Efgé c'est nickel, un grand merci.


J'ai une nouvelle demande, mais je reste sur le même fil.
Dans la continuité du travail de Efgé, je souhaiterais une deuxième macro... voir fichier

Merci pour le temps que vous m'accorder.
Bien amicalement,
Christian

 

[Christian0258]

Re : Liste sans les " lignes zéros"

Re, le forum,

J'ai modifié, mon fil, après avoir remercier les deux intervenants.

Auriez-vous, svp, la gentillesse de le consulter ?..

Merci pout tout.

Bien amicalement,
Christian

 

[Efgé]

Re : Liste sans les " lignes zéros"

Re
Il aurait été préférable d'annoncer tout de suite la finalité de ta première demande...
Est il vraiment nécessaire de coller la liste des codes.
Si cette liste ne sert qu'a boucler dessus avec une autre macro, je pense que non.
Que fait la macro qui doit être applelée (elle n'est pas présente dans l'exemple) ?
Je reviendrai demain sur ce fil.
A te relire
Cordialement