Renverser la lecture de chiffres
Starbukk
-
via55 Messages postés 14730 Date d'inscription Statut Membre Dernière intervention -
via55 Messages postés 14730 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je cherche à renverser la lecture de nombres composés de 0, 1, 6, 8 et 9.
Par exemple, 16908 se lirait 80691 (et réciproquement), comme si mettait la tête en bas.
Quelques particularités : 1 se lirait 10 à l'envers, de même que 6 se lirait 90, 8 -> 80 et 9 -> 60.
Si vous avez des bouts de macros pour récupérer le nième d'une chaîne, ou pour parcourir une plage de cellules, je suis preneur et vous remercie d'avance.
Je cherche à renverser la lecture de nombres composés de 0, 1, 6, 8 et 9.
Par exemple, 16908 se lirait 80691 (et réciproquement), comme si mettait la tête en bas.
Quelques particularités : 1 se lirait 10 à l'envers, de même que 6 se lirait 90, 8 -> 80 et 9 -> 60.
Si vous avez des bouts de macros pour récupérer le nième d'une chaîne, ou pour parcourir une plage de cellules, je suis preneur et vous remercie d'avance.
A voir également:
- Renverser la lecture de chiffres
- Accusé de lecture gmail - Guide
- Confirmation de lecture whatsapp - Guide
- Lecture epub sur pc - Guide
- Erreur de lecture reconnecté en 3s - Forum TV & Vidéo
- Télécharger livre de lecture ce2 gratuit pdf - Télécharger - Éducatifs
1 réponse
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
