copier les valeur >0

[Evelynetfrancois]

Bonjour à tous
Je me heurte à un problème
Comment par macro ne copier que la plage représentée en jaune, c est à dire éviter les zéros du bas et ne pas rester bloque à la dernière formule du bas
Je joins un fichier extra light pour plus de clarté
Merci d avance pour tout vos coup de mains

EetF

 

[Staple1600]

Re : copier les valeur >0

Bonjour

Il suffit d'utiliser le filtre élaboré non ?
(avec ou sans VBA)

Il y a de nombreux exemples faisant cela sur le forum.

IL suffira d'adapter à ta problématique.

Ps: tu peux aussi le faire par le filtre automatique.

 

[laurent950]

Re : copier les valeur >0

Bonsoir Evelynetfrancois et aussi le forum.

Peut être que ce bout de code vous conviedra.

Sub test()

FinA = Range("A65536").End(xlUp).Row

' Nettoyage
Find = Range("D65536").End(xlUp).Row
Range(Cells(2, 14), Cells(Find, 4)).ClearContents

' Remplissage
For Each c In Range(Cells(2, 1), Cells(FinA, 1))

If c <> 0 Then
r = r + 1
Cells(1 + r, 4) = c
End If

Next c

je vous joint le fichier

laurent

 

[Evelynetfrancois]

Re : copier les valeur >0

bonjour forum ...
Merci pour vos sujetions , je vais pouvoir (je pense) solutionner mon probleme grace à vous ...
bonne journée et encore merci
E et F