YANN-56
XLDnaute Barbatruc
Bonsoir à ceux qui passeront par là.
Cela marche bien. Cela fait joli et un peu "Pro"
Mais il ne me plait pas d'avoir eu à écrire ces sept lignes pas bouffables!
Ouf! Bonjour la place dans ma Macro!!! Il y a certainement plus simple et lisible…. Non?
Si Oui, la roue de la souris et moi sommes preneurs, et Merci d'avance.
Bonne fin de fin de semaine à tous.
Yann
Cela marche bien. Cela fait joli et un peu "Pro"
Mais il ne me plait pas d'avoir eu à écrire ces sept lignes pas bouffables!
Code:
Dim TIRET As Variant
TIRET = "_"
Worksheets("Feuil1").Cells(10, 1).Value = Left(Worksheets("Feuil1").Cells(10, 1).Value, _
InStrRev(Worksheets("Feuil1").Cells(10, 1).Value, TIRET, -1)) _
& Right(Worksheets("Feuil1").Cells(10, 1).Value, _
(Len(Worksheets("Feuil1").Cells(10, 1).Value) - _
InStrRev(Worksheets("Feuil1").Cells(10, 1).Value, TIRET, -1))) + 1
Ouf! Bonjour la place dans ma Macro!!! Il y a certainement plus simple et lisible…. Non?
Si Oui, la roue de la souris et moi sommes preneurs, et Merci d'avance.
Bonne fin de fin de semaine à tous.
Yann