Discussion :

[Bifrons61]

Hello
Suite à une très grossière erreur de modification de ma part, j'ai une très grosse quantité de cellules avec des références erronées d'un autre classeur

Je voudrais remplacer cette chaîne de caractères :
='D:\Joomla\Auction-autos\Admin\[Auto.xlsm]Générale
Par :
=Générale!

J'ai essayé avec ce code mais comme je suis débutant je ne vois pas ou est l'erreur ou si ce code est utilisable tel quel
Il y a erreur sur cellule.Value

Code :

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

1
2
3
4
5
6
Sub Remplace_Texte()
For Each cellule In Range("A1:E1000")
    cellule.Replace What:="='D:\Joomla\Auction-autos\Admin\[Auto.xlsm]Générale'", Replacement:="=Générale", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    cellule.Value = Str(cellule.Value)
Next cellule
End Sub

Merci d'avance pour l'aide

[unparia]

Bonjour
Sans préjudice de l'intérêt à utiliser à toute la plage concernée la méthode Range.Replace, plutôt qu'une boucle pour remplacer chaque cellule (mais c'est une autre affaire et je me contente donc de mettre en exergue la cause de l'erreur constatée)
La fonction Str ne peut que recevoir un paramètre numérique et non de type String

[Bifrons61]

Merci pour la réponse qui ne m'aide pas vraiment. Pas grave je le ferais manuellement, punition pour ma grossière erreur et surtout de n'avoir pas fait une sauvegarde dudit fichier avant

[Bifrons61]

... et surtout quand c'est noté DEBUTANT
Il y a d'autres forums avec des gens compétents et bien plus conciliants avec ceux qui essayent de faire quelque chose
A bientôt 58 balets, j'essaie d'aider une asso et ce genre de réponse me .......

Bilan sur 2 questions :
- 1 = aidé mais remis en place et sujet résolu, merci
- 2 = mis au rebus direct

.... par la même personne

Je mets Sujet RESOLU alors que pas du tout, mais bon je cherche ailleurs, je débute

[unparia]

Tu me vois désolé, mais je pensais avoir été clair :

La fonction Str ne peut que recevoir un paramètre numérique et non de type String

ceci :

Code :

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

MsgBox Str(34)

est compréhensible et retourne "34" (conversion du numérique 34 en la chaîne de caractères "34")
mais cela

Code :

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

MsgBox Str("abcd")

n"est pas compréhensible et ne peut que retourner un message d'erreur puisqu'incompatibilité de type, "abcd" étant une chaîne de caractères (de type string, donc) et non un numérique.

Il semble par ailleurs que tu souhaites modifier en fait des formules et non les valeurs présentes dans une plage de données.
Si tel est bien le cas, il te faut le préciser en précisant la propriété (Formula) à modifier, selon la syntaxe (exemple) qui suit :

Code :

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

cellule.formula = replace(cellule.formula, "ancien texte", "nouveau texte")

Note bien qu'est ici alors utilisée la fonction Replace et non la méthode Range.Replace

Il est enfin vraisemblable que ces opérations, à ne faire en outre qu'une fois, ne nécessitent pas l'utilisation de VBA. Mais tes précisions ne permettent pas à ce stade d'en parler de manière plus précise.

[Pierre Fauconnier]

Salut.

Avant de le faire en VBA, peut-être peux-tu le faire en Excel, simplement avec l'outil de remplacement (CTRL+H).

Si tu veux le faire en VBA, tu peux utiliser la méthode Replace d'un objet Range, comme tu l'as fait, et la ligne cellule.Value = Str(cellule.Value) n'est alors pas nécessaire.

[Bifrons61]

Merci à vous deux !
La méthode Ctrl+H à mon niveau a été bien plus facile à "mettre en place"
Fonctionne parfaitement, une fonctionnalité trop simple pour que j'y aie pensé probablement

env. 2000 remplacements effectués ! top et sans prise de tête de ma part
Merci Pierre