Télécharger le zip
Sympa comme petit programme !Toujours utile...Pas contre je metterai pour le Comand1_clickPrivate Sub Command1_Click()Text1.Text = ""For x = 0 To 255If Text1.Text = "" ThenText1.Text = Text1.Text & Val(x) & " = " & Chr(x)ElseText1.Text = Text1.Text & vbCrLf & Val(x) & " = " & Chr(x)End IfNext xEnd SubJ'ai mit un Text1.Text = "" ca permet de ne pas faire se succéder les lignes générées dans le cas ou le bouton afficher serait cliquer une seconde fois (voir plus...)
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 873 174 membres 14 nouveaux aujourd'hui 16 151 membres club