Discussion :

[blepy]

Bonjour,
Dans un contexte de récupération de données par copier/coller à partir d'un portail Web dans Excel, les données sont au format Point décimal.

L'utilisation de Rechercher / Remplacer ne pose pas de problème, les cellules restent numérique !
L'utilisation via VBA de Range.Replace fait que les cellules dont le point est remplacé par une virgule, j'ai un message d'attention :
"Le nombre dans cette cellule est au format texte ou précédé d'une apostrophe".
Pour corriger il faut revalider chaque cellule (ou utiliser 'convertir en nombre) pour qu'elle repasse en numérique.


Code obtenu par 'enregistrer une macro' :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=True, FormulaVersion:=xlReplaceFormula2
    Range("R7").Select

Comment compléter le VBA pour qu'il me retourne bien une donnée numérique après le Replace ?
Par avance merci de votre aide.

Bertrand