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

Supprimer ligne

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

A

archimede781

Guest
Bonsoir,

Voilà, dans le fichier joint je voudrai par bouton (macro) supprimer la ligne du tableau
à partir de la valeur que j'ai sélectionné dans la cellule R2

Exemple je selectionne "Didier", je supprime la ligne 7 du tableau.

Merci

Archi781
 
Re : Supprimer ligne

Bonjour,
Juste une petite modif.
Est il possible dans la macro que tu m'as donné hier de supprimer égalent sur l'onglet "Table" la lugne contenant le même nom ?
Merci

Arch781
 
Re : Supprimer ligne

Je l'envoie...je suis parfois étourdit, c'est le lot des génies .
(Ma tendre et fidèle épouse n'est pas d'accord penchant plutôt pour un Alzheimer précoce)
 
Re : Supprimer ligne

Problème,
J'ai voulu adapter à mes données mais lorsque je lance le bouton [supprimer adhérent], la ligne est bien supprimée sur la feuille "Liste adhérents" mais sur la feuille "Table" il y a : #REF! dans les cellules et la ligne n'est pas supprimée.
je joins le nouveau fichier.
merci
Archi781
 
Re : Supprimer ligne

Et oui ,

Dans table , tu as décalé les informations d'une colonne donc le code doit devenir :

Code:
Sub Supprime()
Dim Trouve As Range

Set Trouve = Range("C:C").Find(Range("M2"), lookat:=xlWhole)
If Not Trouve Is Nothing Then Rows(Trouve.Row).Delete

'Set Trouve = Sheets("Table").Range("B:B").Find(Range("M2"), lookat:=xlWhole) ' Ancienne ligne

Set Trouve = Sheets("Table").Range("C:C").Find(Range("M2"), lookat:=xlWhole)
If Not Trouve Is Nothing Then Sheets("Table").Rows(Trouve.Row).Delete
End Sub
 
- 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
Microsoft 365 bouton supprimer
Réponses
4
Affichages
210
  • Question Question
Microsoft 365 Remplissage auto
Réponses
14
Affichages
257
Réponses
7
Affichages
597
  • Question Question
Microsoft 365 Tableau
Réponses
5
Affichages
254
Réponses
2
Affichages
419
Réponses
11
Affichages
327
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…