Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Comment insérer le dernier chiffre dans un miroir

Comment insérer le dernier chiffre dans un miroir

9 réponses
Avatar
imej-clavier
Bonjour,
Quelqu'un peut-il m'aider ?
Voici mon problème. Voici un fragment de mon code. Il devrait pouvoir me
permettre de faire un
miroir du nombre entré dans mon InputBox (le nombre écrit à l'envers).
VarChiffres1 = ""
nombre = InputBox("Veuillez entrer un nombre ")
For i = 0 To 9
For compteur=0 To Len(nombre)
VarChiffres=nombre Mod 10
VarChiffres=VarChiffres1 & VarChiffres
VarChiffres1=VarChiffres
nombre=nombre\10
If compteur = Len(nombre) Then
Exit Sub
End If
MsgBox(VarChiffres)
Next compteur
Next i
End Sub
Tout va bien jusqu'au dernier chiffre. Mais après, je n'arrive pas à
l'insérer avec VarChiffres (J'ai essayé avec Left sans succès)..

D'avance merci,

Jean-michel
Signaler un problème avec ce contenu

9 réponses

Supprimer
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
Avatar
AV
Sub zzz()
nombre = InputBox("Veuillez entrer un nombre ")
MsgBox ARABIC(nombre)
End Sub

Function ARABIC(texte) As String
For i = Len(texte) To 1 Step -1
ARABIC = ARABIC & Mid(texte, i, 1)
Next i
End Function

AV
Avatar
J-Dan
bonjour imej-clavier,

plus simple que ton code :

Sub Verlan()
nbre = InputBox("entrez un nombre SVP")
For i = Len(nbre) To 1 Step -1
miroir = miroir & Mid(nbre, i, 1)
Next i
MsgBox miroir
End Sub

J-Dan

-----Message d'origine-----
Bonjour,
Quelqu'un peut-il m'aider ?
Voici mon problème. Voici un fragment de mon code. Il
devrait pouvoir me

permettre de faire un
miroir du nombre entré dans mon InputBox (le nombre
écrit à l'envers).

VarChiffres1 = ""
nombre = InputBox("Veuillez entrer un nombre ")
For i = 0 To 9
For compteur=0 To Len(nombre)
VarChiffres=nombre Mod 10
VarChiffres=VarChiffres1 & VarChiffres
VarChiffres1=VarChiffres
nombre=nombre10
If compteur = Len(nombre) Then
Exit Sub
End If
MsgBox(VarChiffres)
Next compteur
Next i
End Sub
Tout va bien jusqu'au dernier chiffre. Mais après, je
n'arrive pas à

l'insérer avec VarChiffres (J'ai essayé avec Left sans
succès)..


D'avance merci,


Jean-michel



.



Avatar
J-Dan
re,

de plus ca marche aussi avec une entree texte.

J-Dan

-----Message d'origine-----
Bonjour,
Quelqu'un peut-il m'aider ?
Voici mon problème. Voici un fragment de mon code. Il
devrait pouvoir me

permettre de faire un
miroir du nombre entré dans mon InputBox (le nombre
écrit à l'envers).

VarChiffres1 = ""
nombre = InputBox("Veuillez entrer un nombre ")
For i = 0 To 9
For compteur=0 To Len(nombre)
VarChiffres=nombre Mod 10
VarChiffres=VarChiffres1 & VarChiffres
VarChiffres1=VarChiffres
nombre=nombre10
If compteur = Len(nombre) Then
Exit Sub
End If
MsgBox(VarChiffres)
Next compteur
Next i
End Sub
Tout va bien jusqu'au dernier chiffre. Mais après, je
n'arrive pas à

l'insérer avec VarChiffres (J'ai essayé avec Left sans
succès)..


D'avance merci,


Jean-michel



.



Avatar
J-Dan
bonjour AV,

damned, 04:09 de mieux, bravo !
Sub zzz()
c'est moi qui "zzzzzzzzz"


J-Dan

-----Message d'origine-----

Sub zzz()
nombre = InputBox("Veuillez entrer un nombre ")
MsgBox ARABIC(nombre)
End Sub

Function ARABIC(texte) As String
For i = Len(texte) To 1 Step -1
ARABIC = ARABIC & Mid(texte, i, 1)
Next i
End Function

AV


.



Avatar
ru-th
On fait dans la facilité ;-))

MsgBox StrReverse(CStr(InputBox("Saisissez un chiffre"))) * 1


a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"AV" a écrit dans le message de
news:

Sub zzz()
nombre = InputBox("Veuillez entrer un nombre ")
MsgBox ARABIC(nombre)
End Sub

Function ARABIC(texte) As String
For i = Len(texte) To 1 Step -1
ARABIC = ARABIC & Mid(texte, i, 1)
Next i
End Function

AV




Avatar
ru-th
quoique, je donne le bâton pour me faire battre !

inputbox donne un string donc Cstr non nécessaire et le *1 dans un msgbox,
un peu futile
MsgBox StrReverse(InputBox("Saisissez un chiffre"))
devrait suffire
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ru-th" a écrit dans le message de
news:%
On fait dans la facilité ;-))

MsgBox StrReverse(CStr(InputBox("Saisissez un chiffre"))) * 1


a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"AV" a écrit dans le message de
news:

Sub zzz()
nombre = InputBox("Veuillez entrer un nombre ")
MsgBox ARABIC(nombre)
End Sub

Function ARABIC(texte) As String
For i = Len(texte) To 1 Step -1
ARABIC = ARABIC & Mid(texte, i, 1)
Next i
End Function

AV








Avatar
AV
MsgBox StrReverse(InputBox("Saisissez un chiffre"))
devrait suffire


Certes, certes...mais fonction inconnue avant XL2000 ...
Doit bien rester quelques XL97 en fonction, voire XL95, voire XL5....
En tout cas j'en connais ! (j'en subis devrais-je dire :-)
AV

Avatar
LeSteph
Bonsoir ,

C'est ce que je viens de tester,
la tienne est bien en ce sens que visblement personne n'avait pensé à
StrReverse
donc pour finir:

Sub rvstr()
Dim nombre As String
nombre = InputBox("Veuillez entrer un nombre ")
MsgBox StrReverse(nombre)

End Sub

LeSteph avec 99% de droits d'auteur à Thierry

"ru-th" a écrit dans le message de
news:%
quoique, je donne le bâton pour me faire battre !

inputbox donne un string donc Cstr non nécessaire et le *1 dans un
msgbox,

un peu futile
MsgBox StrReverse(InputBox("Saisissez un chiffre"))
devrait suffire
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ru-th" a écrit dans le message de
news:%
On fait dans la facilité ;-))

MsgBox StrReverse(CStr(InputBox("Saisissez un chiffre"))) * 1


a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"AV" a écrit dans le message de
news:

Sub zzz()
nombre = InputBox("Veuillez entrer un nombre ")
MsgBox ARABIC(nombre)
End Sub

Function ARABIC(texte) As String
For i = Len(texte) To 1 Step -1
ARABIC = ARABIC & Mid(texte, i, 1)
Next i
End Function

AV












Avatar
J-Dan
elle doit certainement servir aux personnes qui utilisent
leur PC (ou Mac pas de segragation), dos a l'ecran, face
a un miroir, non ?


-----Message d'origine-----
MsgBox StrReverse(InputBox("Saisissez un chiffre"))
devrait suffire


Certes, certes...mais fonction inconnue avant XL2000 ...
Doit bien rester quelques XL97 en fonction, voire XL95,
voire XL5....

En tout cas j'en connais ! (j'en subis devrais-je dire :-
)

AV


.