Renverser la lecture de chiffres
Fermé
Starbukk
-
15 févr. 2013 à 14:58
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 - 15 févr. 2013 à 15:15
via55 Messages postés 14408 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 5 mai 2024 - 15 févr. 2013 à 15:15
A voir également:
- Renverser la lecture de chiffres
- Confirmation de lecture whatsapp - Guide
- Accusé de lecture gmail - Guide
- Accusé de lecture outlook - Guide
- Tous les code possible de 0 à 9 (4 chiffres ) - Forum Jeux vidéo
- Sophie a renversé de l’eau sur son ordinateur portable. l’ordinateur ne fonctionne plus. quels fichiers est-elle certaine de pouvoir récupérer ? - Forum PC portable
1 réponse
via55
Messages postés
14408
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
5 mai 2024
2 704
15 févr. 2013 à 15:15
15 févr. 2013 à 15:15
Bonjour
Si j'ai bien compris ta problematique le code suivant lit le nombre en A1 et renvoie l'"inverse" en B1
Sub inverser()
a = Cells(1, 1).Value
lm = Len(a)
inverse = ""
For n = lm To 1 Step -1
x = Mid(a, n, 1)
Select Case x
Case "6": r = "90"
Case "8": r = "80"
Case "1": r = "10"
Case "9": r = "60"
Case "0": r = "0"
End Select
inverse = inverse + r
Next n
Cells(1, 2).Value = inverse
End Sub
Est ce bien l'effet recherché ?
Cordialement
Si j'ai bien compris ta problematique le code suivant lit le nombre en A1 et renvoie l'"inverse" en B1
Sub inverser()
a = Cells(1, 1).Value
lm = Len(a)
inverse = ""
For n = lm To 1 Step -1
x = Mid(a, n, 1)
Select Case x
Case "6": r = "90"
Case "8": r = "80"
Case "1": r = "10"
Case "9": r = "60"
Case "0": r = "0"
End Select
inverse = inverse + r
Next n
Cells(1, 2).Value = inverse
End Sub
Est ce bien l'effet recherché ?
Cordialement