retour de deux valeurs par une Fonction????

Dim Phase As String, ValCouleur As Variant, ValPattern As Variant
Dim DetCoul As Variant
      '
      Phase = Right(.Range('B' & ii), 1)
      'Appeler la fonction et stocker le résultat dans le tableau variant DetCoul
      DetCoul = Couleur(Phase)
      '
      ValCouleur = DetCoul(0)   'Elément 0 du tableau variant
      ValPattern = DetCoul(1)   'Elément 1 du tableau variant

Cliquez pour agrandir...

Public Function Couleur(Phase As String) As Variant
Dim Ncouleur As Byte, Vpat As Byte
      Select Case Phase
      Case 'A'
            Ncouleur = 46 '.ColorIndex
            Vpat = xlGray8 ' .Pattern
      Case 'B'
            Ncouleur = 44
            Vpat = xlDown
      End Select
      Couleur = Array(Ncouleur, Vpat)       'Retour des valeurs dans un tableau variant
End Function

Cliquez pour agrandir...