Conversion d'une chaîne en valeur numérique
Fermé
libellule123
Messages postés
4
Date d'inscription
dimanche 11 septembre 2016
Statut
Membre
Dernière intervention
19 septembre 2016
-
18 sept. 2016 à 15:24
libellule123 Messages postés 4 Date d'inscription dimanche 11 septembre 2016 Statut Membre Dernière intervention 19 septembre 2016 - 19 sept. 2016 à 19:06
libellule123 Messages postés 4 Date d'inscription dimanche 11 septembre 2016 Statut Membre Dernière intervention 19 septembre 2016 - 19 sept. 2016 à 19:06
A voir également:
- Conversion d'une chaîne en valeur numérique
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
- Pièce 2 euros dessin bonhomme valeur ✓ - Forum Loisirs / Divertissements
- Valeur numérique pour le téléphone - Forum Bureautique
- Clavier numérique bloqué - Guide
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
1 réponse
libellule123
Messages postés
4
Date d'inscription
dimanche 11 septembre 2016
Statut
Membre
Dernière intervention
19 septembre 2016
18 sept. 2016 à 15:27
18 sept. 2016 à 15:27
Navré il me manque une partie du code sur le premier message voici le code complet:
Public Function convertString(ByVal Mot As String) As String
Dim Res As String
For i = 0 To Mot.Length
Mot(i) = Mot(i).Chr(Asc("A") + 1)
Mot = Mot(i)
Res = Mot
Return Res
Next
End Function
19 sept. 2016 à 19:06
Public Function convertString(ByVal Mot As String, i As Integer) As Integer Mot = "" For i = 1 To Mot.Length Mot = Mot & Asc(Mid(Mot, i, 1)) & " " Next Return Mot End Functionnmalheureusement je n'arrive pas à le tester, j'ai une erreur qui s'affiche lors de la transcription du test au niveau "fonction.ConvertSting(st) ???
Sub Main() Console.WriteLine("veuillez saisir un mot") Dim st As Integer st = Console.ReadLine() Console.WriteLine(fonctions.ConvertString(st)) End Subj'espère que vous m'apporterez votre aide, merci