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

[Franc]

Salut, teste comme ceci:

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
Sub test()
    Dim cell As Range
 
    ' Remplacer les points par des virgules
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
                      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                      ReplaceFormat:=True, FormulaVersion:=xlReplaceFormula2
 
    ' Parcourir chaque cellule de la sélection et la convertir en nombre
    For Each cell In Selection
        If IsNumeric(cell.Value) Then
            cell.Value = CDbl(cell.Value)
        End If
    Next cell
 
    Range("R7").Select
 
End Sub

[EricDgn]

Bonjour,

Une autre solution consiste à faire ceci avant de "copier" les données au format US (point décimal):

Code :

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

    Application.UseSystemSeparators = False

et une fois la copie effectuée, rechanger au format système (virgule décimale):

Code :

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

    Application.UseSystemSeparators = True

Manuellement: ruban > Fichier > Options > Options avancées > décocher/cocher Utiliser les séparateurs système

Cordialement.