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

Supprimer ligne si valeur égale à valeur sélectionnée dans l'InputBox

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

BChaly

XLDnaute Occasionnel
Bonjour à tous,

Le code suivant supprime la ligne correspondant à une cellule de la colonne "A" que je sélectionne.

Je souhaite supprimer automatiquement toutes les lignes égales à la même valeur que celle
qui figure dans la cellule sélectionnée dans "l'InpuBox" et dans cette même colonne "A".

Bien-sûr je pourrais sélectionner toutes les lignes à supprimer dans "l'InputBox" avec "Ctrl",
mais ceci semble difficile lorsque l'on a plusieurs centaines de lignes.

Merci pour votre aide.

Cordialement,

BChaly


Code: 
Sub SupprimeLigne()

Set Cel = Application.InputBox("Sélectionnez une Cellule !", Type:=8)
Cel.EntireRow.Delete

End Sub
 

Pièces jointes

Trier par date Trier par votes
Re : Supprimer ligne si valeur égale à valeur sélectionnée dans l'InputBox

Bonjour.

Comme ça, ça devrait aller :
VB: 
Sub SupprimeLigne()
Dim Cel As Range, F As Worksheet
Set Cel = Application.InputBox("Sélectionnez une Cellule !", Type:=8)
Set F = Cel.Parent
With F.UsedRange.Columns(F.UsedRange.Columns.Count + 1)
   .FormulaR1C1 = "=1/(RC" & Cel.Column & "=" & Cel.Address(True, True, xlR1C1) & ")"
   .SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
   .EntireColumn.Delete: End With
End Sub
 
Vote positif 0 Vote négatif
Re : Supprimer ligne si valeur égale à valeur sélectionnée dans l'InputBox

Bonjour Dranreb,

Excellent!!!

En ce qui me concerne, la formule:

Code: 
.FormulaR1C1 = "=1/(RC" & Cel.Column & "=" & Cel.Address(True, True, xlR1C1) & ")"

est difficile à comprendre, mais ça fonctionne parfaitement.

Merci pour votre aide.

Cordialement,

BChaly
 
Vote positif 0 Vote négatif
Re : Supprimer ligne si valeur égale à valeur sélectionnée dans l'InputBox

La formule vérifie si une cellule de la colonne est égale à celle sélectionnée. Vrai ou Faux. Converti en numérique: 1 ou 0. 1 divisé par ça donne 1 ou #DIV/0!. Il ne reste plus qu'a en atteindre les seules formules qui donnent la valeur numérique 1.
 
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

A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
587
sylvanu
T
  • Résolu(e)
XL 2013 Harmoniser valeur de cellules selon 2 variables
Réponses
4
Affichages
416
Thomas75
T
R
  • Question Question
XL 2016 "#valeur!" dans ligne et colonne et camemberts
Réponses
7
Affichages
539
Rikko14
R
EXCEL :: TCD :: SEGMENTS :: Identifier l'élément sélectionné dans le segment :: Modifier dynamiquement la valeur d'un segment :: VBA
Réponses
1
Affichages
841
oguruma
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
29
Affichages
2 K
TooFatBoy
  • Question Question
XL 2021 [Résolu] MFC et tableau structuré
Réponses
14
Affichages
1 K
jeff1494
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
366
Paulle
P
L
  • Résolu(e)
Microsoft 365 Retourner l'en-tête colonne correspondante à une quantité donnée dans une ligne
Réponses
4
Affichages
407
LegVal
L
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
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
851
Lu76Fer
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
795
sylvanu
M
  • Question Question
XL 2010 Comment alimenter automatiquement des cellules à partir d'une ligne sélectionnée dans un tableau?
Réponses
13
Affichages
1 K
ManuXZ
M
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
797
Julien_B
J
  • Résolu(e)
XL 2021 recherche supprimer les espaces '"si valeur cherchée est numérique" sinon NON
Réponses
7
Affichages
879
Usine à gaz
B
  • Question Question
Microsoft 365 [RESOLU] Supprimer Ligne rapidement et avec plusieurs conditions
Réponses
5
Affichages
541
BENAM69
B
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
488
eric72
E
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
1 K
salma_hayek
S
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
J
  • Question Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
X
  • Question Question
XL 2010 copier la valeur d'une cellule, si date du jour correspond à la date de la colonne...
Réponses
1
Affichages
747
djidji59430
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…