Discussion :

[qboullier]

Bonjour,

Pouvez-vous m'aider sur une macro, je débute en VBA, j'ai pas mal chercher et pas trouvé.

Dans le fichier attaché, je veux convertir des cellules contenant des chiffres en format texte au format numérique. Pas de problème tant qu'il n'y a pas de virgule.

J'ai dans un 1er temps sélectionné ma colonne, remplacer les "." par des "," et donner a ma sélection le format monétaire.

Sauf que tout les cellules qui avaient un point (que j'ai remplacé par une virgule) reste du coté gauche de la cellule avec l'angle haute/gauche en vert.

Si je clique dessus, j'ai la boite de dialogue me demandant si je convertir en nombre.

Ma question : comment faire en vba pour automatiquement avoir le format nombre ?

Mes lignes de 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
15
16
17
18
19
20
21
22
Sub mise_en_forme()
'
' Mise en forme du fichier Excel "Etat licences 2013-2014"
 
'
    'Remplace sur la colonne "Prix Club" la valeur "Inconnu" par la valeur "170"
        Columns("G:G").Select
        Selection.Replace What:="Inconnu", Replacement:="170"
 
    'Remplace sur la colonne "Montant Réglement" le "." par une ","
        Columns("H:H").Select
        Selection.Replace What:=".", Replacement:=","
 
    'Format les colonnes "Prix Club" et "Montant Réglement" en €
        Columns("G:H").Select
        Selection.Style = "Currency"
 
    'Position du curseur en A1
        Range("A1").Select
 
 
End Sub

Merci de votre aide


Eddie

[Philippe Tulliez]

Bonjour,
Es-tu certain que le séparateur de millier est une virgule ?
Si oui que se passe-t-il si tu multiplies la cellule en question par 1 ?

[Invité]

Peut être pas le plus simple mais ça a le mérite de fonctionner:

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
24
Option Explicit
 
Public Sub mise_en_forme()
 
'Mise en forme du fichier Excel "Etat licences 2013-2014"
 
  Dim rngC As Range
 
    'Remplace sur la colonne "Prix Club" la valeur "Inconnu" par la valeur "170"
        Columns("G:G").Replace What:="Inconnu", Replacement:="170"
 
    'Remplace sur la colonne "Montant Réglement" le "." par une ","
        Columns("H:H").Replace What:=".", Replacement:=","
 
    'Format les colonnes "Prix Club" et "Montant Réglement" en €
        For Each rngC In Range("G3:H" & Range("A" & Rows.Count).End(xlUp).Row)
          rngC = rngC * 1
        Next rngC
        Columns("G:H").NumberFormat = "#,##0.00 €"
 
    'Position du curseur en A1
        Range("A1").Select
 
End Sub

[qboullier]

Merci beaucoup, ça marche.

Maintenant je vais analyser et comprendre ce que tu as fait.

Grand merci encore


Eddie

[Invité]

J'ai simplement multiplié par 1 comme Philippe Tulliez le préconisait. Ca permet de transformer le format texte en format numérique.

Sinon tu remarqueras que j'ai enlevé tout les '.Select'. En effet ils sont inutiles et peuvent rendre la macro instable (sur de grosses macros).