Suppression de ligne dans Excel

Suppression de ligne dans Excel - VB/VBA/VBS - Programmation

Marsh Posté le 16-02-2009 à 10:47:59    

Bonjour à tous,
 
J'ai un outils Excel codé en VBA qui fonctionne bien sauf qu'il lui manque une macro.
En fait, l'outil fait plein de calcul en fonction des données et ajoute une ligne dans une autre feuille de ce fichier...
 
Cependant, si l'on se trompe, on est obligé de supprimer cette(ces) ligne(s) à la main et il peut y en avoir plus de 50...
Sachant que cette feuille serte ensuite pour d'autres calcul donc ils sont tous faussés...
 
Voilà mon code :

Code :
  1. 'Suppression des données présentes ce jour
  2.   Set EOMSuppr = Application.Workbooks.Open("RM" & Format(MeC, "yyyymm" ) & ".xls" ) //Ligne d'erreur
  3.   EOMSuppr.Activate
  4. With EOMSuppr.Sheets("EOM" )
  5.     Dim i_row As Integer
  6.     Do While ThisSheets.Range(Cells(i_row, 0)).Value <> ""
  7.         If ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 1)).Value = Format(MeC, "dd/mm/yy" ) Then
  8.             ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 0)).Value = ""
  9.             ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 1)).Value = ""
  10.             ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 2)).Value = ""
  11.             ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 3)).Value = ""
  12.             ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 4)).Value = ""
  13.             ThisWorkbook.Sheets("EOM" ).Range(Cells(i_row, 5)).Value = ""
  14.         End If
  15.         i_row = i_row + 1
  16.     Loop
  17. End With


 
L'erreur retourné est : Erreur définie par l'objet


Message édité par zenko le 16-02-2009 à 10:48:36
Reply

Marsh Posté le 16-02-2009 à 10:47:59   

Reply

Marsh Posté le 17-02-2009 à 16:27:46    

Bonjour
 
Bizarre. 'MeC' est quel type de variable et contient quoi ?
 
Cordialement


---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed