Bonjour,

Etant débutant en VB, je rencontre un petit soucis au niveau d'un cast à faire :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
  Dim valeurhexa(100) As String
            Dim reshexa As Integer
            Dim ihexa As Integer
 
            valeurhexa = Split(valeurdep.Text, " ")
            For ihexa = 0 To UBound(valeurhexa, 1)
 
                Select Case valeurhexa(ihexa)
                    Case "A"
                        reshexa = reshexa + ((10 * 16) ^ ihexa)
                    Case "B"
                        reshexa = reshexa + ((11 * 16) ^ ihexa)
                    Case "C"
                        reshexa = reshexa + ((12 * 16) ^ ihexa)
                    Case "D"
                        reshexa = reshexa + ((13 * 16) ^ ihexa)
                    Case "E"
                        reshexa = reshexa + ((14 * 16) ^ ihexa)
                    Case "F"
                        reshexa = reshexa + ((15 * 16) ^ ihexa)
                End Select
                reshexa = reshexa + ((valeurhexa(ihexa) * 16) ^ ihexa)
            Next
            txtbox_value_hexa.Text = reshexa
Comme vous le devinerai, il s'agit de convertir hexa / décimal, et il faudrait faire un cast pour que valeurhexa() soit converti en entier, pour que l'opération puisse se faire.

Merci de vos éclairsissements