copier puis formater le contenu de plusieurs cellules

jonusbaum · 11 Octobre 2009

Bonjour à tous et à toutes,
Je cherche "silmplement" a copier l'ensemble de la colonne A dans la colonne B, mais (sinon je ne serai pas là)
Mais en changeant la casse pour passer de majuscule à minuscule puis, supprimer les espace pour les remplacer par des - (tirets), puis supprimer aussis les caractères de type ./, (points, slash, virgule), bref pour ne laisser que du texte brut sans accent sans rien.
je joint un fichier avec quelques exemples.

Merci
Johann

jonusbaum · 11 Octobre 2009

Re : copier puis formater le contenu de plusieurs cellules

C'est un très bon début, mais j'ai encore des 'points' et des 'slash'

jonusbaum · 11 Octobre 2009

Re : copier puis formater le contenu de plusieurs cellules

Je l'essai de ce pas et au pire je pourrai modifier ta macro, tu m'as vraiment mis sur la voie

Johann

Staple1600 · 11 Octobre 2009

Re : copier puis formater le contenu de plusieurs cellules

Bonsoir

Voici une solution

Code:

Sub Macro1()
Dim i As Long, oReg As Object
Set oReg = CreateObject("vbscript.regexp")
For i = 1 To [A65536].End(xlUp).Row
With oReg
.Global = True
.IgnoreCase = True
.Pattern = "\W"
Cells(i, 2) = LCase(.Replace(Cells(i, 1).Text, "-"))
End With
Cells(i, 2) = Replace(Cells(i, 2).Text, "--", "-")
Next i
End Sub

hoerwind · 12 Octobre 2009

Re : copier puis formater le contenu de plusieurs cellules

Bonjour,

Une approche par formule :
=MINUSCULE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUPPRESPACE(A2);",";"");" ";"-");",";"-");".";"");CAR(39);"-");"/";"-"))

copier puis formater le contenu de plusieurs cellules

jonusbaum

XLDnaute Nouveau

Pièces jointes

jonusbaum

XLDnaute Nouveau

jonusbaum

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

hoerwind

XLDnaute Barbatruc

Discussions similaires