XL 2010 Fonction qui marche mal quand elle est lancée à partir d'une macro

[Magic_Doctor]

Bonjour,

J'ai bricolé une fonction qui permet une mise en forme particulière d'une saisie.
Cette fonction marche apparemment bien quand on la lance sur la feuille. En revanche, elle se plante assez souvent quand on la lance à partir d'une macro événementielle.

Comment résoudre ce problème ?

 

[Magic_Doctor]

J'ai en partie réglé le problème. Seul persiste celui de la saisie (dernier exemple) quand on omet le préfixe et le suffixe.
C'est bizarre, je ne comprends pas pourquoi ça ne marche pas.

 

[job75]

Bonjour Magic_Doctor,

Function TantDeChiffresAprèsVirgule$(x#, dec%, Optional pref = "", Optional suf = "")
TantDeChiffresAprèsVirgule = pref & Format(x, "0." & String(dec, "0")) & suf
'---quand la fonction est appelée par macro---
If TypeName(Application.Caller) <> "Range" Then _
  If IsNumeric(TantDeChiffresAprèsVirgule) Then _
    TantDeChiffresAprèsVirgule = "'" & TantDeChiffresAprèsVirgule
End Function

Pour C7 et C14 : quand on entre une valeur dans une cellule Excel tente toujours de la convertir en nombre.

Pour l'éviter, il faut mettre la cellule au format Texte ou mettre une apostrophe ' devant la valeur.

Nota : pour l'entrée en C14 il faut que tu ajoutes des Application.EnableEvents = False/True !!!

A+

 

[Paf]

Re et Bonjour job75,

Mais alors pourquoi ça fonctionne en fonction perso en C12 ?

A+

 

[job75]

Bonjour Paf,

Mais alors pourquoi ça fonctionne en fonction perso en C12 ?

Excel tente de convertir une valeur quand c'est une constante, en C12 nous avons une formule (qui renvoie du texte).

A+

 

[Paf]

re

Ok, merci job75

A+

 

[job75]

Re,

Ceci est mieux car on peut entrer n'importe quoi en C2 ou C3 :

Function TantDeChiffresAprèsVirgule$(x, dec, Optional pref = "", Optional suf = "")
If IsError(x) Or IsError(dec) Then Exit Function
dec = Abs(Int(Val(dec)))
TantDeChiffresAprèsVirgule = pref & Format(x, "0" & IIf(dec, "." & String(dec, "0"), "")) & suf
'---quand la fonction est appelée par macro---
If TypeName(Application.Caller) <> "Range" Then _
  If IsNumeric(TantDeChiffresAprèsVirgule) Then _
  TantDeChiffresAprèsVirgule = "'" & TantDeChiffresAprèsVirgule
End Function

A+

 

[Magic_Doctor]

Bonsoir tout le monde et en particulier job,

job, muchas gracias otra vez por tu ayuda.

Effectivement, ta 2ème proposition permet surtout de choisir "0" décimales.
Tout marche maintenant très bien.
Pour aller un peu plus loin dans le "fun", j'ai dressé une colonne où l'on rentre des données qui, au fur et à mesure de leurs entrées, sont mises en forme. La dernière cellule récupère la somme de toutes les données entrées, laquelle somme est à son tour mise en forme afin qu'il y ait toujours le même nombre de décimales après la virgule (plus joli). Ma foi, mon bidouillage a l'air de fonctionner, seulement apparaissent d'agaçants petits triangles verts. Comment s'en débarrasser à tout jamais ?

 

[jecherche]

Bonjour,

Comment s'en débarrasser à tout jamais ?

Menu Fichier, Options, Formules, 3e du bas à droite, décoche "Nombre mis en forme en tant que texte ou précédés d'une apostrophe", OK


Jecherche

 

[Magic_Doctor]

Bonsoir jecherche,

Je viens d'essayer, ça marche.
Quoi qu'il en soit, c'est très curieux. Quand je rentre une vgaleur dans C14, il n'y a auncun problème. En revanche, quand je rentre une valeur dans n'importe quelle cellule de la plage C16:C25, alors apparaissent ces triangles. Quelque chose doit donc se passer. Comment stipuler (ou faire en sorte) dans la macro pour que ces résultats ne soient pas considérés comme des erreurs ? Ce serait nettement plus pratique que d'avoir à configurer Excel si on change d'ordi.

 

[job75]

Bonjour Magic_Doctor, Paf, jecherche,

Excel met des triangles verts quand la valeur peut être convertie en nombre et qu'on la force à être un texte.

En C14 la valeur est un texte qui ne peut pas être converti en nombre à cause du suffixe (qui n'a rien de monétaire).

Il y a une apostrophe parce que C14 n'est pas formatée correctement : copie/colle E14 sur C14 et entre de nouveau un nombre.

Pour éviter les triangles verts l'enregistreur de macro donne :

Application.ErrorCheckingOptions.NumberAsText = False

A+

 

[Magic_Doctor]

Bonjour le forum, job,

Merci job pour tes explications. Ça s'éclaircit dans mon esprit !
En effet, si dans la colonne de saisies, dans le paramétrage je change "€" par "$U", les triangles verts n'apparaissent plus.
Curieux qu'Excel ne reconnaisse pas "$U" comme un attribut monétaire (en l'occurrence celui de l'Uruguay). Le peso, quel qu'il soit (Argentine, Bolivie, Chili... partout où il y a du peso) est toujours désigné par "$". Mais il est vrai que les Zuniens, peu friands de géographie exotique, s'en tapent !
Persiste un ultime problème. Si, dans le paramétrage de la cellule "C14", je remplace "$U" par "€", le résultat n'est bon que lorsque le nombre de décimales après la virgule est égal à 1 ou 2.

Mais dans la pratique, à part enquiquiner, à quoi servent ces triangles verts ?

Bonne journée

 

[JCGL]

Bonjour à tous,

Ils servent à signaler des "erreurs" :

Si l'on veut ne pas afficher "les erreurs" sur tous les classeurs

A+ à tous

 

[Magic_Doctor]

Re,

Muchas gracias, mais ça, j'avais quand même compris.
Ces erreurs signalées par ces triangles verts sont en fait des "pseudo erreurs", car s'il s'agissait vraiment de grosses-fatales erreurs, apparaîtraient alors des signes cabalistiques les signalant.

Je pense que la solution de job75 :
Application.ErrorCheckingOptions.NumberAsText = False
est, somme toute, la plus pratique pour se débarrasser de ces triangles que je trouve d'une utilité fort discutable. Pour preuve : on peut les éliminer.