message erreur "debug 1004" ???

[palermo59]

Bonjour,
Je suis réellement un novice en vba.
Je fais tourner ma macro mais je reçois ce message d'erreur :"debug 1004" ???
J'ai fait une recherche sur le net, j'ai cru que le problème venait de "valeur relative/valeur absolue". Mais rien n'y fait.😡
je reçois un fichier; et je veux appliquer ceci:
1) Supprimer la colonne [A]
2) effacer la cellule [A1] en deplaçant les autres cellules de la lignes vers la gauche
2) supprimer les lignes dont le mot est "OPEL" de la colonne
3) suppression de la virgule et des trois zeros derrière de la colonne [H]

merci pour votre aide

Voici le fichier en question

 

[PascalXLD]

Re : message erreur "debug 1004" ???

Bonjour

Il n'y a aucune macro dans ton fichier donc difficile de te dire où tu as pu te tromper

 

[PMO2]

Re : message erreur "debug 1004" ???

Bonjour,

Une piste avec le code suivant à copier dans un module standard

Sub Traitement_pmo()
Dim lastLig&
Dim R As Range
Dim var
Dim A$
Dim i&
'--- On travaille sur une copie de la feuille ---
ActiveSheet.Copy after:=Sheets(Sheets.Count)
'--- Supprime la colonne A ---
ActiveSheet.Columns(1).Delete
'--- Supprime A1 ---
[a1].Delete Shift:=xlToLeft
'--- Suppression de la virgule et des 3 derniers zeros colonne H ---
lastLig& = [a65536].End(xlUp).Row
Set R = Range("h2:h" & lastLig& & "")
R.Replace What:=",", Replacement:=Space(1)
var = R
On Error Resume Next
For i& = 1 To R.Rows.Count
  A$ = Trim(var(i&, 1))
  If Right(A$, 3) = "000" Then
    var(i&, 1) = CLng(Trim(Mid(A$, 1, Len(A$) - 3)))
  End If
Next i&
On Error GoTo 0
R = var
'--- Supprimer les lignes dont le mot est "OPEL" en colonne B ---
For i& = lastLig& To 2 Step -1
  If UCase(Trim(Range("b" & i& & ""))) = "OPEL" Then
    Rows(i&).Delete
  End If
Next i&
End Sub

1) sélectionnez la feille à traiter
2) lancez la macro Traitement_pmo
3) le résultat s'affiche dans une copie de votre feuille

Cordialement.

PMO
Patrick Morange