Discussion :

[lolo_bob2]

Bonjour à tous

Voila j'avais une macro qui fonctionnait que voila :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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+

[gootsu]

tu peux pas détaillé avec des mots!!
explique nous ce que tu veux faire et obtenir!

[ouskel'n'or]

Il semble que tu veuilles remplacer Div. par Div
Pourquoi ne pas utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Application.Goto Reference:="Div."

Tu supprimes le nom puis, comme tu es sur sur son adresse, tu le remplace par Div
Avec RefersTo c'est plus élégant mais je ne l'utilise pas dans ce cas. Pour un seul remplacement, la différence de temps d'exécution n'est pas sensible.
Ceci dit si bbil ou SilkyRoad ou AlainTech passent par là, tu auras ce que tu souhaites... alors patience

[AlainTech]

Le code est correct.

Par contre, s'il n'existe pas de plage nommée Div. dans le classeur, tu obtiens l'erreur 1004.

Voici un code qui marchera à tous les coups:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
  Dim str As String
  Dim oName As Object
  For Each oName In ActiveWorkbook.Names
    If oName.Name = "Div." Then
      str = oName.RefersTo
      MsgBox str
      oName.Delete
      ActiveWorkbook.Names.Add "Div", str
      Exit For
    End If
  Next oName

[lolo_bob2]

Ok merci

Je vais essayer ton code demain matin

Je te redis et si c'est ok je clique sur résolu pas de prob !

A+

[lolo_bob2]

Bonjour

Je viens d'essayer la macro et cela ne fonctionne toujours pas

J'écris bien Div. dans ma feuille excel, je lance la macro et rien ne se passe

Comment cela se fait-il ?

Je joint la feuille excel avec la macro pouvez vous essayer chez vous et me dire si cela fonctionne car là je me demande si ce n'est pas chez moi que cela plante....

Merci beaucoup

A+