XL 2010 Excel Vba

[Konte94]

Salut, svp qui peut m'aider à faire ce t'exercice je l'ai essayé mais j'ai rencontré quelques difficultés.

 

[Dranreb]

Bonsoir.
Quelques indications pour vous mettre sur la voie :

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}))"

 

[Konte94]

Bonsoir.
Quelques indications pour vous mettre sur la voie :

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 formule

 

[Dranreb]

Tâchez de chercher un peu quand même comment tirer partit de mon indication.

 

[Konte94]

Tâchez de chercher un peu quand même comment tirer partit de mon indication.

Je sais mais comprenez moi je suis nouveau et j'ai besoin de vous pour pouvoir m'en sortir.

 

[Dranreb]

Oui 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 !

 

[Konte94]

Oui 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 !

Vous avez raison. Mon problème c'est comment trouver le programme vba qui me permettra de calculer la note finale et la mention svp

 

[Dranreb]

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.
À quelle connaissances enseignées cet exercice est-il destiné à vérifier que vous les avez acquises ?

 

[Konte94]

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.

Franchement je ne comprends pas.

 

[Dranreb]

Quel était le sujet du cours ?

 

[Konte94]

Quel était le sujet du cours ?

L'exercice est en pièce jointe

 

[Dranreb]

Oui mais je suppose que l'exercice doit mettre en application ce que vous avez appris, alors qu'est ce que vous avez appris ?
Si je vous donne une solution, elle risque de mettre en œuvre des choses que vous n'êtes pas censé avoir apprises !

 

[Konte94]

Oui mais je suppose que l'exercice doit mettre en application ce que vous avez appris, alors qu'est ce que vous avez appris ?

On viens de démarrer le cours et on a pas fait grand chose raison pour laquelle je ne parviens pas à me retrouver.

 

[Dranreb]

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 :

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

 

[Konte94]

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 :

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

Merci beaucoup pour votre aide