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

XL 2016 Vérifier si valeur présente et supprime ligne

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

Fipat

XLDnaute Occasionnel
Bonjour,

Je bloque sur un code.
je veux vérifier si en colonne B j'ai une valeur sur la dernière ligne et vérifier sur la première cellule vide de la colonne A qu'il n'y à rien.
Si c'est bien le cas je veux supprimer cette ligne.
VB: 
Sub test()
Dim a$, b$
Dim X&
a = Sheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row + 1
b = Sheets("Feuil1").Cells(Rows.Count, 2).End(xlUp).Row
If a = "" And b <> "" Then
MsgBox "la ligne va être supprimée"
For X = Cells(b, 2).CurrentRegion.Rows.Count To 1 Step -1
   If Cells(X, 2).Value <> ""  And Cells(X, 1).Value = "" Then Cells(X, 1).EntireRow.Delete
Next
End Sub

Merci 🙂
 
Solution
avec le code proposé au post précédent, ca le fait

si tu ne veux supprimer QUE la dernière ligne (et laisser les autres lignes sans les vérifier) suffit de ne pas faire la boucle for
LastLineColB=range("B" &rows.count).end(xlup).row
if range("A" &LastLineColB)="" and range("B" &LastLineColB)<>"" then rows(LastLineColB).delete
Trier par date Trier par votes
Bonsoir

je ne comprend pas ce que tu souhaites faire...
sur la col B, tu vas à la fin de ton tableau, et si la col A n'est pas renseignée, alors tu supprimes la ligne
à priori ton test si a="" and b<>"" te dit bien s'il faut supprimer la ligne
mais.. pourquoi faire un for X=.. ??*
avec un fichier, ce serait aussi plus clair.. sans doute;.
 
Vote positif 0 Vote négatif
Merci vgendron pour tes réponses.
Un fichier en exemple, même si celui-ci ne me semble pas explicite.
Dans cet exemple je veux supprimer la ligne 6.
Merci pour de ton intérêt à ma requête.
🙂
 

Pièces jointes

Vote positif 0 Vote négatif
avec le code proposé au post précédent, ca le fait

si tu ne veux supprimer QUE la dernière ligne (et laisser les autres lignes sans les vérifier) suffit de ne pas faire la boucle for
LastLineColB=range("B" &rows.count).end(xlup).row
if range("A" &LastLineColB)="" and range("B" &LastLineColB)<>"" then rows(LastLineColB).delete
 
Vote positif 0 Vote négatif
Solution
Bonjour,

Désolé de ne pas avoir pu répondre plus tôt.
Ceci fonctionne parfaitement.
Merci.
VB: 
LastLineColB=range("B" &rows.count).end(xlup).row
if range("A" &LastLineColB)="" and range("B" &LastLineColB)<>"" then rows(LastLineColB).delete
 
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

Discussions similaires

  • Question Question
XL 2021 Ouvrir une application et vérifier si elle est déjà ouverte
Réponses
4
Affichages
136
Jojo973
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
151
patricktoulon
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
347
TooFatBoy
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
494
Webperegrino
W
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
199
sylvanu
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
400
VBA_dev_Anne_Marie
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
301
AtTheOne
N
  • Résolu(e)
XL 2013 Vérifier ci cellule pleine : réponse cellule adjacente
Réponses
3
Affichages
263
Nico77
N
A
  • Résolu(e)
XL 2019 Remplacer un mot et ajouter une couleur
Réponses
7
Affichages
374
Attila451
A
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
242
patricko-13
P
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
260
un internaute
U
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
249
kiki29
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
167
Electron24
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
778
Gestionnaire_rh
G
  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
208
dysorthographie
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
315
un internaute
U
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
2 K
francescofrancesco
F
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
502
job75
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
314
KRUG WOO
K
P
  • Résolu(e)
XL 2013 EXCEL VBA
Réponses
2
Affichages
422
pangasoul
P
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…