Discussion :

[spookyz]

Bonjour à tous,
je cherche à créer un nom dans le gestionnaire par macro mais les guillemets me donnent du fils à retordre,
ce que je voudrai obtenir c'est:
RS150TableauGraphique , pour le nom (la pas de Pb)
=SI(RS150ChoixGraph=;"CARBURANT";1;2) pour la référence
mais toutes mes tentatives ne me donne pas le bon résultat "CARBURANT" finit toujours soit avec des doubles quotes soit sans quotes soit des apostrophes etc ou bien
la référence est considérées comme une chaine de caractères

="SI(RS150ChoixGraph=;""CARBURANT"";1;2)" voila le genre de résultat que j'obtient c'est un exemple parmis tant d'autres

Code :

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

1
2
3
RefersTo:="'=SI(RS150ChoixGraph=;""CARBURANT"";1;2)"
RefersTo:="SI(RS150ChoixGraph=;"""CARBURANT""";1;2)"
RefersTo:="SI(RS150ChoixGraph=;'"CARBURANT"';1;2)"

j'ai testé encore beaucoup de combinaisons de quotes, doubles quotes, simple etc. mais pas moyen! alors si quelqu'un connais la bonne combinaison et ben c'est cool

[Philippe Tulliez]

Bonjour,
Il est préférable pour que l'on puisse vous aider de nous indiquer le nom, la référence (constante, référence à une cellule ou plage de cellules) et s'il y a condition laquelle. En français et pas en formule ce sera nettement plus simple

[spookyz]

Le but etant de nommer une formule pour pouvoir l'utiliser dans un graphique



sur limage les cardres de couleurs fonctionne mais je voudrais pouvoir les creer par macro

Code :

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

Names.Add Name:="RS150TableauGraphique", RefersTo:="=SI(RS150ChoixGraph="CARBURANT";1;2)"

mais toutes les combinaisons que j'ai tester pour ecrire les guillemets sur CARBURANT ne fonctionne pas

[Philippe Tulliez]

Bonjour,
Il y a trois erreurs dans la chaîne de caractères "=SI(RS150ChoixGraph="CARBURANT";1;2)" que vous référencez.

1. il faut doubler les guillemets de CARBURANT
2. le SI doit être traduit par IF (VBA c'est de l'anglais)
3. les séparateurs d'arguments doivent être des virgules et pas des points virgules comme les formules d'Excel dans sa version Windows UK (Paramètre des langues UK)

La simple utilisation de l'enregistreur de macros vous aurait donné la solution

Code :

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

1
2
3
4
5
Sub AddName()
  Dim wkb As Workbook
  Set wkb = ThisWorkbook
  wkb.Names.Add Name:="RS150TableauGraphique", RefersTo:="=IF(RS150ChoixGraph=""CARBURANT"",1,2)"
End Sub

[spookyz]

Un grand merci,
et oui vous avez tout a fait raison sur tout les points.
j'ai parfois trop la tête dans le guidon et les choses les plus élémentaires ne me sautent pas auux yeux
Encore merci .