Supprimer une ligne

[LaurentG]

Bonjour,

J'ai un petit problème.
Je fais une recherche de valeur dans un classeur. une fois celle-ci trouvée je selectionne la cellule et ensuite je voudrais supprimé la ligne concernée.

Voici le code que j'utilise :

Set atrouve = ActiveWorkbook.Sheets('EN71-1s').Range('A:A').Find('4.1')
Range(atrouve.Address).Select
Rows(atrouve.Address).Delete Shift:=xlUp

Mais il bloque à la dernière ligne. Le 'atrouve.address' doit être remplacé par autre chose mais je ne sais pas quoi.

Quelqu'un peut m'aider?

Merci

Laurent

 

[Toutou]

Bonjour LaurentG,
Essaies:

' Selection.Delete Shift:=xlUp '

Je pense que ça pourrait marcher...
@ +
Toutou

 

[PascalXLD]

Bonjour

En plus simple si tu veux

atrouve = ActiveWorkbook.Sheets('EN71-1s').Range('A:A').Find('4.1').row

Rows(atrouve).Delete

Bon courage