Vba sorting different from 0

Bonjour,

j'utilise la macro suivante qui fonctionne à merveille quand on moins une de mes données filtrées est différente de "0:00".
Mon problème apparait quand toutes mes données sont égales à "0:00" car dans ce cas, au moment de mon copier-coller vers ma seconde feuille de calcul j'ai toutes mes données de la première feuille qui se sélectionne et qui se colle alors que je n'en voudrais aucune.

ou dois-je modifier ma macro pour n'avoir aucune donner coller si toutes mes valeurs sont égales à « 0:00 »?

merci pour vos réponses

aurore

Voici La fameuse macro !

`Tri dans le premier onglet des valeurs différentes de « 0 :00 »

Sheets("BASE DONNEES_SV").Select
Selection.AutoFilter Field:=24, Criteria1:="<>0:00", Operator:=xlAnd 'critère différent de 0:00 Range("A5:E350").Select
Selection.Copy

'Seconde feuille où je copie mes données filtrées

Sheets("ORDO_SV").Select
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

`Retrait du filtre

Sheets("BASE DONNEES_SV").Select
Selection.AutoFilter Field:=24
Sheets("ORDO_SV").Select

4 respuestas

  1. Colaborador
    Hola

    tus ceros (o "" o vacío ?) en la columna X (24) ¿son entradas o fórmulas?
    --
    :-x
    1. sí, se trata de una celda que resulta de la multiplicación de otras dos ubicadas algunas columnas antes.
      1. Colaborador
        Hola,

        Una sugerencia: hacer la suma de tu columna y filtrar-pegar solo si <> 0

        eric