Conversion données numeriques

Bonjour,

Je cherche a afficher des données de direction de vent de Degrés en format texte exemple

0° à 22° = N

23° à 44° = NNE

voir le fichier joint.

Pourriez vous m'aider.

Merci d'avance

Gilles

Voici

=INDEX(A:A;EQUIV(I2;C:C;1))

après modif colonne C

Merci beaucoup Steelson.

Grace à vous je peux continuer mon projet.

Gilles

Bonjour, Salut Steelson !

Eventuellement pour éviter de monter un tableau...

Function VENT(orient As Single) As String
    Dim dOri, Vts, ori%
    Application.Volatile
    dOri = Array(0, 22, 44, 67, 89, 112, 134, 156, 179, 202, 224, 247, 269, 292, 314, 337, 359, 360)
    Vts = Split("N N NNE NE ENE E ESE SE SSE S SSO SO OSO O ONO NO NNO N")
    ori = Int(orient) Mod 360
    VENT = Vts(WorksheetFunction.Match(ori, dOri, 1))
End Function

Merci Mferrand,

effectivement, Bonne idée

Gilles