Supprimer ligne

[archimede781]

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

 

[camarchepas]

Re : Supprimer ligne

Bonsoir Archi ,

Es-tu sur de vouloir cela ? ,

si tu as 2 personnes ayant le même prénom tu supprimes les 2

 

[archimede781]

Re : Supprimer ligne

Oui, car pour l'exemple j'ai mis des prénoms, mais en vérité, c'est des noms !
J'suis pas simple hein ?

 

[camarchepas]

Re : Supprimer ligne

Re ,

des Martin, y'en à plein aussi,

Enfin :

 

[archimede781]

Re : Supprimer ligne

Des Martin ...Oui, mais chez moi en Bourgogne, y'a pas d'ânes mais des bœufs !

Merci c'est exactement ce que je voulais faire.

 

[misteryann]

Re : Supprimer ligne

Bonsoir.

Perso, je prends le code, il me servira plus tard, je pense...

Merci

 

[archimede781]

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

 

[camarchepas]

Re : Supprimer ligne

Bonjour Archi ,

Si je pouvais avoir le fichier avec l'onglet Table pour tester , ce serait divin .

 

[archimede781]

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)

 

[camarchepas]

Re : Supprimer ligne

Re ,

Archi , J'espère sincèrement que ce ne soit pas ce foutu crabe .......

en attendant, voici avec la modification .

Par prudence , j'ai considéré que le nom pouvait ne pas être au même endroit .

 

[archimede781]

Re : Supprimer ligne

Que ferais je sans vous ?

Merci beaucoup !

GG

 

[camarchepas]

Re : Supprimer ligne

Les Chinois ont inventés le boulier et j'étais pas là , lol ...... ( Enfin je crois pas)

 

[archimede781]

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

 

[camarchepas]

Re : Supprimer ligne

Et oui ,

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

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

 

[archimede781]

Re : Supprimer ligne

J'ai remplacé le code mais j'ai toujours le même problème, la ligne de la feuille Table n'est pas supprimée !

Au secours