Texte en nombre sans avoir la cellule avec l'angle vert

Version imprimable

1 pièce(s) jointe(s)

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:

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

25/07/2013, 17h30
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 ?

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

Code:

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

25/07/2013, 22h19
qboullier

Merci beaucoup, ça marche. :ccool:

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

Grand merci encore

Eddie
26/07/2013, 09h07
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).