Suppression aléatoire de lignes

[Troudz]

Bonjour,

J'ai un tableau mensuel contenant X centaines lignes. Je dois à chaque fois en contrôler 20% de la façon la plus aléatoire possible. Donc difficile de faire confiance à la main de l'homme pour cela. Je me suis dit que Vba devait pouvoir supprimer 80% des lignes pour ne garder que celles à contrôler mais j'ai beaucoup de mal à utiliser la fonction Rand. Sauriez vous me mettre sur la voie ?

Merci pour votre aide

 

[Troudz]

Re : Suppression aléatoire de lignes

Merci JNP, effectivement ça marche mieux comme ça. Je savais qu'il y avait une référence à activer pour utiliser les dictionnaires mais impossible de me rappeler laquelle.

Par contre ça bloque toujours sur :

d.Add CStr(Int(1 + i * Rnd)), Int(1 + i * Rnd())

en me disant que cette clé existe déjà.

Voilà mon fichier test

 

[Troudz]

Re : Suppression aléatoire de lignes

JE SUIS UNE M********************* (pardon il fallait que ça sorte)🙄

Désolé pour le dérangement. Je n'avais pas vu que Roger2327 avait placé une gestion d'erreur. Et je suis toujours en mode "Arrêt sur toutes les erreurs".

Pardonné moi pour le dérangement.

Bonne soirée à vous trois et encore merci.

 

[ROGER2327]

Re : Suppression aléatoire de lignes

Re...

JE SUIS UNE M********************* (pardon il fallait que ça sorte)🙄
(...)

Moi pareil ! Je me fais avoir une fois sur deux avec cette histoire d'erreur géré ou non. (Mais c'est bien pratique...)

Mes excuses pour avoir oublié de signaler la nécessaire activation de Microsoft Scripting Runtime car on n'est pas obligé de le deviner.​

Bonne soirée.


ROGER2327
#5495

Vendredi 20 Gueules 139 (Saint Lafleur, valet - fête Suprême Quarte)
25 Pluviôse An CCXX, 7,4289h - lièvre
2012-W07-2T17:49:45Z

 

[Troudz]

Re : Suppression aléatoire de lignes

Tu es tout pardonné Roger.
C'est vrai que cette option est souvent pratique. Elle mériterait juste d'être plus facilement accessible dans l'interface et que son statut soit plus visible.

 

[ROGER2327]

Re : Suppression aléatoire de lignes

Bonjour à tous

La réactivation de ce sujet par GeoTrouvePas (https://www.excel-downloads.com/thr...vepas-suppression-aleatoire-de-lignes.178690/) m'a permis de voir que le code que j'ai donné plus haut ne fonctionne pas. La rédaction correcte de la ligne

d.Add CStr(Int(1 + i * Rnd)), Int(1 + i * Rnd())

est

d.Add CStr(Int(1 + i * Rnd)), Int(1 + i * Rnd(0))

Veuillez m'excuser pour cette erreur grossière.​

ROGER2327
#5507

Dimanche 22 Gueules 139 (Saint Sexe, Stylite - fête Suprême Première seconde)
27 Pluviôse An CCXX, 5,6603h - noisetier
2012-W07-4T13:35:05Z