Fonction remplacer vba excel

[matrix]

Bonjour,

Je voudrais créer une macro en vba Excel qui remplacerait dans la colonne "AI" tous les signes comme: ( et ) et - et les espaces. Tout ça, à partir de la ligne 3 en descendant.

Comment faire S.V.P?

Merci pour votre aide.

 

[kllmoon]

Re : Fonction remplacer vba excel

Tu as essayé l'enregistruer de macro incorporé dans excel? La procédure semble simple à faire manuellement donc simple à enregistrée avec cet outil trop souvent ignoré 😉

 

[vbacrumble]

Re : Fonction remplacer vba excel

Bonjour


Et ca continue !

Voici une réponse de MichelXLD issu d'un fil (de 2008)
Lien supprimé

Faites svp des recherches dans les anciens fils , avant de poster.

 

[matrix]

Re : Fonction remplacer vba excel

J'avais déjà vu cet exemple, mais il ne fait que pour une cellule.

Comment la modifier pour qu'il fasse une colonne?

x = Array("-", "*", """")
For i = LBound(x) To UBound(x)
    Range("AI3").Value = Replace(Range("AI3").Value, x(i), "")
Next i

 

[vbacrumble]

Re : Fonction remplacer vba excel

Re



Comme ceci pour la colonne A

Option Explicit

Sub remp()
Dim x, i As Long, c As Range
x = Array("-", "*", """", "/") [COLOR="Green"]'tu peux ici rajouter d'autres caractères à remplacer[/COLOR]
For Each c In Range("A1:A" & [A65536].End(xlUp).Row)
For i = LBound(x) To UBound(x)
   c.Value = Replace(c.Text, x(i), "")
Next i
Next
End Sub

 

[matrix]

Re : Fonction remplacer vba excel

merci beaucoup, ça fonctionne super.