Formule dans cellule Vba

Résolu

titi17-08 Messages postés 117 Date d'inscription Statut Membre Dernière intervention -
titi17-08 Messages postés 117 Date d'inscription Statut Membre Dernière intervention - 10 sept. 2021 à 08:12

Bonjour Le forum
voila je voudrais insérer une formule dans une cellule.

Cells(5, 2).FormulaLocal = "='sheets("Janvier " +rep)'!R[3]C[27]"

sachant que "rep" est une variable
avez vous une idée de correction s'il vous plait :)
Merci

A voir également:

Formule dans cellule Vba
Formule si et - Guide
Formule excel pour additionner plusieurs cellules - Guide
Formule excel moyenne - Guide
Excel compter cellule couleur sans vba - Guide
Formule mathématique - Télécharger - Études & Formations

6 réponses

Réponse 1 / 6

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 285

Bonjour,
Commence par modifier "+rep" par "& rep"

Réponse 2 / 6

titi17-08 Messages postés 117 Date d'inscription Statut Membre Dernière intervention 1

Bonjour M-12
merci pour ton aide
il me met toujours demande fin d'instruction;(

Réponse 3 / 6

M-12 Messages postés 1332 Date d'inscription Statut Membre Dernière intervention 285

Place un classeur exemple

Réponse 4 / 6

titi17-08 Messages postés 117 Date d'inscription Statut Membre Dernière intervention 1

Voila mon code en question et le problème est a la fin quand je souhaites entrer une formule dans une cellule

Sub Creation_Calendrier()
Dim rep As Variant
Dim chemin As String
Dim Mois As String
rep = InputBox("Quelle année d'exercice?")
cemin = "C:\s\Sandrine\Desktop\PERSO\SOCIETE\Suivi SJTC"
Worksheets(Array("Consolidé", "Facturation")).Copy
ActiveWorkbook.SaveAs Filename:=cemin & "\Exercice SJT-C " & rep & ".xls", FileFormat:=52
Workbooks("Exercice SJT-C " + rep).Worksheets("Consolidé").Activate

Cells(2, 2).Value = "Janvier " + rep
Cells(2, 6).Value = "Fevrier " + rep
Cells(2, 10).Value = "Mars " + rep
Cells(2, 14).Value = "Avril " + rep
Cells(2, 18).Value = "Mai " + rep
Cells(2, 22).Value = "Juin " + rep
Cells(2, 26).Value = "Juillet " + rep
Cells(2, 30).Value = "Aout " + rep
Cells(2, 34).Value = "Septembre " + rep
Cells(2, 38).Value = "Octobre " + rep
Cells(2, 42).Value = "Novembre " + rep
Cells(2, 46).Value = "Décembre " + rep
Cells(2, 50).Value = "Totaux " + rep
Mois = Cells(2, 2).Value
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Janvier " + rep
With Sheets("janvier " + rep)
Call conception_feuille
End With
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Fevrier " + rep
With Sheets("Fevrier " + rep)
Call conception_feuille
End With
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Mars " + rep
With Sheets("Mars " + rep)
Call conception_feuille
End With
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Avril " + rep
With Sheets("Avril " + rep)
Call conception_feuille
End With
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Mai " + rep
With Sheets("Mai " + rep)
Call conception_feuille
End With
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Juin " + rep
With Sheets("Juin " + rep)
Call conception_feuille
End With
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Juillet " + rep
With Sheets("Juillet " + rep)
Call conception_feuille
End With
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Aout " + rep
With Sheets("Aout " + rep)
Call conception_feuille
End With
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Septembre " + rep
With Sheets("Septembre " + rep)
Call conception_feuille
End With
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Octobre " + rep
With Sheets("Octobre " + rep)
Call conception_feuille
End With
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Novembre " + rep
With Sheets("Novembre " + rep)
Call conception_feuille
End With
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Décembre " + rep
With Sheets("Décembre " + rep)
Call conception_feuille
End With
Sheets("Consolidé").Select
'Cells(5, 2).FormulaLocal = "='sheets(Janvier "& rep")'!R[3]C[27]"

ChDir "C:\s\Sandrine\Desktop\PERSO\SOCIETE\Suivi SJTC"
End Sub

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention 2 432

Bonjour

Essaies en découpant un peu

Dim mois As String
Dim rep As Long
Dim f As String
rep = 2021
mois = "Janvier"
f = "='" & mois & "-" & rep & "'!R[3]C[27]"
Cells(5, 2).Formula = f

Cdlmnt

Réponse 6 / 6

titi17-08 Messages postés 117 Date d'inscription Statut Membre Dernière intervention 1

Bonjour ccm81
je te remercie pour ton aide
je me suis inspiré de ton code et j'ai refais ceci.
Avec ta solution cela devait mettre des variables différentes pour chaque mois ;)
an tout cas cela fonctionne bien et merci beaucoup
belle journée

Sheets("Consolidé").Select

Cells(5, 2).Formula = "='" & MonthName(1) & " " & rep & "'!R[3]C[27]"
Cells(5, 3).Formula = "='" & MonthName(1) & " " & rep & "'!R[3]C[27]"
Cells(5, 4).Formula = "='" & MonthName(1) & " " & rep & "'!R[3]C[27]"

Discussions similaires

Colorer une cellule quand une autre est non vide

Fonction $$ sur google sheets sur mac ?

Votre réponse

Discussions similaires