Contenu récent par NXP

Voici ma solution Option Explicit Public Sub CalculNoteFinaleetMention() Dim Myarray As Variant Dim IndexMyarray As Integer Myarray = Mysheet.Range("C4").Resize(10, 3).Value For IndexMyarray = 1 To UBound(Myarray) Select Case Myarray(IndexMyarray, 1) Case "Licence"...