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

Effacer des lignes entiéres avec une boucle

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Yannnnick
  • 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
Y

Yannnnick

Guest
Bonjour à tous,

Je suis débutant en VBA et j'aimerais vous soumettre mon problème.
Je souhaite effacer des lignes dans un tableau et de façon récurrentes. Je m'explique :
Je pars de la ligne 10 puis je descends de 5 lignes, puis de 8 lignes puis de 13 lignes et je les efface. Je souhaite effectuer cette suite sur 6000 lignes.

Ex:
En partant de la ligne 5
(-) 3 lignes
(-) 5 lignes
(-) 8 lignes
Effacer
Puis en partant de la derniere ligne effectuer la meme suites :
(-) 3 lignes
(-) 5 lignes
(-) 8 lignes
Effacer


Voila, j'éspere avoir été assez clair.
Merci par avavnce pour votre réponse

A bientôt
 
Trier par date Trier par votes
Re : Effacer des lignes entiéres avec une boucle

Bonjour Ya(chiée de n...)ick, bonjour le forum,

Pas clair du tout... Je pense qu'un petit fichier exemple serait le bienvenu. Il monterait un tableau d'une centaine de lignes avec avant et après la macro. Attention, le code idéal pour effacer des lignes part de la dernière ligne et remonte...
 
Vote positif 0 Vote négatif
Re : Effacer des lignes entiéres avec une boucle

Bonjour Robert,

Voici un fichier exel avec des explications en plus. J'espère que cela sera plus clair.

Merci pour votre aide

Yannick
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Effacer des lignes entiéres avec une boucle

Bonjour à tous,

regarde ceci, si cela peut t'aider à avancer, à adapter à ton projet :
Code: 
Dim i As Long, j As Integer
For i = 1000 To 16 Step -16
    Rows(i).Delete
    Rows(i - 5).Delete
    Rows(i - 8).Delete
Next i

bon après midi
@+
 
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

M
  • Question Question
Microsoft 365 Automatisation de la date et des lignes sur Feuil1
Réponses
5
Affichages
741
Musbek
M
N
  • Question Question
XL 2021 Décompter des valeurs qui se répètent sur deux feuilles
Réponses
3
Affichages
256
Hecatonchire
H
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
402
NikonvsWild
N
  • Résolu(e)
Microsoft 365 Cohabitation des listbox avec des lignes "gelées"
Réponses
8
Affichages
345
fanch55
  • Résolu(e)
Microsoft 365 Powerquery - Total par Compte / lignes en insérant des colonnes
Réponses
5
Affichages
348
chris
P
  • Question Question
Microsoft 365 Problème lors de l'ajout de plusieurs lignes avec userform
2
Réponses
15
Affichages
536
vgendron
F
  • Question Question
Microsoft 365 Problème RECHERCHEV avec plusieurs correspondances possibles pour une même valeur
2
Réponses
15
Affichages
813
floflatch22
F
Y
  • Résolu(e)
XL 2016 Importer des données suivant l'ordre de passage
2 3
Réponses
32
Affichages
1 K
YGU1
Y
  • Question Question
XL 2019 Date et mise en forme conditionnelle
Réponses
5
Affichages
915
fanfan38
J
  • Résolu(e)
Microsoft 365 [RESOLU] VBA boucle, insertion plusieurs lignes, exécution formules, suppression sur si
Réponses
5
Affichages
845
Phil69970
  • Question Question
Power Query Ajouter des lignes à une table existante à partir d'un autre fichier
Réponses
13
Affichages
1 K
chris
F
  • Résolu(e)
XL 2021 recherche doublons dans colonne puis suppression des lignes
Réponses
5
Affichages
699
ftpo69
F
Y
  • Question Question
Microsoft 365 VBA - Basculer des lignes d'onglet en onglet selon un critère
2
Réponses
18
Affichages
1 K
yanus
Y
J
  • Question Question
XL 2021 Résolu - Extractions de valeurs Ligne pour créer des lignes isolées / Macro Séparer Valeurs
Réponses
14
Affichages
695
JM04082023!
J
B
  • Question Question
XL 2021 VBA pour générer une liste de valeurs comprise entre 2 valeurs
2
Réponses
16
Affichages
777
benjy555
B
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
B
  • Question Question
Microsoft 365 Bon de commande avec recapitulatif des lignes saisies sur une autre feuille
Réponses
1
Affichages
589
djidji59430
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
3 K
Banbara
B
X
  • Question Question
XL pour MAC Colorier une cellule dans les lignes impaires de mon tableau, dont la valeur est > à 150
2
Réponses
15
Affichages
1 K
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…