copier sur une autre feuille

[jean]

Bonjour forum,

je vais essayer de vous exposer clairement mon problème.

Dans le cadre d'un tableau j'ai mis en place une macro qui me permet de compiler des lignes qui ne sont pas renseignées pour ne conserver que celles qui m'intéresse.

Je souhaiterai que cette même macro copie certaines lignes qui n'apparaissent pas dans ce tableau compilé au sein d'une feuille2 pour tirer des graphiques de certains sous totaux (vous l'avez compris le tableau qui apparait sur la feuille 1 n'est constitué que de grands totaux).

Grand débutant en la matière j'ai essayé la fonction pastespecial sans succès.

merci par avance
Jean

 

[ZON]

Bonjour à tous,

Jean un bout de ton code nous éclairerait ...


A+++

 

[jean]

Private Sub CommandButton1_Click()
Dim val
For Each val In Range("b27:b75,b77:b145,b146:b168,b174,b176:b187")
If val.Value = 0 Or val.Value = "" Then
Range("A" & val.Row).Select
Selection.EntireRow.Hidden = True
End If
Cells(25, 2)(27, 2)(77, 2)(146, 2).Select
For Each val In Cells(25, 2)(27, 2)(77, 2)(146, 2)
If val.Value > 0 Then
Selection.Copy
Sheets("1").Select
Range("b2").Select
Selection.PasteSpecial Transpose = True
Sheets("4").Select
Range("a1).Select
enf if
Next
end sub

J'ai oublié de préciser dans mon premier message que les lignes qui doivent figurer dans la deuxième feuille ne doivent pas être nul sous peine d'avoir des grahiques remplies de partie à valeur nulle.