Discussion :

[tuzoenduro]

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 :

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

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

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

Code :

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

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

[Qwazerty]

SAlut et bienvenu
Il faut faire comme cela

Code :

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

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

[tuzoenduro]

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

[Qwazerty]

Re

Code :

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

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

[Abed_H]

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 :

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

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

Abed_H

[Bigalo]

Bonsoir,

Comment initialises-tu osheet ?

[tuzoenduro]

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 :

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

"='" & 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 :

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

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