Public Function Dépenses(target As Range) As String
Dépenses = "Autres"
Dimin = Right(Left(target, 7), 2)
ColC = target.Offset(0, -4)
ColD = target.Offset(0, -3)
Select Case Dimin
Case "CA", "CU", "PR"
Dépenses = "ENTRETIEN"
Exit Function
End Select
If ColC = "Materiels - Entretien" Then
Dépenses = "ENTRETIEN"
Exit Function
End If
If InStr(1, UCase(ColD), "CARBURANT") <> 0 Then
Dépenses = "Carburant"
Exit Function
End If
Select Case ColD
Case "Couts de detention du parc"
Dépenses = "PARC"
Exit Function
Case "Personnel Interim."
Dépenses = "Personnel Intérim"
Exit Function
End Select
If Left(ColD, 2) = "MO" Then
Dépenses = "MO"
Exit Function
End If
If ColD = "Revente interne d'atelier" Then
Dépenses = "ENTRETIEN"
Exit Function
End If
End Function
'SI(DROITE(GAUCHE(G2;7);2)="CA";"ENTRETIEN";
'SI(DROITE(GAUCHE(G2;7);2)="CU";"ENTRETIEN";
'SI(DROITE(GAUCHE(G2;7);2)="PR";"ENTRETIEN";
'SI(C2="Materiels - Entretien";"ENTRETIEN";
'SI(ESTNUM(CHERCHE("Carburant";D2));"Carburant";
'SI(D2="Couts de detention du parc";"PARC";
'SI(D2="Personnel Interim.";"Personnel Intérim";
'SI(GAUCHE(D2;2)="MO";"MO";
'SI(D2="Revente interne d'atelier";"ENTRETIEN";"Autres")))))))))