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 :
Merci de votre aide
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
Eddie
Partager