eliminer les indesirables

salut sonskriverez,

Quelle chance tu as d'avoir de la neige, sur la cote sa arrive pas tres souvent.

pour la premiere partie de ta question voila une solution mais qui devrait prendre pas mal de temps etant donné la taille de ton fichier.


Sub test()
Dim val As Variant

Application.Goto Sheets('feuil1').Range('A2')
For j = 1 To Range('A1').End(xlToRight).Column
For i = 2 To 3800
If Cells(i, j).Value <> 'NU' And Cells(i, j).Value <> '2' Then
Cells(i, j).ClearContents
End If
Next i
Next j
End Sub


Par contre pour la 2eme partie, je pense qu'il faudrait passer par For Each mais je ne sais pas trop comment ca fonctionne alors je laisse a quelqu'un d'autre le soin de le faire.

@+

merci pour ton aide