Inverser chiffres

Résolu
mic6259 Messages postés 342 Date d'inscription   Statut Membre Dernière intervention   -  
mic6259 Messages postés 342 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 1
Le Pingou Messages postés 12249 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 
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 342 Date d'inscription   Statut Membre Dernière intervention   1
 
Super merci Le Pingou c'est exactement ce que je voulais
Cordialement
0

Discussions similaires

Touche a et q inversé
kingking62 -
LiliBert -

8 réponses
Toutes les combinaisons à 4 chiffres de 0000 a 9999
Sarah -
baladur13 -

11 réponses
Tous les code possible de 0 à 9 (4 chiffres )
anonymeN1 -
anonymeN1 -

3 réponses
Combinaisons possibles avec 3 séries de 3 nombres
Jao -
acefalo -

1 réponse
Nombre de combinaisons possibles avec trois chiffres
LA MENACE -
Marion_P92 -

14 réponses