Discussion :

[jackborogar]

Bonjour à tous,

Voici mon problème:

Je fais une extraction via un logiciel. Or les chiffres à virgules sont des points. Je remplace donc les points par des virgules. Néanmoins j'ai une erreur (sur tous les chiffres à virgule), me signalant que mes nombres sont stockés sont formes de textes.

Je voudrais donc convertir mes chiffres sous formes de texte (colonne J de ma feuille) en nombre afin que mes calculs s'exécute correctement.

Je vous remercie,

Cordialement,

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function MyIsNumerique(V) As Double
Dim Vcopie As String
Vcopie = Trim("" & V)
If IsNumeric(Vcopie) = False Then
    'pas numerique modifie la virgule , en .
    Vcopie = Replace(Vcopie, ",", ".")
End If
If IsNumeric(Vcopie) = False Then
    'pas numerique Option régional Windows ?? . ->,
    Vcopie = Replace(Vcopie, ".", ",")
End If
MyIsNumerique = Val(Vcopie) 'Si v=Prénom convertie en 0.0 de toutes les façon retourne un numérique.
End Function

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Feuil2").Range("A:D").Replace ".", ".", xlPart

[jackborogar]

Merci rdurupt de votre réponse,

Néanmoins après test (fichier joint dans ce message), je n'ai rien qui se produit. Pouvez vous y jeter un oeil.

Cordialement,

[jackborogar]

j'ai trouvé pour ceux qui veulent:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For Each ws In ActiveWorkbook.Worksheets
        With ws.Range("A1:A22")
            .NumberFormat = "0"
            .Value = .Value
        End With
    Next

cdt,