eliminer les indesirables

[sonskriverez]

Bonjour à tous

Comme il neige autant s'occuper à bosser un peu

Voila mon problème, jai une feuille énorme 30 colonnes 3800 lignes.
dans les cellules de cette feuille il y des infos du style NU, SU, 0, 1, 2...
Je voudrais à l'aide d'une macro :

1°) conserver que les 2 ou les NU
2°) eliminer les colonnes qui seront vides après le point 1

Merci de vore aide

 

[porcinet82]

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.

@+

 

[sonskriverez]

merci pour ton aide