macro qui ne finie pas

[Maximom]

Bonjour,
après avoir trouvé mon bonheur sur le forum...
j'ai cette macro qui met des majuscules et le reste en minuscule
Seul souci, elle ne s'arrête pas!

Sub PersoProper()
For Each c In Selection
c.Value = LCase(c.Value)
c.Value = Application.WorksheetFunction.Proper(c.Value)
Next c
End Sub

Merci au forum!

 

[Champa]

Salut Maximom, le forum
Chez moi ca fonctionne sans pb de plus je me permettrais de te suggerer une correction a ton code si tu ve juste mettre la premiere lettre en majuscule, la ligne en gras est de trop.


Sub PersoProper()
For Each c In Selection
c.Value = LCase(c.Value)
c.Value = Application.WorksheetFunction.Proper(c.Value)
Next c
End Sub

Par contre tu entends quoi par 'elle ne s'arrête pas!', peux tu préciser stp ?

 

[Maximom]

Bonjour Champa, et a tous!

C'est difficile a expliquer:!

Donc quand je la lance, elle fonctionne bien, mais elle ne s'arrête jamais, je vois toujours le sablier, et lorsque j'appuie sur ESC, je choisi débogage, et la j'ai cette ligne qui est sur ligné en jaune

Next c

avec la petite flèche jaune à coté.
Voila

 

[PascalXLD]

Bonjour

essaies ainsi

Sub PersoProper()

Dim c As Range
For Each c In Selection
    c.Value = Application.WorksheetFunction.Proper(c.Value)
Next c
End Sub

 

[Maximom]

Bonjour Pascal,
Pas mieux,
je n'ai pas d'amélioration, la macro ne s'arrête pas...

 

[PascalXLD]

Re

Alors là tu as un autre problème car ça marche

tu peux envoyer le fichier STP

 

[Maximom]

J'ai compris!
en fait oui, ta macro fonctionne bien, sauf que moi je sélectionne la colonne en entier, en cliquant sur C par exemple, ce qui fait que LA! elle ne s'arrête pas...!
En fait si je sélectionne juste les cellules, ça marche nikel, et bon même comme cela, c'est pas trop grave, un coup d'ESC, et c bon!
Merci Pascal, et à tous!
Bravo pour votre soutien, qui est fort remarquable!

 

[PascalXLD]

RE

Ok bon en fait j'avais ta réponse dans ma BAL mais comme XLD etait coupée je n'ai pu te repondre

En fait ce n'est pas que ta macro ne s'arretait pas mais en selectionnant la colonne, elle bouclait sur 65536 lignes donc obligatoirement cela prend du temps

Bon WE