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
FFO
Salut Jérémy
Ceci pourrait faire :
Cellule = InputBox("Saisissez la cellule", "Cellule") For i = 1 To Len(Range(Cellule)) MsgBox Asc(Mid(Range(Cellule), i, 1)) Next
Dis moi !!!
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
Salut Jérémy
Ceci pourrait faire :
Cellule = InputBox("Saisissez la cellule", "Cellule")
For i = 1 To Len(Range(Cellule))
MsgBox Asc(Mid(Range(Cellule), i, 1))
Next
Dis moi !!!
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.
Cellule = InputBox("Saisissez la cellule", "Cellule") For i = 1 To Len(Range(Cellule)) MsgBox Asc(Mid(Range(Cellule), i, 1)) Next
Dis moi !!!
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
FFO
Rebonjours à toi
Une solution plus simple en cliquant seulement sur la cellule à traiter Ce code :
For i = 1 To Len(ActiveCell) MsgBox Asc(Mid(ActiveCell, i, 1)) Next
C'est peut être mieux Dis moi !!!
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
Rebonjours à toi
Une solution plus simple en cliquant seulement sur la cellule à traiter
Ce code :
For i = 1 To Len(ActiveCell)
MsgBox Asc(Mid(ActiveCell, i, 1))
Next
C'est peut être mieux
Dis moi !!!
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.
Une solution plus simple en cliquant seulement sur la cellule à traiter Ce code :
For i = 1 To Len(ActiveCell) MsgBox Asc(Mid(ActiveCell, i, 1)) Next
C'est peut être mieux Dis moi !!!
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.