Bonjour le forum!
Nous voudrions automatiser la mise en majuscule ou minuscule simultanément sur plusieurs feuilles d'un classeurs. Mais nous avons rencontré des difficultés avec le code ci-dessous. C'est un essai pour la mise en minuscule. Le problème est que le code ne s'applique que dans la feuille active.
Pour être plus concret nous joignons un fichier exemple.
Merci d'avance.
DJISA
Nous voudrions automatiser la mise en majuscule ou minuscule simultanément sur plusieurs feuilles d'un classeurs. Mais nous avons rencontré des difficultés avec le code ci-dessous. C'est un essai pour la mise en minuscule. Le problème est que le code ne s'applique que dans la feuille active.
Pour être plus concret nous joignons un fichier exemple.
VB:
Sub Mise_en_minuscule()
Dim sheet As Worksheet
Dim Plageprenom As Range
Dim Plagenom As Range
Dim cell As Range
For Each sheet In Worksheets
Set Plageprenom = Range("B5:B2000")
Set Plagenom = Range("C5:C2000")
For Each cell In Plageprenom
cell = LCase(cell)
Next
Next
End Sub
Merci d'avance.
DJISA