Sub analyse()
For i =3D 1 To Len([D2])
MsgBox Asc(Mid([D2], i, 1))
Next
End Sub
Ce programme affiche tous les codes des caract=E8res pr=E9sents dans le
cellule D2. Mais je voudrais, lorqu'on lance le programme, pouvoir
choisir la cellule =E0 analyser dans une boite de dialogue.
J'ai bien essay=E9 mais j'ai des probl=E8mes de conversions de donn=E9es.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JP25
Bonjour Essaies le fichier joint http://cjoint.com/?hmpatYe0zv -- Cordialement JP25
"Jérémy" a écrit dans le message de news:
Bonjour,
Voici mon problème sur le programme suivant :
Sub analyse() For i = 1 To Len([D2]) MsgBox Asc(Mid([D2], i, 1)) Next End Sub
Ce programme affiche tous les codes des caractères présents dans le cellule D2. Mais je voudrais, lorqu'on lance le programme, pouvoir choisir la cellule à analyser dans une boite de dialogue.
J'ai bien essayé mais j'ai des problèmes de conversions de données.
Merci par avance pour votre réponse
Bonjour
Essaies le fichier joint
http://cjoint.com/?hmpatYe0zv
--
Cordialement
JP25 NoSpam-jpmonnier@tele2.fr
"Jérémy" <vilou1@hotmail.com> a écrit dans le message de news:
1184244036.737183.199090@n2g2000hse.googlegroups.com...
Bonjour,
Voici mon problème sur le programme suivant :
Sub analyse()
For i = 1 To Len([D2])
MsgBox Asc(Mid([D2], i, 1))
Next
End Sub
Ce programme affiche tous les codes des caractères présents dans le
cellule D2. Mais je voudrais, lorqu'on lance le programme, pouvoir
choisir la cellule à analyser dans une boite de dialogue.
J'ai bien essayé mais j'ai des problèmes de conversions de données.
Bonjour Essaies le fichier joint http://cjoint.com/?hmpatYe0zv -- Cordialement JP25
"Jérémy" a écrit dans le message de news:
Bonjour,
Voici mon problème sur le programme suivant :
Sub analyse() For i = 1 To Len([D2]) MsgBox Asc(Mid([D2], i, 1)) Next End Sub
Ce programme affiche tous les codes des caractères présents dans le cellule D2. Mais je voudrais, lorqu'on lance le programme, pouvoir choisir la cellule à analyser dans une boite de dialogue.
J'ai bien essayé mais j'ai des problèmes de conversions de données.
Merci par avance pour votre réponse
CAP2
Salut,
essaie ça :
Sub test() Dim cell As Range
Set cell = Application.InputBox("Cliquer sur la cellule désirée", "Choix", , , , , , 8)
For i = 1 To Len(cell.Value) MsgBox Asc(Mid(cell.Value, i, 1)) Next
End Sub
Ca marche ?
CAP2
Salut,
essaie ça :
Sub test()
Dim cell As Range
Set cell = Application.InputBox("Cliquer sur la cellule désirée", "Choix", ,
, , , , 8)
For i = 1 To Len(cell.Value)
MsgBox Asc(Mid(cell.Value, i, 1))
Next
Set monchamp = Application.InputBox(prompt:="Choisissez un champ", Type:=8) For i = 1 To Len(monchamp) MsgBox Asc(Mid(monchamp, i, 1)) Next i
http://cjoint.com/?hmqy0Kc7nW
JB On 12 juil, 14:40, Jérémy wrote:
Bonjour,
Voici mon problème sur le programme suivant :
Sub analyse() For i = 1 To Len([D2]) MsgBox Asc(Mid([D2], i, 1)) Next End Sub
Ce programme affiche tous les codes des caractères présents dans le cellule D2. Mais je voudrais, lorqu'on lance le programme, pouvoir choisir la cellule à analyser dans une boite de dialogue.
J'ai bien essayé mais j'ai des problèmes de conversions de données.
Merci par avance pour votre réponse
Bonjour,
Avec InputBox:
Set monchamp = Application.InputBox(prompt:="Choisissez un champ",
Type:=8)
For i = 1 To Len(monchamp)
MsgBox Asc(Mid(monchamp, i, 1))
Next i
http://cjoint.com/?hmqy0Kc7nW
JB
On 12 juil, 14:40, Jérémy <vil...@hotmail.com> wrote:
Bonjour,
Voici mon problème sur le programme suivant :
Sub analyse()
For i = 1 To Len([D2])
MsgBox Asc(Mid([D2], i, 1))
Next
End Sub
Ce programme affiche tous les codes des caractères présents dans le
cellule D2. Mais je voudrais, lorqu'on lance le programme, pouvoir
choisir la cellule à analyser dans une boite de dialogue.
J'ai bien essayé mais j'ai des problèmes de conversions de données.
Set monchamp = Application.InputBox(prompt:="Choisissez un champ", Type:=8) For i = 1 To Len(monchamp) MsgBox Asc(Mid(monchamp, i, 1)) Next i
http://cjoint.com/?hmqy0Kc7nW
JB On 12 juil, 14:40, Jérémy wrote:
Bonjour,
Voici mon problème sur le programme suivant :
Sub analyse() For i = 1 To Len([D2]) MsgBox Asc(Mid([D2], i, 1)) Next End Sub
Ce programme affiche tous les codes des caractères présents dans le cellule D2. Mais je voudrais, lorqu'on lance le programme, pouvoir choisir la cellule à analyser dans une boite de dialogue.
J'ai bien essayé mais j'ai des problèmes de conversions de données.