Discussion :

[idhmida]

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 :

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

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.

[Invité]

Bonjour,

Essayez ce code :

Code :

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

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.

[Marc-L]

Bonjour,

tout comme Eric !

Code :

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

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 :

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

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

[idhmida]

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...

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

Le code que j'ai utilisé est :

Code :

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

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

[Marc-L]

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

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

[Invité]

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.

[idhmida]

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

[Marc-L]

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

Donc revoir votre code …

[Invité]

Code :

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

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

[Invité]

Code :

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

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.

[Marc-L]

Code :

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

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

_______________ ____________________________________ ______________________________

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

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

[idhmida]

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