Correction des erreurs de saisie

[shimon810]

Bonjour à tous.

Voilà mon problème.
Je reçois régulièrement des listes importantes de nombres sur des feuilles de calcul excel.
Ces nombres sont ensuite stockés par une macro dans une base access.
Le souci est le suivant : certains fichiers contiennent des nombres avec des erreurs de frappe de la virgule (ex 10.67 10;.78 12;;34 etc ...).
Quelqu'un aurait il une idée sur la manière de corriger ces erreurs par une macro de manière à obtenir (ex 10,67 10,78 12,34 etc ...)
D'avance merci
Simon

 

[Kotov]

Re : Correction des erreurs de saisie

Bonjour Shimon810, bienvenue sur ce forum,

Essaies cette macro (à associer à un bouton placé dans ta page)
Le principe :
- 1. Cliques dans une des cellules de la colonne à corriger (pour signaler la colonne à corriger et éviter de faire une correction sur l'ensemble de la feuille)
- 2. Cliques sur le bouton que tu auras créé dans la page et auquel tu auras attribué la macro "Virgule"

La macro va dans un premier temps remplacer les points, les points virgules, les 2 points par une virgule. Ensuite dans l'hypothèse de multiples virgules, une seule est conservée.
(note : si tu as un soucis pour créer le bouton qui lance la macro, reviens sur ce fil)

Sub Virgule()
Dim c As Byte
c = ActiveCell.Column
With Columns(c)
    .Replace What:=".", Replacement:=",", LookAt:=xlPart
    .Replace What:=";", Replacement:=",", LookAt:=xlPart
    .Replace What:=":", Replacement:=",", LookAt:=xlPart
    .Replace What:=",,", Replacement:=",", LookAt:=xlPart
    .Replace What:=",,,", Replacement:=",", LookAt:=xlPart
End With
End Sub

Bonne journée
Kotov

 

[shimon810]

Re : Correction des erreurs de saisie

Merci Kotov

Ta proposition fontionne parfaitement.
Elle va me rendre un grand service.
Encore meri pour la célérité de ta réponse.

Simon