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

Créer un contrôle sur des lignes, avec suppression des lignes si données présentes

  • Initiateur de la discussion Initiateur de la discussion rugbyman
  • 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 !

R

rugbyman

Guest
Bonsoir à tous !

Je vous soumet un petit problème que je n'ai pas réussi à solutionner.

Après quelques recherches ici ou là, je n'ai pas trouvé la solution.

Voici le problème :

J'ai une feuille de calcul avec des lignes de données, qui s'incrémentent au fur et à mesure de saisies.

Je souhaiterais faire un contrôle de ces lignes, et si il y a des données dans la cellule 'L' de ma ligne, alors supprimer la ligne entière, si la cellule est vide, passer à la ligne suivante, jusqu'à ce qu'il n'y ait plus de ligne.

Il faut surement utiliser une boucle, mais malheureusement mes connaissances ne sont que très limitées.

Peut être avec un If then, non ?

Merci d'avance pour votre aide,

Rugbyman.
 
Re : Créer un contrôle sur des lignes, avec suppression des lignes si données présent

Bonsoir Doublezero,

Je te remercie, c'est exactement ça !

j'ai juste fait une modif, car il me supprimait également la première ligne, avec mes titres.

J'ai fait comme ca :

code :
Application.ScreenUpdating = False
Dim i As Long
Application.ScreenUpdating = False
For i = Range("L" & Rows.Count).End(xlUp).Row To 2 Step -1
If Range("L" & i).Value <> "" Then Rows(i).Delete
Next
Application.ScreenUpdating = True

Juste modifié le Row to 1 en row to 2.

Ca a l'air de bien fonctionner.

Je te remercie pour ton aide et te souhaites une bonne soirée !

Amicalement,

Rugbyman47.
 
Re : Créer un contrôle sur des lignes, avec suppression des lignes si données présent

bonjour rugbyman, DoubleZero 🙂🙂🙂

dans certains cas peut être suffisant!!

Code:
 [l2:l50000].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…