Si vous avez plusieurs tableaux croisés dynamiques dans le classeur, vous pouvez utiliser ce code pour actualiser tous ces tableaux croisés dynamiques à la fois.
‘Ce code actualisera tous les tableaux croisés dynamiques du classeur
Sub RefreshAllPivotTables( )
Dim PT en tant que tableau croisé dynamique
Pour chaque PT dans ActiveSheet.PivotTables PT.RefreshTable Next PT End Sub
Changer la casse des cellules sélectionnées en majuscules
Bien qu’Excel dispose des formules pour modifier la casse du texte, il vous oblige à le faire dans un autre ensemble de cellules.
Utilisez ce code pour changer instantanément la casse des lettres du texte dans le texte sélectionné.
‘Ce code changera la sélection en majuscule

Sub ChangeCase()
Dim Rng As Range
For Each Rng In Selection.Cells If Rng.HasFormula = False Then Rng.Value = UCase(Rng.Value)
End I f Next Rng End Sub

Notez que dans ce cas, j’ai utilisé UCase pour rendre la casse du texte supérieure. Vous pouvez utiliser LCase pour les minuscules.