Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier puis formater le contenu de plusieurs cellules

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jonusbaum
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jonusbaum

Guest
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
 

Pièces jointes

Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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);"-");"/";"-"))
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
[REF] Wiki Page 8 de MichelXld
Réponses
0
Affichages
39 K
MichelXld
M
M
[REF] Wiki 1 de MichelXld (Généralités Excel)
Réponses
6
Affichages
60 K
Le_Phénomène
M
[REF] Wiki 5 de MichelXld (Formules, Audits de formules, Répertoires, Fichiers)
Réponses
0
Affichages
47 K
MichelXld
M
M
[REF] Wiki 4 de MichelXld (Fonctions, Evenements, Dates et calendriers, Flash , Ooo)
Réponses
0
Affichages
35 K
MichelXld
M
M
[REF] Wiki 6 de MichelXld (Doublons, Tris, Filtres, Variables, Fichiers fermés, Acces
Réponses
0
Affichages
69 K
MichelXld
M
M
[REF] Wiki 2 de MichelXld (Ce qui touche aux UserForm)
Réponses
0
Affichages
117 K
MichelXld
M
M
[REF] Wiki 3 de MichelXld (Piloter d'autres applications depuis Excel)
Réponses
0
Affichages
81 K
MichelXld
M
M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
52 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…