Feuil1.[F4:F13].FormulaR1C1 = "=IF(RC3=""Licence"",0.25*RC4+0.75*RC5,0.35*RC4+0.65*RC5)"
Feuil1.[G4:G13].FormulaR1C1 = "=INDEX(R15C14:R18C14,MATCH(RC6,{0;10;12;16}))"
Merci pour votre aide mais j'ai pas bien compris la formuleBonsoir.
Quelques indications pour vous mettre sur la voie :VB:Feuil1.[F4:F13].FormulaR1C1 = "=IF(RC3=""Licence"",0.25*RC4+0.75*RC5,0.35*RC4+0.65*RC5)" Feuil1.[G4:G13].FormulaR1C1 = "=INDEX(R15C14:R18C14,MATCH(RC6,{0;10;12;16}))"
Je sais mais comprenez moi je suis nouveau et j'ai besoin de vous pour pouvoir m'en sortir.Tâchez de chercher un peu quand même comment tirer partit de mon indication.
Vous avez raison. Mon problème c'est comment trouver le programme vba qui me permettra de calculer la note finale et la mention svpOui ben demandez moi des détails, dites moi quelles difficultés vous avez rencontrées, ne me demandez pas de faire l'exercice à votre place, sinon vous n'apprendrez rien. Ça vous intéresse au moins ? (le sujet je veux dire, parce que si tout ce qui vous intéresse c'est que je vous débarrasse de cette épine du pied, parce que tout ça vous gave complètement, je ne suis pas votre homme)
Là j'ai remplacé un problème par un autre: comment pourriez vous bien utiliser ce que j'ai indiqué ? Refléchissez !
Franchement je ne comprends pas.Une solution c'est de mettre par vba les formules qui le font, puis d'affecter à elle même la valeur de la plage obtenue.
L'exercice est en pièce jointeQuel était le sujet du cours ?
On viens de démarrer le cours et on a pas fait grand chose raison pour laquelle je ne parviens pas à me retrouver.Oui mais je suppose que l'exercice doit mettre en application ce que vous avez appris, alors qu'est ce que vous avez appris ?
Option Explicit
Sub MiseEnPlaceFormules()
With Feuil1.[F4:G13]
.Columns(1).FormulaR1C1 = "=IF(RC3=""Licence"",0.25*RC4+0.75*RC5,0.35*RC4+0.65*RC5)"
.Columns(2).FormulaR1C1 = "=INDEX({""Ajourné"";""Assez Bien"";""Bien"";""Très Bien""},MATCH(RC6,{0;10;12;16}))"
.Offset(, 2).Value = .Value
End With
End Sub
Alors il doit servir à évaluer votre niveau. Aussi je vous conseille de ne pas utiliser ceci.
L'exécution de cette macro, mise dans un nouveau module standard de votre classeur, installe les formules appropriées en F4:G13 et leurs valeurs dans les 2 colonnes après :
VB:Option Explicit Sub MiseEnPlaceFormules() With Feuil1.[F4:G13] .Columns(1).FormulaR1C1 = "=IF(RC3=""Licence"",0.25*RC4+0.75*RC5,0.35*RC4+0.65*RC5)" .Columns(2).FormulaR1C1 = "=INDEX({""Ajourné"";""Assez Bien"";""Bien"";""Très Bien""},MATCH(RC6,{0;10;12;16}))" .Offset(, 2).Value = .Value End With End Sub