Vba sorting different from 0
aurore
-
eriiic Mensajes publicados 24581 Fecha de registro Estado Colaborador Última intervención -
eriiic Mensajes publicados 24581 Fecha de registro Estado Colaborador Última intervención -
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
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
-
Hola
tus ceros (o "" o vacío ?) en la columna X (24) ¿son entradas o fórmulas?
--
:-x -
sí, se trata de una celda que resulta de la multiplicación de otras dos ubicadas algunas columnas antes.
-
lo siento, acabo de llegar
pero quizá encuentres la respuesta en este sitio imprescindible, en la sección «filtros»
http://boisgontierjacques.free.fr/ -
Hola,
Una sugerencia: hacer la suma de tu columna y filtrar-pegar solo si <> 0
eric