combinaison cherche/trouve/supprime dans une macros aplliquee a un USF

[ninanani]

Bonjour

J ai un userform qui fonctionne, j aimerais rajouter un bouton sur celui ci, qui dans une autre feuille chercherais la derniere ligne avec un nom en colone A, et ensuite surpimerais toute la ligne ou il y a ce nom.

Lorsque je cliquerais sur ce bouton, la macro irait voir en feuille "paiement", chercherais dans la colone A le dernier nom inscrit, et ensuite suprimerais toute la ligne de ce nom, et ce nom egalement.

Voili voilo,

Merci par avance de votre aide..

 

[mromain]

Re : combinaison cherche/trouve/supprime dans une macros aplliquee a un USF

bonjour ninanani

si j'ai mien compris ton PB, tu veux juste effacer la dernière ligne de ta feuille ?
si c'est bien ça, ce code devrai marcher :

With ThisWorkbook.Sheets("paiement")
    .Cells(.Rows.Count, 1).End(xlUp).EntireRow.Delete
End With

sinon, il faudrait un peu plus de précision, ou mieux un fichier exemple.

a+

 

[Guest]

Re : combinaison cherche/trouve/supprime dans une macros aplliquee a un USF

Hello,


Si le nom n'apparait qu'une fois dans la colonne, avec quelque chose comme ça

Dim c as range
 
Set c=sheets("paiement").Range("A:A").Find(What:=LeNom, LooKin:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows)
 
If Not c Is Nothing Then c.EntireRow.Delete

Mais toujours sans exemple plus explicite, difficile de répondre précisement.

A+

 

[ninanani]

Re : combinaison cherche/trouve/supprime dans une macros aplliquee a un USF

Re MRomain et Hasco.

Mromain avait bien compris, et sa solution fonctionne.
Merci a vous deux.