Discussion :

[jujudeo]

bonjour à tous,

J'aimerais savoir s'il existe une fonction afin de détecter une cellule au format comptabilité monnaitaire et ainsi la transformer en nombre ( le sigle € me gene)

J'ai trouvé comment procéder pour la date avec ma macro suivante :

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
22
23
Sub Traitement()
 
Dim td As Worksheet
Dim taille As Range
Dim myDate As Date
 
   Set td = Worksheets("traitement date")
    With td
        Set taille = .Range("A2:CN3")
 
        For Each cell In taille
         vcl = cell.Value
 
            'detecter date et la mettre en texte + bon format'
            If IsDate(vcl) Then
            cell.EntireColumn.Select
            Selection.Rows("2:761").Select
            Selection.NumberFormat = "@"
            Selection.NumberFormat = "yyyy-mm-dd"
            End If
 
        Next
            End With

Ma question est donc : Existe il une fonction ou manipulation pour passer de format monnaitaire/compta en format nombre du même style qu'avec la date ?

Je vous remercie

Julien

[parmi]

Bonjour,

Code :

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

1
2
3
    If InStr(1, cell.Text, "€") > 0 Then
        cell.NumberFormat = "0.00"  'pour 2 décimales
    End If

[cerede2000]

Bonjour à toi,

Teste comme ceci :

Code :

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

1
2
3
If InStr(1, ActiveCell.NumberFormat, "$") > 0 Then
    'Format monétaire !
End If

[jujudeo]

J'ai retranscrit de la même manière sur ma macro :

Code :

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

1
2
3
4
5
6
7
 If InStr(1, cell.Text, "€") > 0 Then
            cell.EntireColumn.Select
            Selection.Rows("2:761").Select
            Selection.NumberFormat = "0.00"  'pour 2 décimales
            End If
        Next
            End With

Et cela marche très bien, je vous remercie beaucoup, le sujet est résolu !!