Créer une macro

Le 15/02/2013 à 17:53

Bonjour,

J'aurais voulu savoir si c'était possible de créer une macro qui dit de 999 à 915 le résultat est égal à 1 et ainsi de suite

de 999 à 915 = 1

de 915 à 906 = 2

de 906 à 896 = 3

de 896 à 887 = 4

de 887 à 878 = 5

de 878 à 868 = 6

de 868 à 859 = 7

de 859 à 549 = 8

Cordialement

Le 15/02/2013 à 20:07

Bonjour toto

Sans trop approfondir, car pour tes bornes tu demandes 2 résultats différents.

Tu adapteras

Donc, ta valeur entrée en A1 et ailleurs, cette formule

=INDEX({1;2;3;4;5;6;7;8;"Pas prévu"};EQUIV(A1;{914;905;895;886;877;867;858;548};-1)+1)

Cordialement

Le 15/02/2013 à 20:26

Merci pour ta réponse

Je viens de tester et tout ne va pas comme je veux. Je vais essayer de faire de modif et je revienfrais vous dire ou j'en suis.

Le 15/02/2013 à 20:38

Bonjour,

Avec VBA

Sub test()
Dim R
Dim Resultat As Byte
    R = InputBox("Veuillez saisir un chiffre entre 549 et 999", "CHOIX DU CHIFFRE")
    If IsNumeric(R) Then
        Select Case R
        Case Is > 999: Exit Sub
        Case 915 To 999: Resultat = 1
        Case 906 To 914: Resultat = 2
        Case 896 To 905: Resultat = 3
        Case 887 To 895: Resultat = 4
        Case 878 To 886: Resultat = 5
        Case 868 To 877: Resultat = 6
        Case 859 To 867: Resultat = 7
        Case 549 To 858: Resultat = 8
        Case Is < 549: Exit Sub
        End Select
        MsgBox "Le résultat est " & Resultat
    End If
End Sub

Le 15/02/2013 à 20:57

Bonsoir

Une petite idée aussi

Sub Test()
Dim Nb As Double

  Nb = Range("C13")
  If Nb < 549 Or Nb > 999 Then
    MsgBox "Hors limites (549-999)"
    Exit Sub
  End If
  Range("C1") = Application.VLookup(Nb, Array(Array(549, 8), Array(859, 7), Array(868, 6), Array(878, 5), _
                                      Array(887, 4), Array(896, 3), Array(906, 2), Array(915, 1)), 2, True)
End Sub

Le Range("C13") peut passer par une InputBox

Le 15/02/2013 à 21:06

Merci frangy sa fonctionne,

Mais le Ø exemple 916 va se mettre en P3 et je voudrais que la chiffre 1 se mette en M3

Est ce plus clair, je viens de mettre le fichier en pièce jointe

Edit: Les chiffres seront toujours en dixième et du coup la macro ne fonctionne plus.

3o-tachymetrique.xlsx (10.67 Ko)

Le 15/02/2013 à 21:30

Merci Banzai64,

Je viens de tester ta macro et elle fonctionne nikel. J'aurais une question, est ce qu'on peut mettre des chiffre à vigule et comment ?

Car j'ai essayé et sa fait tout beugger

Le 15/02/2013 à 21:54