Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel For each sheet...

For each sheet...

4 réponses
Avatar
Albator V
Bonjour,

je souhaiterai que ma macro change la casse des feuilles=20
selection=E9es...

For Each Sh In Selection.Sheets
Sh.Name =3D UCase(Sh.Name)
Next

il doit y avoir une erreur ???
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
AV
For Each Sh In ActiveWorkbook.Windows(1).SelectedSheets
Sh.Name = UCase(Sh.Name)
Next
End Sub

AV
Avatar
papou
Bonjour
For each sh in sheets.
Cordialement
Pascal

"Albator V" a écrit dans le message de
news:3b2501c4c1b5$20a6f330$
Bonjour,

je souhaiterai que ma macro change la casse des feuilles
selectionées...

For Each Sh In Selection.Sheets
Sh.Name = UCase(Sh.Name)
Next

il doit y avoir une erreur ???
Avatar
Albator V
merci mais je veux seulement les feuilles selectionnées,
pas toutes les feuilles d'un classeur...


-----Message d'origine-----
Bonjour
For each sh in sheets.
Cordialement
Pascal

"Albator V" a
écrit dans le message de

news:3b2501c4c1b5$20a6f330$
Bonjour,

je souhaiterai que ma macro change la casse des feuilles
selectionées...

For Each Sh In Selection.Sheets
Sh.Name = UCase(Sh.Name)
Next

il doit y avoir une erreur ???


.



Avatar
Albator V
Merci ca fonctionne

-----Message d'origine-----
For Each Sh In ActiveWorkbook.Windows(1).SelectedSheets
Sh.Name = UCase(Sh.Name)
Next
End Sub

AV



.