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

Macro suppression de ligne d'après une valeur définie dans une cellule

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

nicos76

Guest
Bonjour,

Je n'arrive pas à avancer sur ma macro, qui m'affiche le message d'erreur d’exécution 424 : objet requis.

Je souhaite supprimer les lignes dans mon onglet 'conso' qui contiennent un numéro présent en cellule K3 dans mon onglet 'saisie'. Sachant que ce numéro change régulièrement.

Voici mon code :

Do
If Application.WorksheetFunction.VLookup(Sheets("Saisie").Range("K3"), Sheets("Conso").Range("C:C"), 1, 0) Is Nothing Then
Exit Do
Else
Application.WorksheetFunction.VLookup(Sheets("Saisie").Range("K3"), Sheets("Conso").Range("C:C"), 1, 0).Activate
Selection.EntireRow.Delete
End If
Loop


Si il y a quelqu'un qui peut m'aider sur ce code j'en serai très reconnaissant.

Merci.
 
Trier par date Trier par votes
Re : Macro suppression de ligne d'après une valeur définie dans une cellule

Bonjour à toutes et à tous.

Bienvenue sur XLD, nicos76.

Peut-être ainsi ?

Code: 
Option Explicit
Sub Ligne_supprimer_selon_valeur_autre_onglet()
    Dim i As Long
    With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
    For i = Cells(Rows.Count, "c").End(xlUp).Row To 1 Step -1
        If Range("c" & i) = Sheets("saisie").Range("k3") Then Rows(i).Delete
    Next
    With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

A bientôt 🙂

P. S. : Coucou, job75 😀
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro suppression de ligne d'après une valeur définie dans une cellule

Bonjour nicos76, bienvenue sur XLD, hello DoubleZero 🙂

VLookup renvoie une valeur alors que .Activate s'applique à un objet.

De toute façon ce n'est pas une bonne méthode pour supprimer des lignes.

D'accord pour vous aider mais joignez votre fichier, allégé ou zippé, sans données confidentielles.

A+
 
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

J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
504
job75
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
552
Abi23
A
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
392
escudo
E
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
761
Phil69970
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
630
AtTheOne
Z
  • Question Question
Microsoft 365 Ajouter une étiquette de confidentialité via macro
Réponses
4
Affichages
3 K
onobyone
O
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
620
JJ69
J
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
1 K
Xender
X
L
  • Résolu(e)
XL 2019 VBA erreur de débutant dans une boucle snifff
Réponses
2
Affichages
614
Lionel69890
L
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
652
Mika07
M
D
  • Résolu(e)
XL 2016 Mettre l'année en cours dans la cellule active
2
Réponses
19
Affichages
2 K
Staple1600
L
  • Résolu(e)
Microsoft 365 Ajouter une ligne dans un tableau structuré
Réponses
8
Affichages
3 K
Lune999
L
M
  • Résolu(e)
XL 2016 mail en automatique dans excel destinataire en fonction de la valeur d une cellule
Réponses
11
Affichages
1 K
mathieu20
M
M
  • Question Question
XL 2019 Sélectionner une feuille avec nom dans une variable VBA
Réponses
4
Affichages
2 K
ManOfCatz
M
M
  • Question Question
Microsoft 365 faire une synthèse dans un classeur à partir d'un nombre aléatoire d'onglets
Réponses
5
Affichages
1 K
chris
C
  • Résolu(e)
Microsoft 365 Identifier une cellule dans une colonne en fonction d'un numéro identifier dans une autre cellule avec VBA
Réponses
2
Affichages
1 K
Carine35
C
B
  • Question Question
XL 2013 Interdire saisie de doublon et faire synthèse à chaque saisie
Réponses
5
Affichages
705
BIROULIG
B
X
  • Résolu(e)
Microsoft 365 supprimer seulement les doublons consécutives dans la même cellule
Réponses
6
Affichages
947
Xray
X
S
  • Résolu(e)
Microsoft 365 Bug de macro pour effacer une ligne
Réponses
4
Affichages
1 K
ShrekL
S
M
  • Question Question
Microsoft 365 Fonction Vlookup
Réponses
1
Affichages
1 K
youky(BJ)
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…