Discussion :

[kithry]

Bonjour,
Quelqu'un pourrait il m'aider? Je cherche dans une macro à définir une formule pour une case. Le nom de ma case est stocké dans une variable car il peut etre modifié. Et dans le resultat de ma formule, j'obtiens

Code :

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

=LEFT( 'AN5',7)

au lieu de

Code :

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

=LEFT( AN5,7)

, comment faire? J'ai essayé de déclarer SAPFull = AN5, mais bien sur, ca ne lui plait pas... Voici le code :

Code :

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

1
2
3
4
FormulaCellSAP = "W5"
SAPFull = "AN5"
 
Range(FormulaCellSAP).FormulaR1C1 = "=LEFT( " & SAPFull & " ,7)"

Merci d'avance pour votre aide.

[Gorfael]

Salut kithry et le forum
Pour répéter encore et encore, on n'est ni devant ton écran, ni devant une boule de cristal (d'ailleurs, elle est brumeuse aujourd'hui)!!! On ne dispose que de ce que tu nous donnes. Et donner des codes qui ne fonctionnent pas . Si tu veux, je peux t'en donner nettement plus, mais ça ne fera pas avancer la solution!

Code :

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

1
2
3
4
5
 
FormulaCellSAP = "W5"
SAPFull = "AN5"
 
Range(FormulaCellSAP).FormulaR1C1 = "=LEFT( " & SAPFull & " ,7)"

Là, ce que tu fait, c'est écrire la formule :

Code :

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

=Gauche( "AN5" ,7)

Comme "AN5" n'a que trois caractères te donne "AN5"
si c'est le contenu de la cellule Colonne AN (40) ligne 5,

Code :

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

1
2
3
SAPFull = "R5C40"
 
Range(FormulaCellSAP).FormulaR1C1 = "=LEFT( " & SAPFull & " ,7)"

devrait fonctionner ou

Code :

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

1
2
3
4
 
SAPFull = "AN5"
 
Range(FormulaCellSAP).FormulaLocal = "=Gauche( " & SAPFull & " ,7)"

Pas envie de tester, les explications données ne me permettant pas de savoir si je suis sur la bonne piste!
A+

[pgz]

Bonjour.

As-tu essayé

Code :

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

Range(FormulaCellSAP).Formula = "=Left(AN5,7)"

PGZ