Changer dynamiquement une virgule en point dans une cellule

Bonjour à tous,

Je sais, j'imagine que le sujet de mon message ne fait pas rêver car il revient sans doute très régulièrement ... mais après m'être perdu quelques bonnes dizaines de minutes sur Google, Youtube, les forums et sur mon fichier xls ... je n'y arrive toujours pas.

En clair, j'aimerais que dans une cellule formatée en texte, lorsque une personne tape "1,2", cela se transforme automatiquement dans la même cellule en"1.2".

Bien entendu, je ne souhaite pas modifier mes paramètres de séparateurs système, car je souhaite que cette modification n'affecte que ce fichier (et même à la limite qu'une seule et même colonne du fichier mais là, c'est du luxe !).

Pour info, cette valeur avec un point est importante pour moi car elle est liée à un autre onglet du fichier pour permettre le bon fonctionnement d'une formule RECHERCHEV.

Merci d'avance à tous :)

Bonjour,

Un essai,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
Dim d As String

    For Each c In Range([A1], [A65536].End(xlUp)) 'a adapter
        d = Replace(c.Value, ",", ".")
        c.NumberFormat = "@"
        c.Value = d
    Next c
End Sub

Bonjour à tous,

Au cas où, si l'on souhaite éviter de dénaturer le format normal d'une valeur numérique, il serait également possible d'inclure le remplacement dans la formule RECHERCHEV :

=RECHERCHEV(SUBSTITUE(XXX;",";".");Plage;Col;FAUX)

voire de directement transformer les valeurs dans la plage de recherche.

Cdlt,

Thrrybo : bon ben voilà qui me comprends :) Merci, ça fonctionne parfaitement.