Inverser chiffres

Résolu/Fermé
mic6259 Messages postés 329 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 29 novembre 2022 - 1 mai 2021 à 14:07
mic6259 Messages postés 329 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 29 novembre 2022 - 1 mai 2021 à 17:58
Bonjour,
Selon la pièce jointe, avec la macro, j'inverse les chiffres de la cellule A. serait-il possible de faire la même chose sur plusieurs cellules par exemple A2-A3 ou B1-B2-B3 etc...
Merci beaucoup

https://www.cjoint.com/c/KEbmgMtro5l

1 réponse

Le Pingou Messages postés 11319 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 3 décembre 2022 1 315
1 mai 2021 à 17:54
Bonjour,
Une possibilité, vous sélectionnez la plage désirée (expl : A1:A10) et clic sur votre bouton.
Avant de le faire vous modifiez votre code comme suit :
Sub es()
For Each cell In Selection
Range(cell.Address) = StrReverse(cell)
Next cell
End Sub

0
mic6259 Messages postés 329 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 29 novembre 2022
1 mai 2021 à 17:58
Super merci Le Pingou c'est exactement ce que je voulais
Cordialement
0