Conversion de format texte en numérique

1 pièce(s) jointe(s)

Bonjour,

J'ai une colonne de données à convertir en format numérique sans décimale, mais le code que j'utilise usuellement ne fonctionne plus, je ne comprends pas pourquoi...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub MEF() Dim nblignetot As Long nblignetot = Range("A" & Rows.Count).End(xlUp).Row For Each cell In Range("A3:A" & nblignetot) cell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False cell.Value = CDbl(cell.Value) cell.NumberFormat = "0" Next cell End Sub
je vous joins les données , merci bien de corriger mon erreur svp.

Bonjour,

Essayez ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub MEF()
 
Dim NbligneTot As Long
 
    NbligneTot = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
 
    With ActiveSheet.Range("A3:A" & NbligneTot)
        .Replace What:=".", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False ', SearchFormat:=True, ReplaceFormat:=False
        .NumberFormat = "0"
 
    End With
 
End Sub

En VBA, le point reste le séparateur décimal. Le changement en virgule ou non est dû à votre paramétrage local.

Cordialement.

Bonjour,

tout comme Eric !
Code:

1 2 3 4 5 6 Sub MEF() With Feuil1.Range("A3", Feuil1.Cells(Feuil1.Rows.Count, 1).End(xlUp)) .Replace ".", ".", xlPart .NumberFormat = "0" End With End Sub
Une autre approche :
Code:

1 2 3 4 5 6 Sub MEF() With Feuil1.Range("A3", Feuil1.Cells(Feuil1.Rows.Count, 1).End(xlUp)) .Value = .Value .NumberFormat = "0" End With End Sub
__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Merci beaucoup pour vous deux, apparement ça a bien marché sur le dossier que je vous ai joint, mais sur le fichier original ça ne marche toujours pas... je ne comprends pas le problème...:cry::cry::cry:

Je vous renvoie donc le fichier original, pourriez vous me corriger de nouveau svp??

Le code que j'ai utilisé est :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub MEF() Dim NbligneTot As Long NbligneTot = Range("A" & Rows.Count).End(xlUp).Row For Each cell In Range("K3:L" & NbligneTot) cell.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False cell.Value = CDbl(cell.Value) cell.NumberFormat = "0" Next cell With ActiveSheet.Range("A3:A" & NbligneTot) .Replace What:=".", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False .NumberFormat = "0" End With End Sub

Rien de corrigé :roll: et qui plus est, où est le fichier original ?‼ :lol:

Rien qu'en reprenant l'un de mes deux codes, le deuxième par exemple …

Citation:

Envoyé par idhmida

mais sur le fichier original ça ne marche toujours pas... je ne comprends pas le problème...

Ca fonctionne sur la colonne A, n'est ce pas ?

Cordialement.

1 pièce(s) jointe(s)

Citation:

Envoyé par Eric KERGRESSE

Ca fonctionne sur la colonne A, n'est ce pas ?

Cordialement.

Ce n'est pas un problème de colonne, je l'ai bien décaler pour appliquer votre code, mais sur le fichier initial rien ne marche.

Désolée pour l'oubli, j'ai été prise dans autre chose au boulot, grrr c'est compliqué d'aller sur internet au travail hehe.

Voici le fichier en PJ et je voudrais faire la même opération sur la colonne montant1, montant2, montant3

Merci beaucoup pour votre temps!!!

IDH

Aucun souci de mon côté avec ce nouveau fichier ‼

Donc revoir votre code …

Bonjour, regarde ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Function ConverTxtInteger(v) As Integer
Dim t As String
t = Replace(v, ".", ",")
If IsNumeric(t) Then ConverTxtInteger = t: Exit Function
t = Replace(t, ",", ".")
If IsNumeric(t) Then ConverTxtInteger = t: Exit Function
End Function
 
 
Sub Test()
Debug.Print ConverTxtInteger("10.05")
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub MEF()
 
Dim I As Long
 
    For I = 1 To ActiveSheet.UsedRange.Columns.Count
        Select Case I
               Case 11, 12, 22
                    With ActiveSheet.Columns(I)
                        .Replace What:=".", Replacement:="." ' Pour reprendre la proposition plus simple de Marc
                        .NumberFormat = "0"
               End With
         End Select
 
    Next I
 
End Sub

Cordialement.

Ou en plus simple :

Code:

1 2 3 4 5 6 7 8 Sub MOUARF() For Each COL In [{11,12,22}] With Feuil1.UsedRange.Columns(COL) .Value = .Value .NumberFormat = "0" End With Next End Sub
_______________:yaisse1: ____________________________________:yaisse1: ______________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

__________________________________________________________________________________________
Il n'y a pas que les aigles qui atteignent les sommets, les escargots aussi mais ils en bavent !

C'est résolu!!
Merci à tous !! C'était vraiment super gentil!!:ccool::ccool::lol: