J'ai besoin d'aide , je doit réaliser un macro excel pour un petit exercice que je doit faire en ligne , c'est la toute dernière question et je galère !
l’énoncer :
Ecrivez une macro qui demandera à l’utilisateur de saisir une lettre en majuscule et qui affichera ensuite le numéro de cette lettre dans l’alphabet (à savoir que le code ASCII pour A est 65, pour B est 66, pour C est 67, etc. ). Essayez de soigner l’interface utilisateur pour que les messages à destination de l’utilisateur soient le plus clair possible. Par exemple, si vous saisissez la lettre A, la macro devrait afficher :
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
isabelle
bonjour, Sub Macro1() Dim Message, Title, Default, MyValue Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le message. Title = "Démonstration du code ASCII" ' Définit le titre. Default = "A" ' Définition la valeur par défaut. MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie n = Asc(MyValue) ' valeur AscII 'Résultat MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _ "est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _ "Le code ASCII correspondant est: " & n End Sub isabelle Le 2016-11-27 à 11:53, exhilium a écrit :
Bonjour, J'ai besoin d'aide , je doit réaliser un macro excel pour un petit exercice que je doit faire en ligne , c'est la toute dernière question et je galère ! l’énoncer : Ecrivez une macro qui demandera à l’utilisateur de saisir une lettre en majuscule et qui affichera ensuite le numéro de cette lettre dans l’alphabet (à savoir que le code ASCII pour A est 65, pour B est 66, pour C est 67, etc. ). Essayez de soigner l’interface utilisateur pour que les messages à destination de l’utilisateur soient le plus clair possible. Par exemple, si vous saisissez la lettre A, la macro devrait afficher : La lettre C est la lettre no. 3 en alphabet merci beaucoup de votre aide ;) Cordialement !
bonjour,
Sub Macro1()
Dim Message, Title, Default, MyValue
Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le message.
Title = "Démonstration du code ASCII" ' Définit le titre.
Default = "A" ' Définition la valeur par défaut.
MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie
n = Asc(MyValue) ' valeur AscII
'Résultat
MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _
"est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _
"Le code ASCII correspondant est: " & n
End Sub
isabelle
Le 2016-11-27 à 11:53, exhilium a écrit :
Bonjour,
J'ai besoin d'aide , je doit réaliser un macro excel pour un petit exercice que
je doit faire en ligne , c'est la toute dernière question et je galère !
l’énoncer :
Ecrivez une macro qui demandera à l’utilisateur de saisir une lettre en
majuscule et qui affichera ensuite le numéro de cette lettre dans l’alphabet (à
savoir que le code ASCII pour A est 65, pour B est 66, pour C est 67, etc. ).
Essayez de soigner l’interface utilisateur pour que les messages à destination
de l’utilisateur soient le plus clair possible. Par exemple, si vous saisissez
la lettre A, la macro devrait afficher :
bonjour, Sub Macro1() Dim Message, Title, Default, MyValue Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le message. Title = "Démonstration du code ASCII" ' Définit le titre. Default = "A" ' Définition la valeur par défaut. MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie n = Asc(MyValue) ' valeur AscII 'Résultat MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _ "est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _ "Le code ASCII correspondant est: " & n End Sub isabelle Le 2016-11-27 à 11:53, exhilium a écrit :
Bonjour, J'ai besoin d'aide , je doit réaliser un macro excel pour un petit exercice que je doit faire en ligne , c'est la toute dernière question et je galère ! l’énoncer : Ecrivez une macro qui demandera à l’utilisateur de saisir une lettre en majuscule et qui affichera ensuite le numéro de cette lettre dans l’alphabet (à savoir que le code ASCII pour A est 65, pour B est 66, pour C est 67, etc. ). Essayez de soigner l’interface utilisateur pour que les messages à destination de l’utilisateur soient le plus clair possible. Par exemple, si vous saisissez la lettre A, la macro devrait afficher : La lettre C est la lettre no. 3 en alphabet merci beaucoup de votre aide ;) Cordialement !
HB
M'enfin Isabelle ... yapa de vérif pour le cas où l'utilisateur ferait un truc imprévu ? Le zanfan va se faire trop grâve gronder par son prof ... ;o) HB Le 27/11/2016 à 20:29, isabelle a écrit :
bonjour, Sub Macro1() Dim Message, Title, Default, MyValue Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le message. Title = "Démonstration du code ASCII" ' Définit le titre. Default = "A" ' Définition la valeur par défaut. MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie n = Asc(MyValue) ' valeur AscII 'Résultat MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _ "est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _ "Le code ASCII correspondant est: " & n End Sub isabelle Le 2016-11-27 à 11:53, exhilium a écrit :
Bonjour, J'ai besoin d'aide , je doit réaliser un macro excel pour un petit exercice que je doit faire en ligne , c'est la toute dernière question et je galère ! l’énoncer : Ecrivez une macro qui demandera à l’utilisateur de saisir une lettre en majuscule et qui affichera ensuite le numéro de cette lettre dans l’alphabet (à savoir que le code ASCII pour A est 65, pour B est 66, pour C est 67, etc. ). Essayez de soigner l’interface utilisateur pour que les messages à destination de l’utilisateur soient le plus clair possible. Par exemple, si vous saisissez la lettre A, la macro devrait afficher : La lettre C est la lettre no. 3 en alphabet merci beaucoup de votre aide ;) Cordialement !
M'enfin Isabelle ... yapa de vérif
pour le cas où l'utilisateur
ferait un truc imprévu ?
Le zanfan va se faire
trop grâve
gronder par son prof ... ;o)
HB
Le 27/11/2016 à 20:29, isabelle a écrit :
bonjour,
Sub Macro1()
Dim Message, Title, Default, MyValue
Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le
message.
Title = "Démonstration du code ASCII" ' Définit le titre.
Default = "A" ' Définition la valeur par défaut.
MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie
n = Asc(MyValue) ' valeur AscII
'Résultat
MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _
"est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _
"Le code ASCII correspondant est: " & n
End Sub
isabelle
Le 2016-11-27 à 11:53, exhilium a écrit :
Bonjour,
J'ai besoin d'aide , je doit réaliser un macro excel pour un petit
exercice que
je doit faire en ligne , c'est la toute dernière question et je galère !
l’énoncer :
Ecrivez une macro qui demandera à l’utilisateur de saisir une lettre en
majuscule et qui affichera ensuite le numéro de cette lettre dans
l’alphabet (à
savoir que le code ASCII pour A est 65, pour B est 66, pour C est 67,
etc. ).
Essayez de soigner l’interface utilisateur pour que les messages à
destination
de l’utilisateur soient le plus clair possible. Par exemple, si vous
saisissez
la lettre A, la macro devrait afficher :
M'enfin Isabelle ... yapa de vérif pour le cas où l'utilisateur ferait un truc imprévu ? Le zanfan va se faire trop grâve gronder par son prof ... ;o) HB Le 27/11/2016 à 20:29, isabelle a écrit :
bonjour, Sub Macro1() Dim Message, Title, Default, MyValue Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le message. Title = "Démonstration du code ASCII" ' Définit le titre. Default = "A" ' Définition la valeur par défaut. MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie n = Asc(MyValue) ' valeur AscII 'Résultat MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _ "est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _ "Le code ASCII correspondant est: " & n End Sub isabelle Le 2016-11-27 à 11:53, exhilium a écrit :
Bonjour, J'ai besoin d'aide , je doit réaliser un macro excel pour un petit exercice que je doit faire en ligne , c'est la toute dernière question et je galère ! l’énoncer : Ecrivez une macro qui demandera à l’utilisateur de saisir une lettre en majuscule et qui affichera ensuite le numéro de cette lettre dans l’alphabet (à savoir que le code ASCII pour A est 65, pour B est 66, pour C est 67, etc. ). Essayez de soigner l’interface utilisateur pour que les messages à destination de l’utilisateur soient le plus clair possible. Par exemple, si vous saisissez la lettre A, la macro devrait afficher : La lettre C est la lettre no. 3 en alphabet merci beaucoup de votre aide ;) Cordialement !
isabelle
;-) c'est ce qui arrive quand on fait pas ses devoir isabelle Le 2016-11-27 à 17:06, HB a écrit :
Le zanfan va se faire trop grâve gronder par son prof ... ;o) HB
;-)
c'est ce qui arrive quand on fait pas ses devoir
isabelle
Le 2016-11-27 à 17:06, HB a écrit :
Le zanfan va se faire
trop grâve
gronder par son prof ... ;o)
;-) c'est ce qui arrive quand on fait pas ses devoir isabelle Le 2016-11-27 à 17:06, HB a écrit :
Le zanfan va se faire trop grâve gronder par son prof ... ;o) HB
Jacquouille
Wè et un p'ti merci ne dérangerait personne. Jacques " Le vin est au repas ce que le parfum est à la femme." . "HB" a écrit dans le message de groupe de discussion : 583b590a$0$3349$ M'enfin Isabelle ... yapa de vérif pour le cas où l'utilisateur ferait un truc imprévu ? Le zanfan va se faire trop grâve gronder par son prof ... ;o) HB Le 27/11/2016 à 20:29, isabelle a écrit :
bonjour, Sub Macro1() Dim Message, Title, Default, MyValue Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le message. Title = "Démonstration du code ASCII" ' Définit le titre. Default = "A" ' Définition la valeur par défaut. MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie n = Asc(MyValue) ' valeur AscII 'Résultat MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _ "est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _ "Le code ASCII correspondant est: " & n End Sub isabelle Le 2016-11-27 à 11:53, exhilium a écrit :
Bonjour, J'ai besoin d'aide , je doit réaliser un macro excel pour un petit exercice que je doit faire en ligne , c'est la toute dernière question et je galère ! l’énoncer : Ecrivez une macro qui demandera à l’utilisateur de saisir une lettre en majuscule et qui affichera ensuite le numéro de cette lettre dans l’alphabet (à savoir que le code ASCII pour A est 65, pour B est 66, pour C est 67, etc. ). Essayez de soigner l’interface utilisateur pour que les messages à destination de l’utilisateur soient le plus clair possible. Par exemple, si vous saisissez la lettre A, la macro devrait afficher : La lettre C est la lettre no. 3 en alphabet merci beaucoup de votre aide ;) Cordialement !
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Wè et un p'ti merci ne dérangerait personne.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"HB" a écrit dans le message de groupe de discussion :
583b590a$0$3349$426a34cc@news.free.fr...
M'enfin Isabelle ... yapa de vérif
pour le cas où l'utilisateur
ferait un truc imprévu ?
Le zanfan va se faire
trop grâve
gronder par son prof ... ;o)
HB
Le 27/11/2016 à 20:29, isabelle a écrit :
bonjour,
Sub Macro1()
Dim Message, Title, Default, MyValue
Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le
message.
Title = "Démonstration du code ASCII" ' Définit le titre.
Default = "A" ' Définition la valeur par défaut.
MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie
n = Asc(MyValue) ' valeur AscII
'Résultat
MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _
"est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _
"Le code ASCII correspondant est: " & n
End Sub
isabelle
Le 2016-11-27 à 11:53, exhilium a écrit :
Bonjour,
J'ai besoin d'aide , je doit réaliser un macro excel pour un petit
exercice que
je doit faire en ligne , c'est la toute dernière question et je galère !
l’énoncer :
Ecrivez une macro qui demandera à l’utilisateur de saisir une lettre en
majuscule et qui affichera ensuite le numéro de cette lettre dans
l’alphabet (à
savoir que le code ASCII pour A est 65, pour B est 66, pour C est 67,
etc. ).
Essayez de soigner l’interface utilisateur pour que les messages à
destination
de l’utilisateur soient le plus clair possible. Par exemple, si vous
saisissez
la lettre A, la macro devrait afficher :
La lettre C est la lettre no. 3 en alphabet
merci beaucoup de votre aide ;) Cordialement !
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Wè et un p'ti merci ne dérangerait personne. Jacques " Le vin est au repas ce que le parfum est à la femme." . "HB" a écrit dans le message de groupe de discussion : 583b590a$0$3349$ M'enfin Isabelle ... yapa de vérif pour le cas où l'utilisateur ferait un truc imprévu ? Le zanfan va se faire trop grâve gronder par son prof ... ;o) HB Le 27/11/2016 à 20:29, isabelle a écrit :
bonjour, Sub Macro1() Dim Message, Title, Default, MyValue Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le message. Title = "Démonstration du code ASCII" ' Définit le titre. Default = "A" ' Définition la valeur par défaut. MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie n = Asc(MyValue) ' valeur AscII 'Résultat MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _ "est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _ "Le code ASCII correspondant est: " & n End Sub isabelle Le 2016-11-27 à 11:53, exhilium a écrit :
Bonjour, J'ai besoin d'aide , je doit réaliser un macro excel pour un petit exercice que je doit faire en ligne , c'est la toute dernière question et je galère ! l’énoncer : Ecrivez une macro qui demandera à l’utilisateur de saisir une lettre en majuscule et qui affichera ensuite le numéro de cette lettre dans l’alphabet (à savoir que le code ASCII pour A est 65, pour B est 66, pour C est 67, etc. ). Essayez de soigner l’interface utilisateur pour que les messages à destination de l’utilisateur soient le plus clair possible. Par exemple, si vous saisissez la lettre A, la macro devrait afficher : La lettre C est la lettre no. 3 en alphabet merci beaucoup de votre aide ;) Cordialement !
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
andre
Jacquouille t'aurais pu faire un effort et donner la suite par un test du genre si n < 65 ou si n > 90 then message box blabla ca doit pas etre trop dur pour toi avec ton 2003 Jacquouille avait écrit le 28/11/2016 :
Wè et un p'ti merci ne dérangerait personne. Jacques " Le vin est au repas ce que le parfum est à la femme."
bonjour, Sub Macro1() Dim Message, Title, Default, MyValue Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le message. Title = "Démonstration du code ASCII" ' Définit le titre. Default = "A" ' Définition la valeur par défaut. MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie n = Asc(MyValue) ' valeur AscII 'Résultat MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _ "est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _ "Le code ASCII correspondant est: " & n End Sub isabelle
-- André
Jacquouille
t'aurais pu faire un effort et donner la suite par un test
du genre si n < 65 ou si n > 90 then
message box blabla
ca doit pas etre trop dur pour toi avec ton 2003
Jacquouille avait écrit le 28/11/2016 :
Wè et un p'ti merci ne dérangerait personne.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
bonjour,
Sub Macro1()
Dim Message, Title, Default, MyValue
Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le
message.
Title = "Démonstration du code ASCII" ' Définit le titre.
Default = "A" ' Définition la valeur par défaut.
MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie
n = Asc(MyValue) ' valeur AscII
'Résultat
MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _
"est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _
"Le code ASCII correspondant est: " & n
End Sub
Jacquouille t'aurais pu faire un effort et donner la suite par un test du genre si n < 65 ou si n > 90 then message box blabla ca doit pas etre trop dur pour toi avec ton 2003 Jacquouille avait écrit le 28/11/2016 :
Wè et un p'ti merci ne dérangerait personne. Jacques " Le vin est au repas ce que le parfum est à la femme."
bonjour, Sub Macro1() Dim Message, Title, Default, MyValue Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le message. Title = "Démonstration du code ASCII" ' Définit le titre. Default = "A" ' Définition la valeur par défaut. MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie n = Asc(MyValue) ' valeur AscII 'Résultat MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _ "est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _ "Le code ASCII correspondant est: " & n End Sub isabelle
Hello J'avais peur que le demandeur ne s'endorme sur son clavier et ne fasse une majuscule par erreur. Ce qui a été défini comme un "claviae lapsus" en son temps. Ensuite, je n'ai plus l'âge de faire les devoir des autres. Les miens, conjugaux compris, me suffisent amplement. Bonne soirée à tous et tousses. Jacques " Le vin est au repas ce que le parfum est à la femme." . "andre" a écrit dans le message de groupe de discussion : 583c5030$0$4283$ Jacquouille t'aurais pu faire un effort et donner la suite par un test du genre si n < 65 ou si n > 90 then message box blabla ca doit pas etre trop dur pour toi avec ton 2003 Jacquouille avait écrit le 28/11/2016 :
Wè et un p'ti merci ne dérangerait personne. Jacques " Le vin est au repas ce que le parfum est à la femme."
bonjour, Sub Macro1() Dim Message, Title, Default, MyValue Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le message. Title = "Démonstration du code ASCII" ' Définit le titre. Default = "A" ' Définition la valeur par défaut. MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie n = Asc(MyValue) ' valeur AscII 'Résultat MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _ "est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _ "Le code ASCII correspondant est: " & n End Sub isabelle
-- André --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Hello
J'avais peur que le demandeur ne s'endorme sur son clavier et ne fasse une
majuscule par erreur.
Ce qui a été défini comme un "claviae lapsus" en son temps.
Ensuite, je n'ai plus l'âge de faire les devoir des autres.
Les miens, conjugaux compris, me suffisent amplement.
Bonne soirée à tous et tousses.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"andre" a écrit dans le message de groupe de discussion :
583c5030$0$4283$426a74cc@news.free.fr...
Jacquouille
t'aurais pu faire un effort et donner la suite par un test
du genre si n < 65 ou si n > 90 then
message box blabla
ca doit pas etre trop dur pour toi avec ton 2003
Jacquouille avait écrit le 28/11/2016 :
Wè et un p'ti merci ne dérangerait personne.
Jacques
" Le vin est au repas ce que le parfum est à la femme."
bonjour,
Sub Macro1()
Dim Message, Title, Default, MyValue
Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le
message.
Title = "Démonstration du code ASCII" ' Définit le titre.
Default = "A" ' Définition la valeur par défaut.
MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie
n = Asc(MyValue) ' valeur AscII
'Résultat
MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _
"est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _
"Le code ASCII correspondant est: " & n
End Sub
isabelle
--
André
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Hello J'avais peur que le demandeur ne s'endorme sur son clavier et ne fasse une majuscule par erreur. Ce qui a été défini comme un "claviae lapsus" en son temps. Ensuite, je n'ai plus l'âge de faire les devoir des autres. Les miens, conjugaux compris, me suffisent amplement. Bonne soirée à tous et tousses. Jacques " Le vin est au repas ce que le parfum est à la femme." . "andre" a écrit dans le message de groupe de discussion : 583c5030$0$4283$ Jacquouille t'aurais pu faire un effort et donner la suite par un test du genre si n < 65 ou si n > 90 then message box blabla ca doit pas etre trop dur pour toi avec ton 2003 Jacquouille avait écrit le 28/11/2016 :
Wè et un p'ti merci ne dérangerait personne. Jacques " Le vin est au repas ce que le parfum est à la femme."
bonjour, Sub Macro1() Dim Message, Title, Default, MyValue Message = "Veuillez saisir une seule lettre en majuscule" ' Définit le message. Title = "Démonstration du code ASCII" ' Définit le titre. Default = "A" ' Définition la valeur par défaut. MyValue = InputBox(Message, Title, Default) ' Affiche la boite de saisie n = Asc(MyValue) ' valeur AscII 'Résultat MsgBox "La lettre que vous inscrit " & MyValue & Chr(10) & _ "est la lettre no. " & n - 64 & " en alphabet" & Chr(10) & _ "Le code ASCII correspondant est: " & n End Sub isabelle
-- André --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
