Conversion format lettres en nombres

Bonjour,

Dans le fichier joint à ce post, je cherche à convertir les cellules ci-dessous en nombres puisqu'elles m'arrivent en format lettres.

Je veux sélectionner manuellement les cellules à convertir, et cliquer sur le bouton macro pour que la conversion se fasse.

J'utilise la macro suivante :

Sub Bouton1_Cliquer()
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Or cela ne fonctionne pas...

Je ne vois vraiment pas où est le problème, quelqu'un peut-il m'aider s'il vous plaît ?

Merci d'avance.

Bonjour,

Le problème est que ce que tu as transformé en , tu le retransforme en point à la ligne suivante !

Essaie ceci

Sub Bouton1_Cliquer()
    Selection.Replace What:=".", Replacement:="|", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        MsgBox "top"
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        MsgBox "top"
    Selection.Replace What:="|", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Bonjour

Remplace le point par le point à la seconde ligne .

Sub Bouton1_Cliquer()

Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _

Cordialement

Bonjour,

Voir deuxième macro.

J'ai utilisé la fonction de "conversion" de Excel plutôt que le changement du point ou de la virgule

qui peut être différent selon le choix du paramétrage des personnes.

bonne journée

Sinon si tu veux que par défaut ton pc comprenne que c'est un nombre, tu peux remplacer les valeurs par défaut des virgules et des séparateurs de milliers :

Panneau de configuration > Configuration régionale et de langue > Configurations aditionnelles > et dans personnaliser les formats

À toi de voir.

Bonjour

au plus simple

a faire une seule fois

Sub test()
For L = 4 To 23
    Range("A" & L).Value = Val(Range("A" & L).Value)
Next
End Sub

A+

Maurice

Bonjour tout le monde,

convertir les cellules ci-dessous en nombres puisqu'elles m'arrivent en format lettres

A tout hasard....

Sub Bouton2_Cliquer()

Dim DernLigne As Long, i As Long
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row

    For i = 4 To DernLigne

    Range("A" & i).Value = CDbl(Range("A" & i).Value)

    Next i

End Sub

Cordialement,

Bonjour à tous,

Tout d'abord merci beaucoup pour votre aide. J'ai été agréablement surpris par le nombre de réponses et leur rapidité.

Pour une raison que j'ignore, c'est cette solution qui a le mieux fonctionné...

Amadéus a écrit :

Bonjour

Remplace le point par le point à la seconde ligne .

Sub Bouton1_Cliquer()

Selection.Replace What:=".", Replacement:=".", LookAt:=xlPart, _

Cordialement

J'ai aussi essayé ceci mais ça ne fonctionnait pas.

Steelson a écrit :

Essaie ceci

Sub Bouton1_Cliquer()
    Selection.Replace What:=".", Replacement:="|", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        MsgBox "top"
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        MsgBox "top"
    Selection.Replace What:="|", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Du coup, c'est sûrement ce que disait :

Steelson a écrit :

Bonjour,

Le problème est que ce que tu as transformé en , tu le retransforme en point à la ligne suivante !

Merci beaucoup aux autres aussi, j'ai préféré prendre les réponse dans l'ordre, et je suis de l'école "ça marche donc on touche pas".

Je les garde cependant sous le coude pour l'avenir

Swicks a écrit :

J'ai aussi essayé ceci mais ça ne fonctionnait pas.

Steelson a écrit :

Essaie ceci

Sub Bouton1_Cliquer()
    Selection.Replace What:=".", Replacement:="|", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        MsgBox "top"
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        MsgBox "top"
    Selection.Replace What:="|", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

cela fonctionne mais il faut convertir le texte en nombre ensuite