5 colonnes à la une

Bonjour,

Je voudrais réaliser une macro légère de recopie des 4 dernières colonnes pour les lignes non vides sur l'onglet Pareto, pourriez-vous me donner un début de solution merci.

Cordialement

Comme je n'étais pas assez attentif je rectifie, les 5 dernières colonnes et non pas les 4 dernières.

+++++

Bonjour obouana,

Une solution avec la macro suivante :

Sub lignVid()
    Dim i As Long, derlign As Long
    derlign = Sheets("donnees").Range("a" & Rows.Count).End(xlUp).Row
    With Sheets("pareto")
        .Cells.Delete
        Sheets("donnees").Columns("C:G").Copy .Columns("A:A")
        For i = derlign To 2 Step -1
            If Application.WorksheetFunction.CountBlank(.Range("a" & i & ":e" & i)) = 5 Then .Rows(i).Delete
        Next i
    End With
End Sub

Merci vba new, on voit qui est marcel !

Bonjour à tous,

Autre façon de faire, bouton sur feuille "pareto"

Sub Filtre()
Dim Lg&
Dim f As Worksheet
    Application.ScreenUpdating = False

    Set f = Sheets("donnees")
    Lg = f.Range("a" & Rows.Count).End(xlUp).Row
    f.Range("o2") = "=c2<>"""""         'critère
    f.Range("c1:g" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
    f.Range("o1:o2"), CopyToRange:=Sheets("pareto").Range("a1:e1"), Unique:=False
    f.Range("o2").ClearContents
End Sub

Bonne journée

Claude