Sub CONV()
'
' Sélection de la page de conversion
' Affichage de la fenêtre de saisie.
'
Sheets("CONV").Select
' Effacement de l'ancienne donnée et mise en mode normal.
' Si affichage scientifique, 3949E0= 3949 (E=Exposant)
' (Ne fonctionne pas mieux avec cela...)
Range("B1").Select
Selection.ClearContents
Selection.NumberFormat = "@"
Sheets("CONV").Cells(1, 2) = InputBox("Entrer le code Hexa")
'
'
' Test de l'intégitté du code voir le ELSE plus bas.
' Si non conforme, affichage de la fenêtre d'erreur.
' Si OK (0) décodage, sinon affichage msg d'erreur.
'
Sheets("CONV").Select
If Range("e9") = 0 Then
'
' Choix des 2 premiers digits avec ?-? par défaut.
'
Range("c1") = "? - ?"
If Range("c4") = 112 Then Range("c1") = "a1"
If Range("c4") = 114 Then Range("c1") = "b3"
If Range("c4") = 115 Then Range("c1") = "c5"
If Range("c4") = 116 Then Range("c1") = "d7"
'
' Troisième digit
Cells(1, 4) = Chr(Cells(4, 4) + 65)
'
' Quatrième digit
Cells(1, 5) = Chr(Cells(4, 5) + 65)
' Cinquième digit
Cells(1, 6) = Chr(Cells(4, 6) + 65)
'
' Si test NOGO, affichage de la fenêtre d'erreur.
' La page CONV sera masquée et les valeurs effacées.
'
Else:
Sheets("CONV").Select
Range("B1:F1").Select
Application.CutCopyMode = False
Selection.ClearContents
Sheets("1").Select
DialogSheets("erreur").Show
End If
'
' Si le test d'intégrité est bon.
' et l'affichage se fait normalement sur la page d'accueil.
'
Sheets("1").Select
'
End Sub