ChTi160
XLDnaute Barbatruc
Bonjour le Forum
la question est dans le Titre
j'aimerai savoir si celà est possible et dans un deuxième temps comment faire
pour que ma function Couleur me renvoie deux Arguments
Function couleur(Phase As String )
Dim Ncouleur As Byte
Dim Vpat as byte
Select Case Phase
Case 'A'
Ncouleur = 46 '.ColorIndex
VPat = xlGray8 ' .Pattern
Case 'B'
Ncouleur = 44
Vpat=XlDown
End Select
c'est là que ça se corse (comme aurait dit Napoléon)
pour retourner
couleur = Ncouleur et Vpat
End Function
et comment dans ma procèdure récupérer si celà est possible le deuxieme argument
Phase = Right(.Range('B' & ii), 1)
ValCouleur = couleur(Phase)
ValPattern = couleur(VPat) '????????????????
Merci d'avance
Amicalement
Jean Marie
Message édité par: ChTi160, à: 11/04/2005 15:45
la question est dans le Titre
j'aimerai savoir si celà est possible et dans un deuxième temps comment faire
pour que ma function Couleur me renvoie deux Arguments
Function couleur(Phase As String )
Dim Ncouleur As Byte
Dim Vpat as byte
Select Case Phase
Case 'A'
Ncouleur = 46 '.ColorIndex
VPat = xlGray8 ' .Pattern
Case 'B'
Ncouleur = 44
Vpat=XlDown
End Select
c'est là que ça se corse (comme aurait dit Napoléon)
pour retourner
couleur = Ncouleur et Vpat
End Function
et comment dans ma procèdure récupérer si celà est possible le deuxieme argument
Phase = Right(.Range('B' & ii), 1)
ValCouleur = couleur(Phase)
ValPattern = couleur(VPat) '????????????????
Merci d'avance
Amicalement
Jean Marie
Message édité par: ChTi160, à: 11/04/2005 15:45