Voilà le code que j'ai commencé à écrire.
Il récupère bien le revenu brut global et les points de charges mentionnés dans ma feuille excel mais il ne détermine pas l'échelon par rapport au tableau que j'ai fournit auparavant.
Je voudrais qu'il me dise par exemple:
Si mon RBG est de 35000
et mes points de charges de 10
=> que je suis échelon 02.
Merci de votre aide
Public Sub Tableaudonnées()
Dim RBG As Long
Dim PDC As Integer
Dim échelon As String
Dim C As Object
RBG = Worksheets("Identité").Range("E18")
PDC = Worksheets("Identité").Range("F49")
Set C = Worksheets("Identité").Range("A57")
While Not IsEmpty(C) And C.Value <> Range("F49").Value
Set C = C.Offset(1, 0)
Wend
If C.Value = Range("F49").Value Then
If ("E18") < C.Offset(0, 9).Value Then
échelon = "07"
Else
If ("E18") < C.Offset(0, 8).Value Then
échelon = "06"
Else
If ("E18") < C.Offset(0, 7).Value Then
échelon = "05"
Else
If ("E18") < C.Offset(0, 6).Value Then
échelon = "04"
Else
If ("E18") < C.Offset(0, 5).Value Then
échelon = "03"
Else
If ("E18") < C.Offset(0, 4).Value Then
échelon = "02"
Else
If ("E18") < C.Offset(0, 3).Value Then
échelon = "01"
Else
If ("E18") < C.Offset(0, 2).Value Then
échelon = "0bis"
Else
If ("E18") < C.Offset(0, 1).Value Then
échelon = "00"
Else
MsgBox ("Droit de bourses refusé!"), vbCritical, "ERREUR"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub