j'ai une formule qui ne fonctionne plus!

[Sylvie64]

Bonjour,

J'ai un souci, il y quelques temps j'ai eu cette formule :
"=rend_espace(D3)"
pour rendre les espaces d'une phrase, hier j'ai voulu la remettre mais cela ne fonctionne plus !!!! j'ai toujours "#NOM?"
Pourtant j'ai fais comme d'habitude ou est mon erreur !!! (voir en PJ)
Merci
Sylvie

 

[Tibo]

Re : j'ai une formule qui ne fonctionne plus!

Bonjour Sylvie,

La fonction que tu utilises - rend_espace - est une fonction personnalisée basée sur une macro.

Il semble que la macro correspondante ne soit plus dans ton fichier. Il faut donc que cette macro soit présente.

C'est le pourquoi du comment.

Mais question VBA, je ne suis pas en mesure de t'aider.

@+

 

[JHA]

Re : j'ai une formule qui ne fonctionne plus!

Bonjour,

la fonction personnalisée "rend_espace" n'existe pas dans ce fichier, seule la fonction "Sylvie" existe.
clic droit sur fiche et choisir "visualiser le code" puis copier la fonction dans le module.

Edit: Bonjour Tibo

JHA

 

[Sylvie64]

Re : j'ai une formule qui ne fonctionne plus!

Bonjour,
Désolé mais je ne vois pas ou coller la fonction dans le module.
Je suis sur ce forum depuis janvier et ce n'est pas moi qui a créer les formules, je ne suis pas assez caler pour ça.
Si vous pouviez me le faire et me renvoyer mon fichier, ça serait gentil.
Car je ne vois vraiment pas comment le faire, je cherche depuis hier et ne comprend vraiment pas pourquoi cela ne fonctionne plus !!!!
Merci pour votre aide
Sylvie

 

[13GIBE59]

Re : j'ai une formule qui ne fonctionne plus!

Bonjour le forum. 🙂

Sylvie, ne panique pas. 😉

Si tu as obtenu ton fichier contenant cette fonction personnalisée ("rend_espace"), sur le forum, tu le retrouveras facilement.

Parce qu'en l'état actuel des choses, la fonction personnalisée existante ("Sylvie") est inopérante.

Bonne recherche. 😀

 

[JHA]

Re : j'ai une formule qui ne fonctionne plus!

bonsoir,

j'ai retrouvé sur le forum la fonction personnalisée de Pierre-Jean que je salue, la voici:

Function rend_espace(texte)
x = texte
For n = Len(x) To 2 Step -1
If Asc(Mid(x, n, 1)) > 96 And Asc(Mid(x, n - 1, 1)) < 90 Then
x = Left(x, n - 2) & " " & Right(x, Len(x) - n + 2)
End If
Next n
If InStr(x, "à") <> 0 Then
x = Left(x, InStr(x, "à") - 1) & " à" & Right(x, Len(x) - InStr(x, "à"))
End If
rend_espace = x
End Function

Tu copies cette fonction dans le module donc clique droit sur l'onglet "Fiche"
Sélectionnes "Visualiser le code"
puis copie dans le module la fonction

JHA

 

[Sylvie64]

Re : j'ai une formule qui ne fonctionne plus!

Bonjour,
Merci à tous pour votre aide
Sylvie