Remplacer des caracter dans une chaine

[anna]

Bonjour à tous le forum
j'ai une heure pour livrer un bout de mon projet et il me reste un point.
à l'aide d'une macro,je voudrai remplacer dans toute une colone tout les '/' par des '-'
exemple


Colonne A
DAR/825/SYS/0170
DAR/820/SYS/010
DAR/825/SYS/0125
DAR/824/SYS/0270
DAR/825/SYS/015
...

et le resultat souhaite est:
Colonne A
DAR-825-SYS-0170
DAR-820-SYS-010
DAR-825-SYS-0125
DAR-824-SYS-0270
DAR-825-SYS-015
...



Merci bcq de votre aide
Anna

 

[Arnaud]

Salut,

bon aller je te fais pas le code complet mais bon il ne te reste déja plus grand chose a faire

Dim ChaineRetour As String
ChaineRetour = Replace(ActiveCell.Value, '/', '-')
ActiveCell.Value = ChaineRetour

 

[anna]

Merci bcq
Je vais essaier ca desuite
anna

 

[Baside]

Bonjour Anna le forum

Tiujours dans tes listes et transfos en tout genre

C'est le cas de le dire, il ne rest plus qu'à boucler pour finir le travail

Bonne journée, Baside

 

[Baside]

Rebonjour Anna Arnaud le forum

Encore 33 mn

Voilà de quoi boucler

Dim X As Integer
Dim ChaineRetour As String
Sub Remplacer()
For X = 1 To 5
ChaineRetour = Replace(Cells(X, 1).Value, '/', '-')
Cells(X, 1).Value = ChaineRetour
Next
End Sub

X du n° de ligne début à n° de ligne fin
Le 1 dans Cells(X, 1) est à remplacer par le n° de ta colonne
Ex si colonne D il faut mettre 3 etc...

Bonne journée, Baside

 

[Moa]

Salut !

Si c'est juste pour présenter ton projet, mais que la macro n'est pas obligatoire, tu pouvais te servir du Menu Edition / Remplacer ou 'CTRL+H' / Rechercher : '/' et Remplacer par : '-' / Remplacer Tout.


@ +++

Moa

 

[anna]

Merci bcq à tous ca marche bien la Macro,c cool
Anna