Discussion :

[mouftie]

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 :

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

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" ?

[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 :

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

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

Il y a lieu de placer cette ligne

Code :

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

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

Avec bien entendu au préalable

Code :

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

Dim shName As String:  shName = "Parameter"

[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" ?

[Philippe Tulliez]

Bonsoir,

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'

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 :

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

    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 :

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

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

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

Code :

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

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