Formule dans cellule Vba
Résolu/Fermé
titi17-08
Messages postés
122
Date d'inscription
mercredi 29 janvier 2020
Statut
Membre
Dernière intervention
20 janvier 2023
-
9 sept. 2021 à 09:53
titi17-08 Messages postés 122 Date d'inscription mercredi 29 janvier 2020 Statut Membre Dernière intervention 20 janvier 2023 - 10 sept. 2021 à 08:12
titi17-08 Messages postés 122 Date d'inscription mercredi 29 janvier 2020 Statut Membre Dernière intervention 20 janvier 2023 - 10 sept. 2021 à 08:12
A voir également:
- Formule dans cellule Vba
- Formule excel pour additionner plusieurs cellules - Guide
- Formule si et - Guide
- Formule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller une cellule excel dans une formule - Guide
6 réponses
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
281
9 sept. 2021 à 09:58
9 sept. 2021 à 09:58
Bonjour,
Commence par modifier "+rep" par "& rep"
Commence par modifier "+rep" par "& rep"
titi17-08
Messages postés
122
Date d'inscription
mercredi 29 janvier 2020
Statut
Membre
Dernière intervention
20 janvier 2023
1
9 sept. 2021 à 10:04
9 sept. 2021 à 10:04
Bonjour M-12
merci pour ton aide
il me met toujours demande fin d'instruction;(
merci pour ton aide
il me met toujours demande fin d'instruction;(
M-12
Messages postés
1331
Date d'inscription
lundi 22 septembre 2008
Statut
Membre
Dernière intervention
8 avril 2023
281
9 sept. 2021 à 13:12
9 sept. 2021 à 13:12
Place un classeur exemple
titi17-08
Messages postés
122
Date d'inscription
mercredi 29 janvier 2020
Statut
Membre
Dernière intervention
20 janvier 2023
1
9 sept. 2021 à 13:27
9 sept. 2021 à 13:27
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:\Users\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:\Users\Sandrine\Desktop\PERSO\SOCIETE\Suivi SJTC"
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ccm81
Messages postés
10863
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
12 juin 2024
2 410
Modifié le 9 sept. 2021 à 15:13
Modifié le 9 sept. 2021 à 15:13
Bonjour
Essaies en découpant un peu
Cdlmnt
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
titi17-08
Messages postés
122
Date d'inscription
mercredi 29 janvier 2020
Statut
Membre
Dernière intervention
20 janvier 2023
1
10 sept. 2021 à 08:12
10 sept. 2021 à 08:12
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
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]"
