[VB-E] PB macro erreur d'execution

Bonjour à tous

Voila j'avais une macro qui fonctionnait que voila :

Code:

---

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:

---

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+

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

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

Code:

---

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 ;)

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:

---

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

---

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+

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+

Citation:

---

Envoyé par lolo_bob2

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

---

tu l'écris ou Div. ?

Bonjour

J'écris Div. n'importe où dans ma feuille excel (Feuil1) et je lance la macro je n'ai pas d'erreur mais rien ne se passe...

Merci de votre aide

A+

et avec cette ligne :

Code:

---

str = ActiveWorkbook.Names("Div.").RefersTo

---

tu cherche l'adresse du champ nommé Div. (Menu excel insertion Nom..) ;)

Bonjour à tous

En fait j'ai un problème la macro que j'utilise me permet de mettre en forme mon classeur excel.
Je fais des extractions SAP et le fichier est régulièrement écrasé du coup je ne peux pas nommé le champ Div. avec le menu insertion -> nom
En fait je voudrais juste le remplacer quand ma macro est lancée le champ Div. arrive en D1
Peut être que je peux utiliser la fonction replace qui me parait peut être plus simple mais je ne sais pas comment l'écrire en vb...

Merci de votre aide

A+

Citation:

---

Envoyé par lolo_bob2

Peut être que je peux utiliser la fonction replace qui me parait peut être plus simple mais je ne sais pas comment l'écrire en vb...

---

Code:

---

objet.Replace "ce_que_tu_veux_remplacer", "ce_par_quoi_tu_veux_remplacer"

---

objet peut être une Range

ca donnerait :

Code:

---

Range("A1").Replace "toto","titi"

---

ce code remplace la chaine "toto" par la chaine "titi" dans la cellule A1.

Bon dev...
laloune

Sais-tu ce que tu veux faire ? Remplacer des données dans des cellules ou remplacer un "NOM" de cellule ou de plage dans un classeur ou dans une feuille de calcul ?
Réponds déjà à ça ;)

Salut

Ce que je veux faire :

quand jexporte mes données SAP
Mes en-tetes de colonne sont les suivantes
article|reference|quantité|Div.

Je veux que mon en tête de colonne ne soit pas nommée Div. mais Div
Car après j'exporte les données dans access et je ne peux pas avoir un champ Div. dans ma table j'ai une erreur à cause du point c'est pour ça que je veux remplacer mon en - tete de colonne Div. par Div

Est ce que c'est plus clair pour vous car je pense que j'étais pas trop clair dans mon explication...

Merci de votre aide

A+

Alors tu peux supprimer le code que tu nous as mis dans ton premier post. Il essaie de supprimer un NOM de cellule ou de plage (qui n'existe pas) alors que tu veux simplement remplacer le contenu d'une cellule.
Pour ça, tu sélectionnes ta ligne, tu recherche le vilain mot et quand tu as trouvé la cellule, tu mets le bon à la place. Ce qui donne

Code:

---

1 2 3 4

Set Cellule = Rows("1:1").Find("Div.") 'Attribue une référence à l'objet de ta recherche With Cellule .Replace What:="Div.", Replacement:="Div" End With

---

Réponse, d'ailleurs qui t'a déjà été donnée et qu'il ne te restait plus qu'à adapter 8O

Merci beaucoup

Ca fonctionne parfaitement !

Juste une chose ma macro se trouve sur un fichier excel appelé macro
Mon autre fichier excel s'appelle produit
J'ai crée un bouton sur ce fichier qui lance la macro du fichier macro, Le problème c'est que quand je lance la macro je dois fermer 2 fichiers excel

Comment puis faire pour éviter cela ?

Merci

A+

Citation:

---

Le problème c'est que quand je lance la macro je dois fermer 2 fichiers excel

---

Quelle macro ? Dans quel fichier ?
Montre ton code

Re salut

Dans mon fichier excel appelé macro j'ai ce code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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 Set Cellule = Rows("1:1").Find("Div.") 'Attribue une référence à l'objet de ta recherche With Cellule .Replace What:="Div.", Replacement:="Div" End With End Sub

---

Dans mon autre fichier excel appelé produit
J'ai un bouton qui me permet d'executer ce code...
Car comme je fais des export de SAP vers excel je nepeux pas avoir de macro dans mon fichier produit sinon l'export ne fonctionne pas..
Donc je fais appelle à la macro du fichier macro

Est ce que c'est clair ? :?

Merci