Passer en parametre pour connaitre nom

Bonjour,

Je souhaiterai récupérer la valeur d'un nom défini dans le gestionnaire de noms.

Exemple :
Dans feuille1, il y a un ensemble de cellules dont je récupère les valeurs par

Code:

---

1 2	Dim Tab As Variant Tab = Range("A1").CurrentRegion.Value

---

Une de ses valeurs correspond à un nom défini dans le gestionnaire de noms (TVA196
qui a pour référence "=19,6

Dans feuille2, je souhaite récupérer la valeur 19.6.

Code:

---

1 2 3 4 5 6

dim tauxRef as variant tauxRef = ActiveWorkbook.Names("tva196").RefersToR1C1 '==> =19,6 'fonctionne   tauxNum = Application.stxt(taux, 2, 100) '==> 19,6 'ne fonctionne pas Erreur : erreur 438 propriété non gérée par l'objet

---

Est il possible de passer en paramètre une référence ?

Code:

---

tauxRef = ActiveWorkbook.Names(tab(1,1)).RefersToR1C1 'obtenir =19,6

---

ou

Code:

---

1 2 3 4

val=tab(1,1) tauxRef = ActiveWorkbook.Names(val).RefersToR1C1 'obtenir =19,6 tauxNum = Application.stxt(taux, 2, 100) '==> 19,6 prixttc =prix*tauxNum

---

Merci pour vos réponses.

Bonjour,
Le message d'erreur que tu obtiens provient du fait que la méthode stxt de WorksheetFunction n'existe pas et d'ailleurs si elle existait il faudrait l'appeler mid
Elle n'existe pas parce-que la fonction Mid existe dans le VBA

Code:

---

1 2 3

Dim tauxRef As Variant tauxRef = Val(Mid(ActiveWorkbook.Names("tva_196"), 2)) Debug.Print tauxRef

---

Depuis la version 2007 on ne peux plus nommer le nom TVA196 parce-que TVA est une colonne donc pour mon exemple j'ai utilisé TVA_196

Merci pour ta réponse rapide.

Apparemment, je pensai utiliser les fonctions excel qui sont déjà conçues dans mes fichiers excel.
(application.gauche(...), application.recherchev(...).


Cordialement.

Bonjour,

Toutes les fonctions d'excel ne sont pas reprises dans la liste des membres de l'objet WorksheetFunction. Elles en ont été volontairement écartées soit parce-que elles ont un équivalent dans les propriétés de l'objet Range soit existent comme fonction intégrées dans le langage VBA.
Ainsi par exemple les fonctions Left, Right, Mid etc... existant dans le langage VBA ne sont pas reprises dans l'objet Application.WorksheetFunction
Attention aussi que les membres de WorkSheetFunction sont en anglais. Ainsi Recherchev est Application.WorksheetFunction.VLookup

Une autre question :
Si la référence "tva_196" n'exista pas, une erreur est retournée.
J'ai essayé ce code

Code:

---

1 2 3

if iserror(ActiveWorkbook.Names("tva_196")) then err5 end

---

Je ne connais pas la fonction qui teste si la référence existe.

Merci de vos lumières.

Bonjour,
Une solution parmi d'autres serait de créer une fonction qui parcourt la collection des noms

Code:

---

1 2 3 4 5 6

Function IsExistName(Name As String) As Boolean Dim n As Name For Each n In ActiveWorkbook.Names If n.Name = Name Then IsExistName = True Next End Function

---

A invoquer comme ci-dessous

Code:

---

1 2 3 4 5

Sub TestName() Dim NameSearched$ NameSearched = "TVA_196" MsgBox NameSearched & " " & IIf(IsExistName(NameSearched), "existe", "n'existe pas") End Sub

---

J'avais pensé à ta réponse, mais j’espérai connaitre une autre façon.

Ton code déclenche une autre question. Le rôle du dollar à la fin du nom de la variable.

Code:

---

Dim NameSearched$

---

Dernière question. Dans un message précédent, tu as dit que tva196. correspondait à un nom de colonne.
Quelle est la limite des noms de colonne. Pour ma part, elle varie de A à IV.

Merci en tout cas de toutes tes réponses.

Amicalement.

Citation:

---

Envoyé par rico3434

Ton code déclenche une autre question. Le rôle du dollar à la fin du nom de la variable.
Dim NameSearched$

---

$ est un identificateur qui permet de typer une variable comme un string. Dim Txt as string ou Dim Txt$
Il y a d'autres identificateurs : % pour Integer , & pour Long, ! pour Single, # pour Double, @ pour Currency.

Citation:

---

Dernière question. Dans un message précédent, tu as dit que tva196. correspondait à un nom de colonne.
Quelle est la limite des noms de colonne. Pour ma part, elle varie de A à IV.

---

Depuis la version 2007, il y a 16384 colonnes et la dernière colonne est identifiée avec les lettres XFD.
Pour les versions antérieures à 2007, il n'y a aucun problème de nommer une cellule TVA196.

Citation:

---

Il y a d'autres identificateurs : % pour Integer , & pour Long, ! pour Single, # pour Double, @ pour Currency.

---

Est ce qu'il y a d'autre indicateurs.

Je manque de repères sur excel. Est ce que le site de microsoft (msdn) peux répondre à mes interrogations.

J'ai la version excel (2007 XP SP3) et j'ai 65536 lignes et 256 colonnes (colonne IV).
Je n'ai peut-être pas vu une configuration par défaut de lignes ou colonnes comme celle proposée pour le nombre de feuilles dans les options excel.

Ou le chiffre que tu donnes (XFD=16384 colonnes) correspond à une solution 64 bits.

Ou une autre solution.

En résumé,
il y a 65536 lignes, 256 colonnes et ?? feuilles.
ou
il y a 1048576 lignes, 16384 colonnes et ?? feuilles.
J'ai lu sur quelques forums que la limite des feuilles correspond à celle de ta mémoire.
Confirmes-tu ?

Bonjour,
Tu as mis ta discussion depuis longtemps comme résolue.
Si tu souhaites poser d'autres questions ouvre de nouvelles discussions.
Je te conseille d'aller jeter un coup d'oeil du côté des tutoriaux et de la FAQ

Merci encore de toutes tes réponses précieuses.
Je vais de ce pas suivre tes conseils.

Amicalement.