Discussion :

[jlg91]

Bonjour,

J'utilise plusieurs fichiers excel comportant des noms de cellules identiques.
Ces noms font références à des tableaux dont la dimension change dans chaque fichier.
Avec un code VBA, j'ai créé des fonctions de calcul utilisant ces noms.
Dans le code j'ai dû utiliser "Application.Volatile" pour que les calculs soient réaliser sans valider la cellule contenant la fonction.
Le problème est que lorsque 2 classeurs, ou plus, sont ouverts simultanément, les données affichées sont issues du dernier calcul.
Le classeur actif est mis à jour par appui sur "F9".

Quelqu'un a-t-il une idée pour que la portée soit "local" au classeur?

Merci

[Patrice740]

Bonjour,

Hein ???

Peut-être transmettre un range à la fonction ?

[78chris]

Bonjour

Dans ton code précises-tu le nom du classeur avant le nom ?

[jlg91]

Bonjour,

Voici un extrait du code utilisant les noms:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
With Application
'   Tableau de configuration de chaque type de pièce
    Tabl1 = .Transpose(.Transpose(Range("Z_CPA_Config_Appareillage")))
 
'   Tableau de configuration des logements
    Tabl2 = .Transpose(.Transpose(Range("Z_CPA_Config_Appt")))
 
'   Tableau de correspondance de la liste des logements
    Tabl3 = .Transpose(.Transpose(Range("Liste_Type_Lgt")))

J'ai créée un classeur "original" me servant de base pour la création de devis.
Ce classeur de base est ensuite enregistré avec un nom correspondant au N° du devis
Par exemple j'ai 2 classeurs "D12345v1.xlsm" et "D23456v1.xlsm" ayant tous les deux des tableaux de cellules nommées "Z_CPA_Config_Appareillage", "Z_CPA_Config_Appt", "Liste_Type_Lgt" mais ayant des données propres à chaque classeur.
Comment définir en VBA préciser le nom du classeur?

Merci

[78chris]

Re
Faire précéder Range("Nom") de Workbooks("Classeur").

[jlg91]

Bonjour Chris,

Ça ne fonctionne pas: il n'y a plus de transfert de valeur.
Ai-je mal écrit le code?
Voici ce que j'ai écrit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With Application
'   .ScreenUpdating = False
 
'   Tableau de configuration de chaque type de pièce
    tabl1 = .Transpose(.Transpose(Range("Z_CPA_Config_Appareillage")))
    tabl10 = .Transpose(.Transpose(Workbooks("D00966v1 - Offre Commerciale.xlsm").Range("Z_CPA_Config_Appareillage")))
 
'   Tableau de configuration des logements
    tabl2 = .Transpose(.Transpose(Range("Z_CPA_Config_Appt")))
 
'   Tableau de correspondance de la liste des logements
    tabl3 = .Transpose(.Transpose(Range("Liste_type_lgt")))

La fenêtre de visualisation des variables indique:


La variable Tabl10 est vide.
Je n'ai ouvert qu'un classeur pour tester la syntaxe.

Bien cordialement

[78chris]

Bonjour

Oups il faut le nom du classeur mais aussi le nom de le feuille correspondant au range couvert par le nom

J'ai retesté cette fois. J'avais oublié cette lourdeur mais au moins on n'a pas de souci d'identification .