macro changement de tranche

Re : macro changement de tranche

Salut,

Tu peux dans un premier temps créer une fonction Tranche dans un module de code, comme ceci :

Function Tranche(Nombre)
Select Case Nombre
Case Is <= 300000: Tranche = 1
Case Is <= 750000: Tranche = 2
Case Is <= 1350000: Tranche = 3
Case Else: Tranche = 4
End Select
End Function

Ensuite, tu pourras utiliser cette fonction, par exemple :

Dim A As Long, B As Long
A = 1000
B = 1000000
MsgBox Tranche(A)
MsgBox Tranche(B)

Ou alors :

If Tranche(A) <> Tranche(B) Then
...
End If

A+
Horatio

Re : macro changement de tranche

ca marche très bien, merci beaucoup, et bon week end

Stephane