Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub txtTexte_Change() 'déclaration des variables privées Dim iFor1 As Integer 'stocke les valeurs de la boucle For->Next 'on initialise le texte de cryptage Let txtCrypte.Text = 0 'on crypte le texte selon l'algorithme : "abc" devient 1+2+3 = 6 For iFor1 = 1 To Len(txtTexte.Text) Let txtCrypte.Text = txtCrypte.Text + (Asc(UCase(Mid(txtTexte.Text, iFor1, 1))) - Asc("A") + 1) Next iFor1 End Sub