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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
tauxRef = ActiveWorkbook.Names(tab(1,1)).RefersToR1C1 'obtenir =19,6
ou
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.