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.
Nom : Capture d’écran 2024-06-08 085909.jpg
Affichages : 282
Taille : 12,9 Ko

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