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

[VBA] Suppression lignes avec critère dans cellule

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

PLE

Guest
Bonjour

J'ai besoin de supprimer dans une feuille DATA
les lignes complètes dont la valeur dans la colonne AF (avec entête)
est supérieur à (valeur + 1) que je rentre sur Feuil DATA en cellule AG1
et
inférieur à la valeur en Feuil DATA cellule AH1



merci de m'écrire le code complet de SUB à END SUB

Merci de votre aide
 
Trier par date Trier par votes
Re : [VBA] Suppression lignes avec critère dans cellule

Bonjour PLE,

A tester dans un module ou dans le projet de ta feuille:

Code: 
Sub SupprLng()

    Dim i As Long
    
    With Sheets("DATA")
    
        For i = .Range("AF65536").End(xlUp).Row To 2 Step -1
        
            If .Range("AF" & i).Value > .Range("AG1").Value + 1 And .Range("AF" & i).Value < .Range("AH1").Value Then
                
                .Rows(i).Delete
                
            End If
            
        Next i
        
    End With
    
End Sub

Bonne journée!
 
Vote positif 0 Vote négatif
Re : [VBA] Suppression lignes avec critère dans cellule

Bonjour,

Peut-être qu'un extrait du fichier sans données confidentielles aiderait pour la résolution de ton problème 🙂
J'ai testé ce code et il marchait parfaitement !
 
Vote positif 0 Vote négatif
Re : [VBA] Suppression lignes avec critère dans cellule

Re,

les lignes complètes dont la valeur dans la colonne AF (avec entête)
est supérieur à (valeur + 1) que je rentre sur Feuil DATA en cellule AG1
et
inférieur à la valeur en Feuil DATA cellule AH1
Cliquez pour agrandir...

Le problème ici c'est que la valeur en AG1 est de 4 et en AH1 est de 0 or une valeur ne peut pas être supérieure à 4 (+1) et inférieure à 0 en même temps ! S'il faut supprimer toutes les valeurs comprises entre 4(+1) et 0 il faut que la condition soit:

Code: 
If .Range("AF" & i).Value < .Range("AG1").Value + 1 And .Range("AF" & i).Value > .Range("AH1").Value Then


Plutôt que:

Code: 
If .Range("AF" & i).Value > .Range("AG1").Value + 1 And .Range("AF" & i).Value < .Range("AH1").Value Then

De plus, le nom de la feuille n'est pas "DATA" et au vue du nombre de données il est judicieux de rajouter un Application.ScreenUpdating = False pour accélerer le temps de traitement.

Le code:

Code: 
Application.ScreenUpdating = False

    Dim i As Long
    
    With Sheets("Lieferung_TLB")
    
        For i = .Range("AF65536").End(xlUp).Row To 2 Step -1
        
            If .Range("AF" & i).Value < .Range("AG1").Value + 1 And .Range("AF" & i).Value > .Range("AH1").Value Then
                
                .Rows(i).Delete
                
            End If
            
        Next i
        
    End With
    
Application.ScreenUpdating = True
 
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

  • Question Question
XL 2019 imprimer une zone variable en vba
Réponses
2
Affichages
117
job75
J
  • Résolu(e)
Microsoft 365 calcul somme dans tableau selon critère
Réponses
2
Affichages
445
JBL07
J
P
  • Résolu(e)
Microsoft 365 Suppression lignes par rapport à une date
2 3 4
Réponses
50
Affichages
1 K
pierrof
P
P
  • Question Question
Autres moyenne de plusieurs lignes et colonnes sous deux conditions
Réponses
8
Affichages
416
podarck
P
A
  • Question Question
XL 2016 Utilisation de "gauche" avec "somme.si"
Réponses
9
Affichages
159
job75
W
  • Résolu(e)
XL 2016 Lignes vba "Saut de page" qui empêchent l'ouverture des Userform sur toutes les feuilles
Réponses
8
Affichages
118
Webperegrino
W
  • Question Question
XL 2019 Application.Run
Réponses
3
Affichages
257
Atiom
P
  • Résolu(e)
XL 2021 peut on mettre plusieurs fonctions si erreur index les une à la suite des autres
Réponses
9
Affichages
283
PR.
P
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
346
Marie.
M
  • Question Question
Microsoft 365 Recherche info pour remplir fiche
Réponses
4
Affichages
379
pompaero
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
633
spike29
S
S
  • Résolu(e)
XL 2021 enregistrer xltm en xlsm avec chemin automatiquement
2
Réponses
27
Affichages
598
TooFatBoy
C
  • Résolu(e)
XL 2021 Reporter la valeur d'une cellule dans le pied de page.
2
Réponses
17
Affichages
305
sylvanu
R
  • Question Question
XL 2021 Recherche formule pour compléter une cellule a partir des données d'une autre feuille du classeur (16/03/2026)
2
Réponses
18
Affichages
590
laurent950
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
459
juju91
J
Y
  • Résolu(e)
XL 2013 Bloquer la saisie dans une plage selon un critère
Réponses
6
Affichages
687
TooFatBoy
  • Question Question
Microsoft 365 Formules plusieurs conditions
Réponses
4
Affichages
313
Bea78
R
  • Question Question
Microsoft 365 aide recherche multiple entrées d'une cellule dans colonne
2
Réponses
16
Affichages
2 K
richard31
R
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
689
job75
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
456
sebastien176
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…