XL 2010 Excel Vba

Dranreb à dit:

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

Cliquez pour agrandir...

Dranreb à dit:

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

Cliquez pour agrandir...

Dranreb à dit:

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 !

Cliquez pour agrandir...

Dranreb à dit:

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.

Cliquez pour agrandir...

Dranreb à dit:

Quel était le sujet du cours ?

Cliquez pour agrandir...

Dranreb à dit:

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

Cliquez pour agrandir...

Dranreb à dit:

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

Cliquez pour agrandir...