macro à la place d'une fonction

[emmanuel75]

Bonjour à tous,
On trouve pas mal de fonction pour manipuler les chaînes de caractères mais voilà...le fichier sur lequel je travaille est généré par une première macro...je ne peux donc pas à l'avance insérer de formules sur la feuille excel...
Quelle macro pourrait me permettre de tester puis de supprimer la présence d'une chaîne de caractère "ville" dans chaque cellule...voir le fichier joint...

Merci pour votre aide

Emmanuel

 

[Risleure]

Re : macro à la place d'une fonction

Bonjour Emmanuel75, le Forum

Ta 1ère macro ne pourrait-elle pas directement supprimer cette chaine "ville" ?

@+

 

[emmanuel75]

Re : macro à la place d'une fonction

oui tout à fait...la première macro préparant le fichier en question, on peux très bien intégrer du code dans celle-ci...

Emmanuel

 

[SergiO]

Re : macro à la place d'une fonction

Bonjour,

Essaie ceci:

Sub Remplace()
Derlig = Range("E65536").End(xlUp).Row
For L = 2 To Derlig
Cells(L, 5) = Replace(Cells(L, 5), "ville", "")
Next L
End Sub

@+

 

[emmanuel75]

Re : macro à la place d'une fonction

Cela fonctionne parfaitement...
Merci à toi, Sergio !

 

[myDearFriend!]

Re : macro à la place d'une fonction

Bonjour emmanuel75, SergiO, le Forum,

Pour info, on peut éviter une boucle en utilisant la méthode Replace au lieu de la fonction. Et une seule ligne VBA suffit à faire le traitement :

[COLOR=GRAY][B][I]POUR TOUTE LA FEUILLLE ACTIVE[/I][/B][/COLOR]

    Cells.Replace What:="ville", Replacement:="", LookAt:=xlPart

Ou bien :

[COLOR=GRAY][B][I]POUR LA COLONNE C UNIQUEMENT[/I][/B][/COLOR]

    Columns("C").Replace What:="ville", Replacement:="", LookAt:=xlPart

Cordialement,