Pb avec Asc en Visual Basic
charly
-
tech_57 -
tech_57 -
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
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
- Code asc - Guide
- Microsoft 365 basic - Accueil - Microsoft Office
1 réponse
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
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
