L
LaurentG
Guest
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 :
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
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 :
Code:
Set atrouve = ActiveWorkbook.Sheets('EN71-1s').Range('A:A').Find('4.1')
Range(atrouve.Address).Select
Rows(atrouve.Address).Delete Shift:=xlUpMais 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