integrer un variable dans une fonction

Bonjour,
j'ai une variable "C1" que j'aimerai inserer dans une fonction, pour me faciliter
la lecture du code...
je ne sais pas comment faire car a cause des " du début la variable C1, ne passe pas en variable mais en texte et le C majuscule reste ecrit en minuscule..
comment faire pour inserer une variable dans la fonction ci dessous,
et que mes c1 deviennent C1 et surtout soit pris en compte en tant que VARIABLEs...

Code:

---

Range("C3").FormulaR1C1 = "=TIME(TRUNC(c1),(c1-TRUNC(c1))*100,0)"

---

bien sur elles sont déclarer au début du code...

je pense finalement avoir trouvé
ce code semble fonctionner

Code:

---

"=TIME(TRUNC(" & C1 & "),(" & C1 & "-TRUNC(" & C1 & "))*100,0)"

---

Oui c'est bien ça, tu m'as grillé de quelques secondes !

Il faut en effet mettre ta variable entre " & & " dans ces cas là

Finalement,
mon probleme persiste un peu...

voilà le debut du code

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim repertoire As String Dim fichier As String Dim C1 As String Dim C2 As String Dim C3 As String C1 = "='" & repertoire & "[" & fichier & "]Planning'!R[3]C[42]" C2 = "='" & repertoire & "[" & fichier & "]Planning'!R[3]C[42]" C3 = "='" & repertoire & "[" & fichier & "]Planning'!R[3]C[42]" repertoire = sheets("ACCUEIL").Range("c20").Value fichier = sheets("ACCUEIL").Range("c16").Value

---

les valeurs de repertoire et fichier sont le chemin+le nom du fichier
pour avoir l'adresse complete de ma liaison pour faire ma mise a jour.

le code

Code:

---

Range("C3").FormulaR1C1 = "=TIME(TRUNC(" & C1 & "),(" & C1 & "-TRUNC(" & C1 & "))*100,0)"

---

est issue d'un exemple qui marche dont le code est

Code:

---

Range("C3").FormulaR1C1 = "=TIME(TRUNC("A1),(A1-TRUNC(A1))*100,0)"

---

Il me permet de convertir la cellule A1 dont l'écriture serait 6,3 en heure, pour me donner 6:30 etc...

je cherche donc a recuperer sur un fichier ces valeurs qui sont en "nombre"
d'où ma liaison...
et donc à la place ( dans l'exemple de A1), j'essaie de mettre le chemin du fichier faisant reference à l'onglet et la cellule contenenant l'info ( Planning'!R[3]C[42] )
seulement en ecriavant ce code dans la variable...
j'imagine que je ne recupere pas la reference de la cellule mais "l'ecriture" en dur R3c42, et evidemment je passe en debogage...

j'ai tenter de supprimer la reference cellule de la variable

Code:

---

C1 = "='" & repertoire & "[" & fichier & "]Planning'!"

---

et de mettre la reference dans l'execution de la fonction :

Code:

---

Range("D3").FormulaR1C1 = "=TIME(TRUNC(" & C1 & "R[3]C[42]),(" & C1 & "R[3]C[42]-TRUNC(" & C1 & "R[3]C[42]))*100,0)"

---

idem debogage..
comment faire pour passer...
comment et où faut il ecrire la reference R[3]C[42] dans le code...

j'ai essayer d'être clair..
certes un peu long aussi...
dslé

Code:

---

C1 = "'" & repertoire & "[" & fichier & "]Planning'!C3"

---

normalement ça devrait marcher ainsi, à adapter selon les cellules auxquelles tu fais référence.

Alors, c'est mieux que ce que j'avais comme resultat..
juste tout petit souci...
dans ton code j'ai ajouter le signe = sinon, j'ai pas de calcul possible..
regarde

Code:

---

C1 = "='" & repertoire & "[" & fichier & "]Planning'!AS6"

---

en faisant juste

Code:

---

Range("C3").FormulaR1C1 = C1

---

pour tester...
je passe, mais voilà l'ecriture... dans la cellule

Code:

---

='C:\Users\Julien\Desktop\[MatriceCAFE RITAZZA v8.xls]Planning'!'AS6'

---

il y a apres le !, 'AS6',
il faudrait qu'il y ait juste AS6...
JE TORTURE DANS TOUS LES SENS....
je voix pas, ni meme pourquoi ces ' apparaissent..
si t'as une idée,
en tout cas merci.. parce que ça avance !!!

Essayes plutôt

Code:

---

Range("C3)".Formula = C1

---

ou

Code:

---

Range("C3").FormulaLocal = C1

---

Par contre si tu mets le égal, tu auras surement une erreur d'exécution 1004 en intégrant la variable C1 dans ta formule, tu peux le mettre pour tester la récupération de la valeur sur l'autre feuille, mais il faudra l'enlever ensuite.

super ca fonctione

Code:

---

Range("C3").Formula = C1

---

j'ai effectivement retirer le signe =
mais comme j'en avais besoin dans une cellule... il fallait que je sache aussi bien l'enlever que le mettre..
et bien,
c'est parfait,
pour ce sujet, mes questions sont comblées !
merci a toi !!
a bientot surement !

Julien