créer une somme a partir d'une liste déroulante

Bonjour Roxane,

je te propose ce fichier Excel :

https://www.cjoint.com/c/MJgpXROpQW0

* en A5, saisis R ➯ en H5 : 9,00
* en B5, saisis J ➯ en H5 : 21,75
* en C5, saisis EN ➯ en H5 : 34,50
* en D5, saisis AVN ➯ en H5 : 39,50
* en E5, saisis APN ➯ en H5 : 44,75

formule en H5 : =TH(A5:G5)

TH() est ma fonction personnalisée Total Heures.

fais Alt F11 pour voir le code VBA ; puis fais
de nouveau Alt F11 pour revenir sur Excel.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

code VBA de Module1 (15 lignes) :

Option Explicit

Function TH(T As Range) As Double
  Dim n#, i As Byte
  For i = 1 To 7
    Select Case T(i)
      Case "J", "EN": n = n + 12.75
      Case "AVN": n = n + 5
      Case "APN": n = n + 5.25
      Case "R": n = n + 9
    End Select
  Next i
  TH = n
End Function

rhodo

une semaine est passée, et toujours pas de nouvelles de roxane.  :(