vba excel : modifier un caractère dans une formule

Question

bonjour,
je viens de créer la macro ci-dessous mais la fonction Replace tombe en erreur et je ne vois pas pourquoi.
Merci pour votre aide.

Sub chgmt_colonne()

Dim Vcolonne As String
Dim Vformule As String

Sheets("7399").Activate

Vformule = Range("C5").Formula

Vcolonne = Mid(Vformule, 19, 2)

Range("G5").Value = Vcolonne

Vformule = Replace(Vformule, Vcolonne, "!C")

Range("C5").Formula = Vformule

End Sub


Emlyd

us_30 · Answer

Bonjour,

1. Quelle est le message d'erreur renvoyé ?
2. Que contient Vformule et Vcolonne ? (utilises le débugage, ou fait "debug.print Vformule & "  " & Vcolonne" avant la ligne Replace pour voir dans la fenêtre d'exécution leurs valeurs)

Amicalement,
Us.

cs_emlyd2207 · Answer

le message est : erreur de compilation sub ou function non definie

Sinon, Vformule et Vcolonne marchent :

Vformule =    +'Spoilage après'!K22+'Spoilage après'!K24
Dans cette formule, mon objectif est que la macro change la colonne de référence. Je pensais donc faire un replace pour changer tous les !K par !c pour prendre la colonne C de la feuille Spoilage Après au lieu de la colonne K.

Vcolonne = !K

J'ai vérifié que Vcolonne marche puisque Range("G5").Value = Vcolonne inscrit bien !K dans la cellule. C'est la fonction replace qui pose apparemment problème.

Emlyd

us_30 · Answer

Re,

Vformule = +'Spoilage après'!K22+'Spoilage après'!K24 
Je ne comprend pas ce que tu veux dire. J'ai pas de boule de cristal sur moi... 

Tu dis :
Dans cette formule, mon objectif est que la macro change la colonne de référence. Je pensais donc faire un replace pour changer tous les !K par !c pour prendre la colonne C de la feuille Spoilage Après au lieu de la colonne K. 

donc, comme les colonnes semblent toujours les mêmes, utilises directement Replace. Ainsi :

Sub chgmt_colonne()
Range("C5").Formula = Replace(Range("C5").Formula, "!K", "!C")
End Sub


Amicalement,
Us.

us_30 · Answer

Euh, par contre le message d'erreur :
"le message est : erreur de compilation sub ou function non definie "

ne semble pas correspondre à un problème sur ton code... Sur quelle ligne s'arrête VBA ? Sur Replace ?

Amicalement,
Us.

cs_emlyd2207 · Answer

le message d'erreur s'arrete sur Replace (c'est surligné en bleu) et aussi au niveau du titre de la macro qui lui est surligné en jaune avec une flèche jaune devant Sub chgmt_colonne()

Concernant la fonction Replace, j'ai essayé le code que tu m'as proposé mais ça bug. De plus, même si cela marchait, ça ne répond pas tout à fait à ce que je veux, car en fait, la cellule C5 doit pouvoir prendre plusieurs références de colonnes différentes. Donc, la macro doit marcher quelle que soit la référence de la colonne au moment où je lance la macro. C'est pour cela que je pensais avoir besoin d'une variable qui dans un premier temps recherche la colonne référencée dans la formule, la mémorise et ensuite remplace cette variable par la colonne que je veux effectivement aller chercher. Je sais, c'est pas super clair, mais le bilan de tous cela est que dès que je mets la fonction replace dans la macro, ça bug...

Emlyd

us_30 · Answer

Re,

Je peux simuler ton erreur seulement si je fais une faute dans "Replace". Par exemple, j'écris "Replae".
En clair, ton excel ne semble pas connaître Replace ? Curieux... 

Quelle est ta version d'excel ?

Peux-tu faire ce simple test : mets ce code dans le module :

Sub essai()
MsgBox Replace("Un exemple", "ex", "EX")
End Sub

Mets le curseur à l'intérieur de la SUB. PAr exemple, devant Msgbox
Lance avec F5

Et normalement cela fonctionner... C'est juste pour savoir si à vide au moins ça marche...

Amicalement,
Us.

NHenry · Answer

Bonjour, 

Parfois VBA délire un peu, ça m'est déjà arrivé (sur une autre erreur).
Recréer un fichier Excel "neuf" ou retirer toutes les macros, puis les remettre, peut aussi parfois résoudre les problèmes.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list
---
Mon site

cs_emlyd2207 · Answer

à vide ça ne marche pas.
Maintenant, c'est le moment où on rigole : je travaille sur Excel...97 !
Toute ma société travaille sur Office97 et n'a pas de licence pour des versions + récentes. Je pense donc que c'est Replace qui n'est pas reconnu. Peux-tu me conseiller d'autres fonctions à utiliser ?
Merci

Emlyd

us_30 · Answer

Mais si il y a Excel 97 , alors c'est logique !

Replace n'était pas inclus dans cette version. Il y a quelques sur CS qui permet de la refaire à l'identique pour cette version.

C'est la raison de mon test... 

Amicalement,
Us.

us_30 · Answer

Ah, j'avais pas vu ton post... bah, je viens d'y répondre...

Amicalement,
Us.

cs_emlyd2207 · Answer

tu écris :
"Il y a quelques sur CS qui permet de la refaire à l'identique pour cette version. "
Je ne comprends pas : "quelques sur CS", c'est quoi CS ?

Emlyd

ucfoutu · Answer

Bonjoyur,

Bien évidemment (Office 97 !) .
Bon ===>> tu trouveras sur ce site (ici même) de quoi la remplacer 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Et ENCORE MIEUX, toujours ici incluant l'argument Compare 

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

us_30 · Answer

Euh, oui.... j'ai sauté un mot là

Je reprends... 

"Il y a quelques CODES sur CS qui permet de la refaire à l'identique pour cette version. " 
CS = Code Source, donc ce site 


J'ai fais une petite recherche, parmi plusieurs codes, probablement celui de Renfield (dans les commentaires) devrait être assez bien, et devrait suffire pour te sortir d'affaire :
["Il y a quelques sur CS qui permet de la refaire à l'identique pour cette version. "  "Il y a quelques sur CS qui permet de la refaire à l'identique pour cette version. " ]

Amicalement,
Us.

us_30 · Answer

ucfoutu, attends un peu... 

La fusée celui-là  !

Amicalement,
Us.

us_30 · Answer

Bah, décidément...

Le lien : http://www.vbfrance.com/codes/MINI-FONCTION-REPLACE-POUR-VB5_24559.aspx

A+
Amicalement,
Us.

ucfoutu · Answer

Ouais...
Mais voilà ce que j'utilise, lorsque je développe sous VB5 (et qui fonctionnera sous VBA 97) :
Public Function Replace(texte As String, a_remplacer As String, remplacer_par As String, Optional startpos, Optional combien, Optional Compare As VbCompareMethod) As String
  Dim pos As Integer, nb As Integer
  If IsMissing(startpos) Then startpos = 1
  If IsMissing(combien) Then combien = 0
  Do While InStr(startpos, texte, a_remplacer, Compare)
     nb = nb + 1
     If combien > 0 And nb > combien Then MsgBox "ouille": Exit Do
     pos = InStr(startpos, texte, a_remplacer, Compare)
     texte = Mid(texte, 1, pos - 1) & remplacer_par & Mid(texte, pos + Len(a_remplacer))
     startpos = pos + Len(a_remplacer) + 1
  Loop
  Replace = texte
End Function

Fait tout ce que fait Replace depuis 2000
A mettre dans un module standard.
Reste que si tu distribues ton projet sans savoir sur quelle machine, avec quelle version d'office, etc ..., il t'appartiendra de mettre dans ton code des expressions conditionnelles.




____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

ucfoutu · Answer

Ah oui : ===>> enlève Msgbox "ouille", hein ! 


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

us_30 · Answer

Bonjour,

Reste que si tu distribues ton projet sans savoir sur quelle machine, avec quelle version d'office, etc ..., il t'appartiendra de mettre dans ton code des expressions conditionnelles.

Il me semble que si tu as une fonction personnalisée du même nom qu'une présente, c'est la fonction personnalisée qui sera prise en compte... donc pas de condition à mettre.  Sauf si je dis une connerie, à vérifiée de toute façon... 

Au pire, nomme la fonction ReplacePerso, et cela évitera d'alourdir le code VBA pour vérifier la version d'Excel. 

Amicalement,
Us.

ucfoutu · Answer

Salut, us_30,
tu ne dis pas de "connerie", mais VBA a ceci d'étrange qu'il arrive qu'il garde en mémoire la dernière fonction utilisée, quel que soit le projet ensuite ouvert n, ce qui peut alors devenir fort gênant.
Forcer à utiliser la fonction "ersatz" quelle que soit la version est par ailleurs assez pénalisant (moins rapide que la fonction native, lorsqu'elle existe), surtout si la chaîne à traiter est longue.
Je dis bien sous VBA


____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Vba excel : modifier un caractère dans une formule

35 réponses

Votre réponse

Discussions similaires