VBA Equiv avec variable de réf.feuille

Version imprimable

Bonjour,
tous les mois je mets à jour des bases à partir d'un fichier dans lequel les utilisateur on créé un onglet au nom du-dit mois (ex décembre)
ma formule index / equiv fait référence à ce fichier et donc à une feuille différente tous les mois.
Est-il possible d'insérre une variable dans la formule :
Code:

1 2 Sheets("Appels").Range("T" & DeBlg & ":T" & DerLg).FormulaR1C1 = _ "=IF(BdDApp[[#This Row],[Cible]]=""Exp1"",INDEX('[CALCUL etp PAR JOUR.xls]Décembre'!R7C1:R10C30,MATCH(BdDApp[[#This Row],[Agences]],'[CALCUL etp PAR JOUR.xls]Décembre'!R7C2:R10C2,0),30),"""")"
A la place de Décembre', je voudrais insérer ma variable shMois.
j'ai essayé " & shMois & "' mais ça ne fonctionne pas

Est-ce que quelqu'un peut m'aider svp.
D'avance merci
PS: est-il possible pour la lisibilité de couper une telle formule, j'ai essayé espace_ enter, mais j'ai une erreur de compil "Attendu : fin d'instruction" ? :cry:

22/01/2014, 17h30
Philippe Tulliez

Bonjour,
Si la variable shMois contient bien le nom de feuille c'est à dire Decembre dans ton exemple, il y a lieu de respecter toute la syntaxe
Soit par exemple pour ce code

Code:

'Range("H6").FormulaR1C1 = "=Parameter!R[-4]C[-7]"

Il y a lieu de placer cette ligne

Code:

Range("H6").FormulaR1C1 = "=" & shName & "!R[-4]C[-7]"

Avec bien entendu au préalable

Code:

Dim shName As String: shName = "Parameter"
22/01/2014, 18h47
mouftie

Bonsoir Philippe,
Merci, ça fonctionne parfaitement ;
dans mon cas, j'ai fait un remplacé Décembre par " & shMois & "

Petite précision svp :
pourquoi dans les formules on peut avoir une apostrophe (décembre'!) avant le point d’exclamation et des fois pas (Parameter!) quand on désigne une feuille ?

Pouvez-vous également répondre à ma 2ème question, svp ?
est-il possible pour la lisibilité de couper une telle formule, j'ai essayé espace_ enter, mais j'ai une erreur de compil "Attendu : fin d'instruction" ?

Bonsoir,

Citation:

Petite précision svp :
pourquoi dans les formules on peut avoir une apostrophe (décembre'!) avant le point d’exclamation et des fois pas (Parameter!) quand on désigne une feuille ?

L'apostrophe est mise lorsque le nom de la feuille ou du classeur est composé de plusieurs mots séparés par un ou des espaces comme par exemple 'Mois de décembre'

Citation:

PS: est-il possible pour la lisibilité de couper une telle formule, j'ai essayé espace_ enter, mais j'ai une erreur de compil "Attendu : fin d'instruction" ?

Il est possible d'utiliser la fonction REPLACE
Par exemple

Code:

Range("L8").Formula = Replace("= IF (SUM( Feuil2! B2:B11 ) > 50000,""Chapeau"",""C'est dommage"")", " ", "")

Le problème alors c'est que le texte "C'est dommage" n'a plus d'espace non plus.
Voir résultat ci-dessous:

Code:

=SI(SOMME(Feuil2!B2:B11)>50000;"Chapeau";"C'estdommage")

Alors moi je passe par une astuce
Voir exemple de code ci-dessous
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim maFormule As String Dim SheetName As String, Text1 As String, Text2 As String SheetName = "Feuil2": Text1 = Chr(34) & "Chapeau" & Chr(34): Text2 = Chr(34) & "C'est dommage" & Chr(34) maFormule = "= IF (SUM( <SheetName> ! B2:B11 ) > 50000,<Text_1>,<Text_2>)" ' Présenté ici en 4 lignes mais l'utilsiation en une seule ligne est possible avec une boucle maFormule = Replace(maFormule, " ", "") ' Enlève les espaces maFormule = Replace(maFormule, "<SheetName>", SheetName) maFormule = Replace(maFormule, "<Text_1>", Text1) maFormule = Replace(maFormule, "<Text_2>", Text2) Range("L8").Formula = maFormule
Pour l'exemple et une meilleure compréhension j'ai utilisé le REPLACE sur quatre lignes mais pour ma part j'utilise une boucle sur une variable tableau construite avec SPLIT