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