adaptation ProgressBar

[Art]

Bonjour à tous et à toutes et longue vie à ce génial Forum.
Voici le poblème qui me torture l'esprit depuis plusieurs jours.
J'ai une macro toute simple

Sub Minuscules()
Dim Cell As Variant
For Each Cell In Selection
Cell.Value = LCase(Cell.Value)
Next Cell
End Sub

Qui me permet de mettre toutes les cellules de ma sélection en minuscule.
Existe t'il un moyen d'adapter une progressBar à cette macro, car j'ai parfois plus de 60000 enregitrements et il serait interessant de savoir ou en ai la macro.
Bonne journée à tous

 

[Ti]

En faisant une toute petite recherche dans les posts du jour, tu aurais vu que la question du progressbar a déjà été posée ce matin, avec un exemple joint en réponse. Je t'y renvoie, si tu connais le nombre de cellules (et tu peux le connaître en faisant un Selection.Cells.Count) il est facile d'adapter cet exemple

 

[Jon]

bonjour

rajoute application.screenupdating=false en début de macro
ton code sera peut-êtr eplus rapide

 

[Art]

Bonsoir Ti, Bonsoir Jon, Bonsoir le Forum.
Ti, je ne suis toujours pas arrivé à adapter ma macro à la ProgressBar que tu donne en exemple .
Peux tu me dire à quel endroit je dois placer la ligne
Selection.Cells.Count
J'avoue que le code que tu as placé dans ton UserForm1 est un peu obscur pour mon niveau.
@+
Art

 

[Ti]

essaie ça, ça doit marcher.

 

[Art]

Merci Ti.
Ca marche impec.
Il ne me reste plus qu' a décortiquer le code pour en apprendre un peu plus.
Encore une fois merci à vous tous pour ce que vous faîtes
@+
Art