Bonjour à tous
Voila j'avais une macro qui fonctionnait que voila :
Sub remplacer()
For Each c In Range("E:E")
If c.Value <> "" Then
c.Value = Replace(c.Value, ",", ".")
c.Value = Replace(c.Value, " EA", "")
c.Value = Replace(c.Value, " M", "")
End If
Next c
Range("A:B").EntireColumn.Delete
Range("1:3").EntireRow.Delete
End Sub
Je voudrais la modifier et rajouter cela en plus mais j'ai un problème
j'ai une erreur d'execution 1004 qui me met une lgne en jaune
Sub remplacer()
Dim str As String
str = ActiveWorkbook.Names("Div.").RefersTo --> LIGNE EN JAUNE ICI
ActiveWorkbook.Names("Div.").Delete
ActiveWorkbook.Names.Add "Div", str
For Each c In Range("E:E")
If c.Value <> "" Then
c.Value = Replace(c.Value, ",", ".")
c.Value = Replace(c.Value, " EA", "")
c.Value = Replace(c.Value, " M", "")
End If
Next c
Range("A:B").EntireColumn.Delete
Range("1:3").EntireRow.Delete
End Sub
Pouvez vous m'aider ?
Merci beaucoup
A+
Voila j'avais une macro qui fonctionnait que voila :
Sub remplacer()
For Each c In Range("E:E")
If c.Value <> "" Then
c.Value = Replace(c.Value, ",", ".")
c.Value = Replace(c.Value, " EA", "")
c.Value = Replace(c.Value, " M", "")
End If
Next c
Range("A:B").EntireColumn.Delete
Range("1:3").EntireRow.Delete
End Sub
Je voudrais la modifier et rajouter cela en plus mais j'ai un problème
j'ai une erreur d'execution 1004 qui me met une lgne en jaune
Sub remplacer()
Dim str As String
str = ActiveWorkbook.Names("Div.").RefersTo --> LIGNE EN JAUNE ICI
ActiveWorkbook.Names("Div.").Delete
ActiveWorkbook.Names.Add "Div", str
For Each c In Range("E:E")
If c.Value <> "" Then
c.Value = Replace(c.Value, ",", ".")
c.Value = Replace(c.Value, " EA", "")
c.Value = Replace(c.Value, " M", "")
End If
Next c
Range("A:B").EntireColumn.Delete
Range("1:3").EntireRow.Delete
End Sub
Pouvez vous m'aider ?
Merci beaucoup
A+