[VBA] Formule avec variables

Bonjour a tout le monde,

Je fais normalement du code pour VBA-CATIA et maintenant j'en ai besoin d'excel et il y a des choses qui m'echappent...

J'ai une macro laquelle crée une nouvelle feuille chaque mois, et j'aimerais ajouter une formule dans une cellule, laquelle pointe vers la nouvelle feuille (si elle existe).

Tout marche sauf la formule, car je n'arrive pas a mettre une variable dans ma formule. Si je fais :
(osheet est la variable du nom de ma nouvelle feuille)

Code:

---

1 2 3

Range("F21").Select ActiveCell.FormulaR1C1 = "=" & osheet & "!F1"

---

ca ne marche pas, et si je le fais avec :

Code:

---

activecell.value = "=" & osheet & "!F1"

---

ca ne marche pas non plus, car il m'ajoute les petits ' ' aux mauvais endroits et excel prends la formule comme du text quelconque... au lieu de prendre le bon nom pour la feuille...

J'ai lu pas mal des discussions sur ce type de chose mais je ne comprends rien!!! il y a tout un nombre des formules diferentes et je n'arrive pas a le faire marcher...

Merci d'avance

luis

SAlut et bienvenu ;)
Il faut faire comme cela

Code:

---

1 2 3 4 5 6

Sub Test() Dim OSheet As String OSheet = "Feuil1" Sheets("feuil2").Range("A1").FormulaLocal = "=" & OSheet & "!A1"   End Sub

---

FormulaR1C1 c'est pour une formule a référence relative (décalage ligne, colonne)

A++
Qwaz

magnifique, merci qwazerty, mais encore une complication...
en fait j'avais quasiment tout comme tu me l'as décrit sauf le formulaR1C1... maintenant mon prob est encore plus subtil...

Le nom de mes feuilles est integre par 2 chiffres, c'est-à-dire:
1-2008
2-2008
3-2008
etc, etc, etc...

catia prends ma variable osheet sans prob, mais au moment de faire tourner la macro, la formule me donne :

4-'2008'!F1

au lieu de

'4-2008'!F1

et ca plante....

des idées???

Re

Code:

---

1 2 3 4 5 6

Sub Test() Dim OSheet As String OSheet = "4-2008" Sheets("feuil2").Range("A1").FormulaLocal = "='" & OSheet & "'!A1"   End Sub

---

Le plus simple lorsque tu es confronté a un tel problème c'est d'enregistrer une macro, tu aura ainsi la syntaxe partiel ou complète de ce que tu souhaite faire

Menu -> Outils -> Macro -> Nouvelle macro
Et la tu rempli tes cellules
Ensuite tu vas voir dans le Module ou tu as mis la macro et tu regardes le code généré par excel

A++
Qwaz

Bonjour
et si tu insert directement ta formule dans la cellule F1 par macro sans reféré à la cellule de la feuille présédente..?
exemple à tester

Code:

---

ActiveSheet.Range("F21").FormulaLocal = "=SI(A1>5" & ";" & "si_vrai" & ";" & "si_faux" & ")" ' à adapter

---

Abed_H

Bonsoir,

Comment initialises-tu osheet ?

wow, beaucoup de réponses... merci merci merci...
en fait ça finalement marché, il me fallait seulement faire le ' avant et aprés du nom de la variable... style

Code:

---

"='" & osheet & "'!A1"

---

qwazerty, j'avais fait l'enregistrement de la macro, et comme ça n'a pas marché j'ai commencé a essayer tout ce que je trouvais dans le forum, c'est pour ça que j'ai fini avec une fonction qui n'allait pas et j'ai finalement du demander comment faire...

abed, je ne peux pas juste inserer la formule, car les données changent chaque mois. Pour faire ça la macro va chercher un fichier txt, l'importe dans une nouvelle feuille chaque mois et après vienne la mettre a jour....

Bigalo, mon osheet est initialisé comme ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

oSheet = (oMonth & "-" & oYear) oSheetp = ((oMonth - 1) & "-" & oYear) On Error GoTo Fichenon Sheets(oSheet).Select Range("A1").Select ActiveSheet.Paste GoTo cont   Fichenon: ActiveWorkbook.Sheets.Add after:=Sheets(oSheetp), Type:=xlWorksheet ActiveSheet.Name = oSheet oIndic = 1

---

fin bref, la macro marche maintenant, merci bcp pour tous les commentaires

luis