Comment copiez le msgbox dans vba
imitech
-
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention -
bonjour mes amis veuillez m'aider à copiez le message box dans vba car ce code me permet de crypter un texte
Sub cryptage()
Dim texteorigin As String
Dim textecrypt As String
Dim lettreorigin As String
Dim lettrecrypt As String
Dim chiffreorigin As Integer
Dim chiffrecrypt As Integer
Dim cle As Integer
Dim longeur, i As Long
texteorigin = InputBox("entrez un texte")
cle = InputBox("entrez la cle")
longeur = Len(texteorigin)
For i = 1 To longeur
lettreorigin = Mid(texteorigin, i, 1)
chiffreorigin = Asc(lettreorigin)
chiffrecrypt = chiffreorigin + cle
lettrecrypt = Chr(chiffrecrypt)
textecrypt = textecrypt & lettrecrypt
Next i
MsgBox textecrypt
End Sub
Sub cryptage()
Dim texteorigin As String
Dim textecrypt As String
Dim lettreorigin As String
Dim lettrecrypt As String
Dim chiffreorigin As Integer
Dim chiffrecrypt As Integer
Dim cle As Integer
Dim longeur, i As Long
texteorigin = InputBox("entrez un texte")
cle = InputBox("entrez la cle")
longeur = Len(texteorigin)
For i = 1 To longeur
lettreorigin = Mid(texteorigin, i, 1)
chiffreorigin = Asc(lettreorigin)
chiffrecrypt = chiffreorigin + cle
lettrecrypt = Chr(chiffrecrypt)
textecrypt = textecrypt & lettrecrypt
Next i
MsgBox textecrypt
End Sub
A voir également:
- Comment copiez le msgbox dans vba
- Copiez la ligne qui indique aux moteurs de recherche de ne pas référencer la page. - Forum Réseaux sociaux
- Excel compter cellule couleur sans vba - Guide
- Comment mettre en copie cachée - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Lien copié dans le téléphone - Forum Mobile
