Pb avec Asc en Visual Basic

charly -
tech_57 - 15 juil. 2009 à 22:04

salut
je rencontre un pb lors de l'execution de ma macro avec la fonction asc de VB
cette partie de mon programme vise a echanger un caractere se situant dans une chaine par son suivant dans l'alphabet .
dans le code :
CONTENU : NOM DE LA CHAINE DE CARATERE
POSITION : POSITION DU CARACTERE QUE L'ON VEUT CHANGER

Dim lettre As String
Dim lettreBIS As String
Dim code As Integer

lettre = Mid(contenu, position, 1)
code = Asc(lettre)
lettreBIS = Chr(code + 1)
Mid(contenu, position) = lettreBIS

je n'arrive pas a trouver ou est l'erreur et pkoi il ne prend pas la fonction asc
svp si quelqu'un peut m'aider a resoudre ce beug!!!!

merci d'avance

A voir également:

Pb avec Asc en Visual Basic
Visual basic - Télécharger - Langages
Visual basic editor - Télécharger - Langages
Visual petanque - Télécharger - Sport
Microsoft 365 basic - Accueil - Microsoft Office
Code asc - Guide

1 réponse

Réponse 1 / 1

tech_57

Bonsoir,

J'ai testé ton code et ça fonctionne. Verifie dans ton prog que contenu et position ont bien les bonnes valeurs au moment du traitement.

Sub test()
Dim lettre As String
Dim lettreBIS As String
Dim code As Integer

Dim contenu As String
Dim position As Integer
contenu = "ABCDEFGHIJ"
position = 3 'modifier la lettre C en D

lettre = Mid(contenu, position, 1)
code = Asc(lettre)
lettreBIS = Chr(code + 1)
Mid(contenu, position) = lettreBIS

MsgBox contenu '-> ABDDEFGHIJ ok
End Sub

Discussions similaires

Site de confiance ou non ?

Microsoft Visual C++ ? C'est quoi ?

Votre réponse

Discussions similaires