Bonjour Moa, Monique, JP, Laurence et Celeda qui va sûrement pas tarder car elle se lève !!!
Et Bonjour au Forum of course
Bon alors pour commencer Laurence, ce serait chouette que tu lises
Notre Charte du Forum (Particulièrement l'article 2 a) Car Celeda risque d'avaler son café de travers en ouvrant le Forum ;-)
Ensuite vu que tu ne précises pas, il y a bien des Méthodes, mais la plus simple est celle de Monique... Et tu en "bouchera un coin" à tes collègues par la simplicité d'une telle solution ! Mais il y a une limite si tu as par exemple 100 qui est présenté 100,00 par le format mais sans la frappe...
Les Formules exigeront que tu crées un tableau à coté de celui d'origine...
Donc j'ai écrit un truc en VBA, mais c'est quand même tiré par les cheveux, par contre tu n'auras qu'à modifier la plage ... et ton tableau sera modifié sur place...
(Faire des essais sur une copie de ton tableau)
Sub TestLaurence()
Dim Centime As String
Dim Montant As String
Dim Cell As Range
For Each Cell In Range("A2:H50") '<<<<<<<< ADAPTER ICI
If Not IsEmpty(Cell) Then
If IsNumeric(Cell) Then
Cell = Format(Cell, "0.00")
If Mid(Right(Cell, 3), 1, 1) = Chr(44) Or Mid(Right(Cell, 3), 1, 1) = Chr(46) Then
Centime = Right(Cell, 2)
Montant = Left(Cell, Len(Cell) - 3)
Cell = Montant & "00," & Centime
Cell = CDbl(Cell)
Cell.NumberFormat = "0.00"
End If
End If
End If
Next
End Sub
Tes valeurs resteront numériques, et ne seront pas traitée les cellules vides, celles n'ayant pas de valeur numérique au départ, et celles ayant plus de deux décimales...
Bonne Journée
@+Thierry
PS pour la petite histoire Voici le Fil d'Origine avec Celeda pour ceux/celles qui veulent suivre
Lien supprimé