Macro Replace

[Goose]

Bjr à tous,
voici un code que j'aimerai adapter en intégrant la selection "D520":

Sub Remplace()
Dim Cell As Range
For Each Cell In Selection
    Cell.Value = CDbl(Replace(Cell.Text, ".", ","))
Next Cell
End Sub

mais je ne vois pas comment faire cela !!
pouvez vous m'aider ?
Cordialement

 

[Dull]

Re : Macro Replace

Salut Goose, le Forum

Remplace

Selection

par

Range("D5:D20")

si j'ai bien compris

Bonne Journée

 

[Theze]

Re : Macro Replace

Bonjour,

Comme ceci peut être ?

Sub Remplace()

    Dim Plage As Range
    Dim Cell As Range
    
    Set Plage = Range("D5:D20")
    
    For Each Cell In Plage
    
        Cell.Value = CDbl(Replace(Cell.Text, ".", ","))
        
    Next Cell

End Sub

Hervé.

 

[Goose]

Re : Macro Replace

Merci à vous,
dans les deux cas j'ai une erreur d'exécution en:
Cell.Value = CDbl(Replace(Cell.Text, ".", ","))

@+

 

[Dull]

Re : Macro Replace

Re le Fil, Hervé

Aussi bien que le code de Theze que ma modification fonctionne, avec les renseignements que tu as fourni.

Il doit y avoir un événementiel qui gène, ou autre chose

met un extrait de ton fichier pour voir de quoi il retourne

Bonne Journée

 

[Goose]

Re : Macro Replace

Bsr,
ci-joint mon fichier exemple !!

cordialement

 

[drisou]

Re : Macro Replace

Bonsoir Goose , le forum
regadre dans le fichier joint

 

[Dull]

Re : Macro Replace

Salut Goose, drisou, le Fil

Sub Remplace()
Dim Cell As Range
Application.ScreenUpdating = False
For Each Cell In Range("D520")
If Cell <> "" Then Cell.Value = CDbl(Replace(Cell.Text, ".", ","))
Next Cell
Application.ScreenUpdating = True
End Sub

Bonne Journée

 

[Goose]

Re : Macro Replace

Merci à tous les pro-excel !!
Dull t'a correction me sauve la vie !!

@+