macro de rempalcement qui ne fonctionne pas

[sri75]

Bonjour, je tente de remplacer une virgule par rien dans excel et ma macro ne fonctionne pas !

si je tente l'opération manuellement ca marche, si j'enregistre automatiquement la macro et que je la lance ca ne marche plus, j'avoue ne pas comprendre pourquoi !

Est ce encore une sépcificité d'excel 2010 ?

Merci de votre aide, je joint un ficher

Bonne journée

 

[jp14]

Re : macro de rempalcement qui ne fonctionne pas

Bonjour

Ci dessous une macro qui répond ai problème.J'ai modifié le code pour la saisie de la zone.
Pour remplacer il faut transformer la valeur en chaine de caractère.

Sub enlevelescaract2()
Dim Cellule1 As Range
Dim Plage As Range
    
On Error Resume Next
    Set Plage = Application.InputBox("Sélectionnez une cellule ou une plage :", Type:=8)
    On Error GoTo 0
    If Plage Is Nothing Then
        MsgBox "Sélection annulée"
        Exit Sub
    End If
'toto = InputBox("saisissez la plage au format a2:e10 ")


For Each Cellule1 In Plage
    If Cellule1 <> "" Then
        Cellule1 = Replace(CStr(Cellule1), ",", " ")
    End If
Next Cellule1

End Sub

A tester

JP

 

[tototiti2008]

Re : macro de rempalcement qui ne fonctionne pas

Bonjour sri75,

c'est vrai pour toutes les versions d'Excel, le séparateur décimal est toujours le point en VBA, remplace la virgule de ton code par un point