Discussion :

[havopti]

Bonsoir,

Dans la colonne A j'ai des données style "John Smith"

J'aimerais écrire une macro qui pour chaque ligne de la colonne A copie en Bx le contenu de la cellule Ax en transformant les majuscules en minuscules, et les espaces en "_"

Tout ce que j'ai réussi à faire pour le moment, c'est de modifier dans la colonne A les majuscules en minuscules [merci un autre sujet sur ce forum ]. Au pire si je rajoute une autre macro à la suite de celle que j'ai écrite qui transforme les espaces en "_" ca m'aide déjà bien! (meme si ca remplace dans la colonne A au lieux de réécrire dans la colonne B)

Merci d'avance

[casefayere]

Bonsoir,

à adapter à ton contexte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Macro1()
Range("B2") = LCase(Replace(Range("A2"), " ", "_"))
End Sub

si tu as une grande liste en col A, commençant à la ligne 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
Dim origine(), but()
Dim dl As Long, i As Long
dl = Range("A" & Rows.Count).End(xlUp).Row
ReDim origine(1 To dl + 1)
ReDim but(1 To dl + 1)
origine = Range("A2:A" & dl)
For i = 1 To UBound(origine)
  but(i) = LCase(Replace(origine(i, 1), " ", "_"))
Next i
Range("B2:B" & UBound(origine) + 1) = WorksheetFunction.Transpose(but)
End Sub

[havopti]

ca marche à la suite de mon autre macro, mais ca tourne que pour la ligne 2 (forcement )

Je suppose que par "adapter au contexte" faut que je fasse la boucle mais j'y arrive pas.

J ai essayé de greffer ton code sur ma première macro mais je suis vraiment une buse en code

[casefayere]

As-tu lu le reste de ma réponse à laquelle j'ai ajouté un nouveau code ?

[havopti]

non, sinon j'aurais juste écrit:
MERCI BEAUCOUP!

J avais pas vu que t avais complété ta réponse, la boucle marche parfaitement, encore merci

Demain j essaye de comprendre comment ca fonctionne

bonne soirée/nuit

[casefayere]

Demain j essaye de comprendre comment ca fonctionne

Au cas où beaucoup de données sont à travailler, je préfère passer par des variables "tableau" beaucoup plus rapides à l'exécution, donc celles-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim origine(), but()

la variable "origine" contient tes noms d'origine et la variable "but" est un tableau avec le résultat souhaité. il suffit, ensuite de mettre le contenu de la variable "but" en colonne B

Bonne nuit

[havopti]

noté

merci pour tout

[casefayere]

Bonjour le forum, havopti

Après une petite nuit de sommeil, ci-dessous le code corrigé et ses explications. Bien sur, d'autres solutions existent sans passer par les tableaux, tu l'auras compris.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro1()
Dim origine(), but() 'variables contenant les tableaux
Dim dl As Long, i As Long
 
dl = Range("A" & Rows.Count).End(xlUp).Row 'indique la dernière ligne
 
ReDim origine(1 To dl - 1) 'redimensionne le tableau en fonction de dl
ReDim but(1 To dl - 1) 'redimensionne le tableau en fonction de dl
 
origine = Range("A2:A" & dl) 'donne les valeurs de la col A au tableau "origine"
 
For i = 1 To UBound(origine) 'boucle qui donne les valeurs recherchées à "but"
  but(i) = LCase(Replace(origine(i, 1), " ", "_")) 'Lcase pour minuscule, Replace pour remplacer les espaces(" ") par des tirets("_")
 
Next i
 
Range("B2:B" & dl) = WorksheetFunction.Transpose(but) 'résultat affecté à la colonne B en transposant le tableau "but"
End Sub

Bonne journée