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

Supprimer ligne

Créer une discussion
  • 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 !

S'inscrire
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
 
Trier par date Trier par votes
Re : Supprimer ligne

Bonjour Archi ,

Et bien , du fil à retordre , cela vient des liens je crois , bisard , ( Enfin moi j'utilise jamais de lien )

bon , peut être comme cela , a oui , attention aux listes nommées, tu en à plein qui sont erronnées.

Code: 
Sub Supprime()
Dim Trouve As Range
Dim Ligne As Long

Set Trouve = Range("C:C").Find(Range("M2"), lookat:=xlWhole)
If Not Trouve Is Nothing Then
 Ligne = Trouve.Row
 Rows(Ligne).Delete
 Sheets("Table").Rows(Ligne - 2).Delete
 LigneFin = Sheets("Table").Range("C" & Rows.Count).End(xlUp).Row
 Range("M2").ClearContents
 With Range("M2").Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Table!$C$3:$C$" & LigneFin
      .IgnoreBlank = True
      .InCellDropdown = True
      .InputTitle = ""
      .ErrorTitle = ""
      .InputMessage = ""
      .ErrorMessage = ""
      .ShowInput = True
      .ShowError = True
 End With
End If

End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Supprimer ligne

Madré de Dios comme disait mon ancêtre Ibère, bien qu'anar athée,à ,na pas confondre avec le canard au thé, spécialité de mes amis Écossais Anna et Malcom, qui bien que citoyens britanniques, ont tendance à remplacer le thé par du vin rouge ! Mais je m'éloigne, je m'éloigne.
Madré de Dios disais je donc. J'avais décelé le problème mais ne savais comment le résoudre. Enfin de façon simple parce que les "usines à gaz" je sais faire, mais je préfère vos solutions.
Encore Merci.
Autre chose très cher Garci...(Vous permettez que je vous appelle Garci ?), si vous passez par la Bourgogne n’oubliez pas de faire un signe, je serai heureux de rencontrer celui que je considère désormais comme la RÉFÉRENCE ABSOLUE de VBA !
Bonne journée.
Gérard
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Supprimer ligne

Tchik it chik it chik aïelalaïe......Tout passe mieux en chanson

Cher Garci, si j'osais mais j'ose bien sur, je demanderai de rajouter dans la macro "Supprimer" du fichier joint, également la suppression de la ligne contenant le nom de l'adhérent de la feuille "Consommation".
Donc dans les trois feuilles, la ligne contenant le nom de l'adhérent sélectionné en M2 de la feuille "Liste des adhérents"
doit disaparaitre.

Merci qui ?

Merci Garciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii !
 
Vote positif 0 Vote négatif
Re : Supprimer ligne

Bonjour Archi ,

Bien gai ce matin, tant mieux ,

Voici le code à mettre en lieu et place du précédent .

Code: 
Sub Supprime()
Dim Trouve As Range
Dim Ligne As Long

Set Trouve = Range("D:D").Find(Range("M2"), lookat:=xlWhole)
If Not Trouve Is Nothing Then
 Ligne = Trouve.Row
 Rows(Ligne).Delete
 Sheets("Consommation").Range("C" & Ligne + 5 & ":DZ" & Ligne + 5).Delete
 Sheets("TABLE").Rows(Ligne - 2).Delete
 LigneFin = Sheets("TABLE").Range("C" & Rows.Count).End(xlUp).Row
 Range("M2").ClearContents
 With Range("M2").Validation
      .Delete
      .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=TABLE!$C$3:$C$" & LigneFin
      .IgnoreBlank = True
      .InCellDropdown = True
      .InputTitle = ""
      .ErrorTitle = ""
      .InputMessage = ""
      .ErrorMessage = ""
      .ShowInput = True
      .ShowError = True
 End With
End If

End Sub
 
Vote positif 0 Vote négatif
Re : Supprimer ligne

Garci,

je suis bien embêté, car si le code fonctionne avec le petit fichier exemple, part contre sur mon fichier définitif, il y a un bug, et je ne sais pas le réparer. Y a t'il un moyen de t'envoyer ce fichier en privé car il comprends des données que je ne voudrai pas voir circuler ici ! Rien d'illégal mais des adresses et de N° de tel.

Merci de ta réponse
 
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

B
  • Résolu(e)
Microsoft 365 modifier des lignes
Réponses
5
Affichages
221
Hecatonchire
H
K
  • Question Question
Microsoft 365 bouton supprimer
Réponses
4
Affichages
210
kingbeck
K
R
  • Question Question
Microsoft 365 Remplissage auto
Réponses
14
Affichages
256
Nain porte quoi
N
B
  • Question Question
XL 2019 Extraction glyphes arabe
Réponses
7
Affichages
597
bazzi
B
T
  • Résolu(e)
Microsoft 365 Macro pour changer la couleur d'une cellule si...
2 3
Réponses
36
Affichages
2 K
Toubabou
T
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
222
sylvanu
F
  • Question Question
XL 2016 recherche données et collage
Réponses
4
Affichages
134
finarobert
F
M
  • Résolu(e)
Microsoft 365 $ Macro pour copier un exemple et$.....
Réponses
9
Affichages
450
sousou
J
  • Résolu(e)
Microsoft 365 calcul somme dans tableau selon critère
Réponses
2
Affichages
371
JBL07
J
G
  • Question Question
Microsoft 365 Tableau
Réponses
5
Affichages
254
ALS35
A
P
  • Question Question
Autres moyenne de plusieurs lignes et colonnes sous deux conditions
Réponses
8
Affichages
327
podarck
P
B
  • Question Question
XL 2021 Ajout dans ligne vba
Réponses
2
Affichages
419
sylvanu
  • Question Question
XL 2016 Transformer la mise en forme d'un tableau
2
Réponses
22
Affichages
751
Cousinhub
M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
250
Marie.
M
  • Question Question
XL 2019 Ajout d'un bouton DELETE sur mon USF
2 3
Réponses
43
Affichages
2 K
Phil Du59
F
  • Question Question
XL 2016 [VBA] Coller du texte sans formatage
Réponses
8
Affichages
86
F22Raptor
F
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
234
job75
D
  • Question Question
XL 2021 Récap excel toutes versions si possible
Réponses
12
Affichages
324
job75
  • Résolu(e)
Microsoft 365 Pointer vers une Ligne/Case selon une sélection
Réponses
10
Affichages
293
Magnio
F
  • Question Question
Microsoft 365 Tableau Excel mettre une couleur
Réponses
11
Affichages
327
chris
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…