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
michdenis
Bonjour Helft,
Ceci s'applique à toute la feuille active
Si tu veux une plage spécifique de la plage active, remplace UsedRange par une plage spécifique "Range("A1:H70") dans la ligne de commande suivante : Set MaPlage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 7)
'-------------------------------- Sub MiseEnMajuscule()
Dim Tblo As Variant Dim MaPlage As Range, Are As Range Set MaPlage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 7)
For Each Are In MaPlage.Areas Tblo = Are aa = TypeName(Tblo) If TypeName(Tblo) = "String" Then Tblo = LCase(Tblo) Else For a = 1 To UBound(Tblo, 1) For b = 1 To UBound(Tblo, 2) Tblo(a, b) = LCase(Tblo(a, b)) Next Next End If Are = Tblo Next Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Set MaPlage = Nothing: Set Are = Nothing
End Sub '--------------------------------
Salutations!
"jean helft" a écrit dans le message de news:d7c701c43ac9$6627fa30$ comment transformer des majuscules en minuscules dans tout un tableau excel?
Bonjour Helft,
Ceci s'applique à toute la feuille active
Si tu veux une plage spécifique de la plage active, remplace UsedRange par une plage spécifique "Range("A1:H70") dans la
ligne de commande suivante :
Set MaPlage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 7)
'--------------------------------
Sub MiseEnMajuscule()
Dim Tblo As Variant
Dim MaPlage As Range, Are As Range
Set MaPlage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 7)
For Each Are In MaPlage.Areas
Tblo = Are
aa = TypeName(Tblo)
If TypeName(Tblo) = "String" Then
Tblo = LCase(Tblo)
Else
For a = 1 To UBound(Tblo, 1)
For b = 1 To UBound(Tblo, 2)
Tblo(a, b) = LCase(Tblo(a, b))
Next
Next
End If
Are = Tblo
Next
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Set MaPlage = Nothing: Set Are = Nothing
End Sub
'--------------------------------
Salutations!
"jean helft" <jean.helft@fiscalnet.be> a écrit dans le message de news:d7c701c43ac9$6627fa30$a401280a@phx.gbl...
comment transformer des majuscules en minuscules dans tout
un tableau excel?
Si tu veux une plage spécifique de la plage active, remplace UsedRange par une plage spécifique "Range("A1:H70") dans la ligne de commande suivante : Set MaPlage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 7)
'-------------------------------- Sub MiseEnMajuscule()
Dim Tblo As Variant Dim MaPlage As Range, Are As Range Set MaPlage = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 7)
For Each Are In MaPlage.Areas Tblo = Are aa = TypeName(Tblo) If TypeName(Tblo) = "String" Then Tblo = LCase(Tblo) Else For a = 1 To UBound(Tblo, 1) For b = 1 To UBound(Tblo, 2) Tblo(a, b) = LCase(Tblo(a, b)) Next Next End If Are = Tblo Next Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Set MaPlage = Nothing: Set Are = Nothing
End Sub '--------------------------------
Salutations!
"jean helft" a écrit dans le message de news:d7c701c43ac9$6627fa30$ comment transformer des majuscules en minuscules dans tout un tableau excel?
