Suppression de cellule dans excel

Question

Il y a quinze jours que je galère sur ce code...
Le but, récuperer des données dans "mon fichier txt", et supprimer dans une feuille excel le bloc portant le nom de cette donnée. J'utilise ici la variable "signet". 
Soit je supprime toutes mes lignes de mon tablo excel, soit j'ai un plantage !!!!!!GRRRRRR

Cette instruction et le même type de commande fonctionne à merveille sous word.

Si qqn a une solution, je vous remercie par avance.

Private Sub Command1_Click()
Set appExcel = CreateObject("Excel.Application")
Set wbexcel = appExcel.Workbooks.Open("mon fichier excel")
Set wsExcel = wbexcel.Worksheets("mafeuille")
   appExcel.Visible = True
Open "mon fichier txt" For Input As 2
While Not EOF(2)
Input #2, Signet
If wbexcel.Application.Find(Signet) = True Then

wbexcel.Application.GoTo Reference:=Signet
wbexcel.Application.Selection.Delete Shift:=xlUp
End If
Wend
Close 2
ActiveWorkbook.SaveAs FileName:="mon nouveau fichier excel"
End Sub

ndsaerith · Answer

TU veus dire effacer ce qu'il y a dans la cellule?
Si c ça ben remplace le contenu par "" tout simplement, sinon, est ce que tu as essayer d'enregistrer une macro?

adjointstaso · Answer

Il s'agit de supprimer la cellule entiere et non son contenu. Le pb c'est que dans mon fichier .txt, je peux avoir des noms de cellule mais aussi autre chose alors quand signet= autre chose qu'une cellule présente, il y a plantage.
La macro sosu excel marche .....

ndsaerith · Answer

Ben en fait je savais même pas qu'on pouvait supprimer carrément la cellule. Pourquoi tu veux la supprimer complètement?
Sinon ben essaye avec un else si y en a pas déja pour eviter le bug si c autre chose que ce qu'il y a, un truc genr une msg box qui dit que la donnée trouvée n'est pas présente sous excel et ne peut donc être effacée.

Suppression de cellule dans excel

3 réponses

Discussions similaires