Private Sub Command1_Click Dim Valeur As Long Valeur = Val("&h" & Command1.Caption) If Valeur + 1 < 15 Then Valeur = Valeur + 1 End If Command1.Caption = Hex(Valeur) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question