Boite de dialogue conversion Hexa en décimal
Fermé
Mdelacre
Messages postés
2
Date d'inscription
jeudi 18 décembre 2014
Statut
Membre
Dernière intervention
29 décembre 2014
-
18 déc. 2014 à 21:44
Mdelacre Messages postés 2 Date d'inscription jeudi 18 décembre 2014 Statut Membre Dernière intervention 29 décembre 2014 - 29 déc. 2014 à 19:36
Mdelacre Messages postés 2 Date d'inscription jeudi 18 décembre 2014 Statut Membre Dernière intervention 29 décembre 2014 - 29 déc. 2014 à 19:36
A voir également:
- Boite de dialogue conversion Hexa en décimal
- Se connecter à ma boite hotmail - Guide
- Ouvrir ma boîte mail ✓ - Forum Messagerie
- Www.hotmail.com boite de réception ✓ - Forum Hotmail (Outlook.com)
- Je n'arrive pas a accéder a ma boite de reception ✓ - Forum Hotmail (Outlook.com)
- Editeur hexa - Télécharger - Édition & Programmation
3 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
19 déc. 2014 à 08:55
19 déc. 2014 à 08:55
Bonjour,
je t'ai fait les 2 conversions: decimal-> hexa et hexa-> decimal
Mettre 2 boutons et 2 textBox, c'est dans le textBox1 que tu mettras les données.
Voici le code:
je t'ai fait les 2 conversions: decimal-> hexa et hexa-> decimal
Mettre 2 boutons et 2 textBox, c'est dans le textBox1 que tu mettras les données.
Voici le code:
Option Explicit
Private Sub UserForm_Initialize()
CommandButton1.Caption = "decimal-->hexa"
CommandButton2.Caption = "hexa-->decimal"
End Sub
'decimal-->hexa
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then Exit Sub
TextBox2.Text = convert_decimal_hexadecimal(TextBox1.Text)
End Sub
'hexa-->decimal
Private Sub CommandButton2_Click()
TextBox2.Text = Hex2Dec(TextBox1.Text)
TextBox2.Text = Right(TextBox2.Text, 8) '8 derniers caracteres
End Sub
'decimal-->hexa
Function convert_decimal_hexadecimal(mon_nombre_decimal)
Dim Hexa, temp
Hexa = ""
Do While mon_nombre_decimal > 0
temp = Int(mon_nombre_decimal / 16)
If mon_nombre_decimal - (temp * 16) = 10 Then
Hexa = "A"
ElseIf mon_nombre_decimal - (temp * 16) = 11 Then
Hexa = "B"
ElseIf mon_nombre_decimal - (temp * 16) = 12 Then
Hexa = "C"
ElseIf mon_nombre_decimal - (temp * 16) = 13 Then
Hexa = "D"
ElseIf mon_nombre_decimal - (temp * 16) = 14 Then
Hexa = "E"
ElseIf mon_nombre_decimal - (temp * 16) = 15 Then
Hexa = "F"
Else
Hexa = mon_nombre_decimal - (temp * 16)
End If
convert_decimal_hexadecimal = Hexa & convert_decimal_hexadecimal
mon_nombre_decimal = temp
Hexa = ""
Loop
End Function
'hexa-->decimal
Function Hex2Dec(Hexa As String) As Double
Dim i As Integer, Multi As Integer
Hex2Dec = 0
Hexa = UCase(Trim(Hexa))
If Not Hexa Like "*[G-Z]*" Then
For i = 1 To Len(Hexa)
Multi = CInt("&H" & (Mid(Hexa, Len(Hexa) - i + 1, 1)))
Hex2Dec = Hex2Dec + (Multi * 16 ^ (i - 1))
Next i
End If
End Function
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
19 déc. 2014 à 09:33
19 déc. 2014 à 09:33
J'ai oublié la recopie du résultat dans une cellule:
'hexa-->decimal
Private Sub CommandButton2_Click()
If TextBox1.Text = "" Then Exit Sub
TextBox2.Text = Hex2Dec(TextBox1.Text)
TextBox2.Text = Right(TextBox2.Text, 8) '8 derniers caracteres
Range("A1").Value = TextBox2.Text
End Sub
Mdelacre
Messages postés
2
Date d'inscription
jeudi 18 décembre 2014
Statut
Membre
Dernière intervention
29 décembre 2014
29 déc. 2014 à 19:36
29 déc. 2014 à 19:36
Bonsoir
merci beaucoup pour ton aide!
je n'ai pas encore fait les tests avec ce que tu m'as communiqué, je n'ai pas été très dispo; je vais faire mes essais début janvier.
dans tous les cas, je te tiens au courant...
Encore merci
merci beaucoup pour ton aide!
je n'ai pas encore fait les tests avec ce que tu m'as communiqué, je n'ai pas été très dispo; je vais faire mes essais début janvier.
dans tous les cas, je te tiens au courant...
Encore merci
19 déc. 2014 à 08:57
If TextBox1.Text = "" Then Exit Sub