Discussion :

[octane]

Bonjour
J ai un probleme de non reconnaissance de formule correspondant a des named ranges.
J ai cree dans un onglet des named ranges par une macro. Dans un autre onglet je veux ecrire en text la formule correspondant a des operations sur des named ranges cree par exemple USPPIm/USPPIr*YFOMRP*Exm/Exr (chacun correspond a des named ranges). Le probleme c est que ce n est pas reconnu comme une formule mais comme du text dans excel.
Apparement ce n est faisable que par une macro mais la je ne vois pas comment ajouter cela a ma macro existante.
Quelqu un pourrait m aider? Merci beaucoup
Ci joint le fichier incluant la macro et le test effectue

[fring]

Bonjour,

Utiliser le nom des cellules dans une formule fonctionne.
As-tu bien mis un "=" devant "USPPIm/USPPIr*YFOMRP*Exm/Exr" ?

Dans ta macro cela devrait ressembler à ça :

Code :

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

Sheets("MaFeuille").Range("MaCellule") = "=USPPIm/USPPIr*YFOMRP*Exm/Exr"

[octane]

dans la macro je ne veux pas rentrer la formule. La formule doit etre entree manuellement par l utilisateur dans une cellule en format texte puis copier pour etre utiliser comme formule dans une cellule d une autre feuille.

[fring]

Oui et...?

Code :

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

Sheets("MaFeuille").Range("MaCellule") = "=" & Sheets("Xxx").Range("XX")

[octane]

voici ce que j ai ecrit> J ai 8 lignes qui se suivent comme ca que je copie c est un peu lourd et lent. Je ne sais pas s il y a plus simple (copie du code pour la creation de deux lignes):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
'Creation de fixed O&M Charge Power Index Formula
    Sheets("Assumptions - Input").Select
    Range("D79").Select
    a = ActiveCell.Value
    resultat1 = "=" & a
    Sheets("Calculations").Select
    Range("F51").Select
    ActiveCell.FormulaLocal = resultat1
    Selection.AutoFill Destination:=Range("F51:PI51"), Type:=xlFillDefault
    Range("F51:PI51").Select
    Sheets("Assumptions - Input").Select
 
    'Creation de fixed O&M Charge Water Index Formula
    Range("D80").Select
    b = ActiveCell.Value
    resultat2 = "=" & b
    Sheets("Calculations").Select
    Range("F52").Select
    ActiveCell.FormulaLocal = resultat2
    Selection.AutoFill Destination:=Range("F52:PI52"), Type:=xlFillDefault
    Range("F52:PI52").Select
    Sheets("Assumptions - Input").Select

[fring]

En évitant les "Select", chose que l'on répète 150x par semaine... ...on améliore beaucoup la fluidité du code

Code :

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

1
2
3
4
5
6
7
8
With Sheets("Calculations")
    'Creation de fixed O&M Charge Power Index Formula
    .Range("F51") = "=" & Sheets("Assumptions - Input").Range("D79")
    .Range("F51").AutoFill Destination:=.Range("F51:PI51"), Type:=xlFillDefault
    'Creation de fixed O&M Charge Water Index Formula
    .Range("F52") = "=" & Sheets("Assumptions - Input").Range("D80")
    .Range("F52").AutoFill Destination:=.Range("F52:PI52"), Type:=xlFillDefault
End With