Aide macro tri donnees

[doublenico]

Bonjour,

Chaque semaine je reçois un fichier et toutes les donnes ne me concernent pas, je souhaiterai donc, à partir d'une macro, ne garder que la partie qui me concerne.
Dans le cas présent, je souhaite garder seulement ce qui concerne la chine. Il faudrait donc que lorsque je lance la macro, que la macro efface toutes les donnees sauf celles de la Chine puis qu'elle enregistre la version de ce document sans ecraser le fichier source sous un autre nom. J'essaye de faire des 'enregistrement macro' mais sans succès.

exemple fichier :

PF Projet

1 xx 2-mai L x
1 xxxx 10-oct. K x
2 yy 30-mai J y
2 yyy 20-juil. J
3 zzz 23-mai J z
3 zzzz 21-juil. J
Chine 1-juin J c
Merc 21-juin J m

La fonction pièce jointe ne fonctionnait elle pas avant?

Merci

 

[porcinet82]

Salut doublenico,

La fonction pièce jointe à été désactivé par David en raison d'un problème de sécuriter lié au fichier excel (plus de détails Lien supprimé)

Tu peux cependant mettre un fichier joint en passant par un site tel que Cjoint.com

@+

 

[doublenico]

Merci porcinet82

Je connaissais pas.
Voici donc l'url pour mon document excel qui sera bien plus parlant.

http://cjoint.com/?gxpoHd3Zol

 

[porcinet82]

re,

Voici un code qui fait ce que tu souhaites.

Sub test()
Dim i%

With Sheets('Hebdo sem 12')
    For i = .Range('D65536').End(xlUp).Row To 11 Step -1
        If Not LCase(.Cells(i, 4).Value) = 'chine' Then
            .Rows(i).Delete
        End If
    Next i
End With
ActiveWorkbook.SaveAs Filename:='C:\\Documents and Settings\\Moi\\Bureau\\Chine.xls'
End Sub

Je te laisse le soin d'adapter le chemin d'enregistrement.

@+

 

[doublenico]

Merci beaucoup, ca marche tres bien !!!