Suppression de lignes aléatoirement

[beubeuz]

Bonjour,

J'ai un fichier XL de 4992 lignes. Je désire supprimer aléatoirement 992 lignes.
Je suis niveau 0 en VBA mais je demande qu'à apprendre.
Quelqu'un aurait-il une idée pour la macro SVP?

Un grand MERCI !

Beubeuz

 

[pierrejean]

Re : Suppression de lignes aléatoirement

bonjour beubeuz

A tester

Sub test()
total = 4992
For n = 1 To 992
Randomize
noligne = Int((total * Rnd) + 1)
Rows(noligne).Delete
total = total - 1
Next n
End Sub

 

[beubeuz]

Re : Suppression de lignes aléatoirement

Ca marche !!!! Trop fort PierreJean. Chapeau bas ! Merci !
Beubeuz