supprimer ligne d'un tableau excel

Bonjour au forum,
je fait appel à vous car je posséde un code (voir PJ), mais je voudrais que quand je clique sur le bouton "supprimer" cela détruise les informations correspondantes à la recherche?
Merci par avance et je reste disponible pour plus d'informations.

Bonjour,

une fois que tu connais la ligne à supprimer (un numero dans une variable) :

Code:

---

1 2	ligne = 20 Rows(ligne).Delete Shift:=xlUp

---

dans cet exemple, la ligne 20 est supprimé


PS : n'hésite pas à mettre du code dans tes messages, c'est plus simple que des pièces jointes pour discuter dessus. :mrgreen:

Merci pour ton aide,
sinon je connait le code permettant la suppression mais je ne sais pas par rapport à mon code lui dire quelle ligne il doit supprimer
Comme tu l'as dit il faut surment déclarer une variable à laquelle tu affecte la valeur de la ligne à supprimer mais je n'y arrive pas.
Merci

pour connaitre la ligne à supprimer il suffit de faire une boucle qui recherche un élément particulier dans une colonne et d'incrémenter la variable. si c'est pas clair un exemple :

Code:

---

1 2 3 4

ligne = 1 While feuil.Cells(ligne, 1) = ElementSelection ligne = ligne + 1 Wend

---

donc dès que tu trouve ce qu'il y a dans la variable ElementSelection, ligne correspond à la ligne à supprimer.
;)

Je tape sa et sa ne marche pas saurait tu pourquoi?

Code:

---

1 2 3 4 5 6 7 8

ligne = 2 Selection = montextbox While Sheets("proc").Cells(ligne, 1) <> Selection ligne = ligne + 1 Wend Sheets("proc").Rows(ligne).Delete MsgBox (" Suppression réalisé avec succès")

---

Je pense qu'il faudrait les correction suivantes :

Code:

---

1 2 3 4 5 6 7

ligne = 2 Selection = montextbox.Value While StrComp(Cstr(Sheets("proc").Cells(ligne, 1), Selection,vbTextCompare)<>0 ligne = ligne + 1 Wend Sheets("proc").Rows(ligne).Delete MsgBox (" Suppression réalisé avec succès")

---

il ne reste plus qu'à tester:king:


Désolé pour cette réponse tardive, mais je ne me suis pas connecté dépuis...;)