Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Suppression de lignes aléatoirement

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion beubeuz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

beubeuz

Guest
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
 
Trier par date Trier par votes
Re : Suppression de lignes aléatoirement

bonjour beubeuz

A tester

Code: 
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2019 Import fichier ".txt" avec des caractères cachés qui gênent l'import
2
Réponses
22
Affichages
689
job75
Y
  • Question Question
Power Query Besoin d'aide pour configurer un power query
Réponses
3
Affichages
271
alexga78
A
C
  • Résolu(e)
XL 2016 Macro masquer certaines lignes en fonction de l'état d'une cellule (vide ou pas)
Réponses
2
Affichages
243
Chris1263
C
O
  • Résolu(e)
XL 2013 Macro qui duplique les lignes d'un tableau en fonction d'un nombre précis
Réponses
7
Affichages
357
Staple1600
F
  • Question Question
Microsoft 365 Macro copie colle si condition
Réponses
9
Affichages
361
Jacky67
  • Résolu(e)
Microsoft 365 Comment supprimer un espace entre deux chiffres ?
2
Réponses
18
Affichages
785
Staple1600
O
  • Question Question
XL 2019 Mise a jour prix en fonction de la date
Réponses
8
Affichages
507
Ocbpatate
O
A
  • Résolu(e)
Microsoft 365 Demande d'aide sur des extractions de lignes
Réponses
7
Affichages
402
agayet
A
A
  • Question Question
XL 2016 Mise à jour stock pour articles avec nomenclature
Réponses
5
Affichages
364
vgendron
  • Question Question
Microsoft 365 Insérer une image dans un usf ?
2 3
Réponses
32
Affichages
1 K
Marc Vanlindt
M
W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
596
crocrocro
C
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
574
fanch55
B
  • Résolu(e)
XL 2013 Suppression d'une ligne selon la valeur d'une cellule
Réponses
10
Affichages
793
bertilemeusien
B
  • Résolu(e)
XL 2019 Fichier ".txt" de plus de 2.000.000 de lignes !
5 6 7
Réponses
99
Affichages
5 K
job75
F
  • Résolu(e)
XL 2021 recherche doublons dans colonne puis suppression des lignes
Réponses
5
Affichages
699
ftpo69
F
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
683
sousou
D
  • Question Question
XL 2010 suppression de lignes dans un fichier EXCEL via une routine en VBA
Réponses
2
Affichages
739
mapomme
S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
560
sofmat
S
Z
  • Question Question
XL 2010 Empêcher la demande de sauvegarde pour un fichier non modifié utilisant un Complément Xlam
5 6 7
Réponses
96
Affichages
3 K
Zorgloub
Z
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…