Mise en forme cellules

[boulou]

Bonjour à tous,

Avec cette instruction toutes les cellules de la feuille sont en majuscules.

Sub Mise_en_majuscules()
Dim texte As Range, cellule As Range
Set texte = Cells.SpecialCells(xlCellTypeConstants, 2)
For Each cellule In texte
cellule = StrConv(cellule.Text, vbUpperCase)
Next
End Sub

Comment la modifier pour que cette mise en forme ne s'applique qu'à une plage donnée type ("B5:B42")

Merci.

 

[Staple1600]

Re : Mise en forme cellules

Bonjour boulou, les gens du fil & du forum


Une solution possible

Option Explicit
Const MA_PLAGE As String = "B5:B42"
Sub Mise_en_majuscules()
Dim texte As Range, cellule As Range
Set texte = _
    Application.InputBox("Sélectionner une plage de cellules", _
    "Mise en majuscule", MA_PLAGE, , , , , Type:=8).SpecialCells(xlCellTypeConstants, 2)
For Each cellule In texte
cellule = StrConv(cellule.Text, vbUpperCase)
Next
End Sub

 

[typo]

Re : Mise en forme cellules

bonjour
Une autre approche

Sub Mise_en_majuscules()
    Dim texte As Range, cellule As Range
    Dim z, y As Long
    Dim a As Object
    Range("B5:B42").Select
    Selection.SpecialCells(xlCellTypeVisible).Select

    For Each a In Selection
        If a <> "" Then
            z = a.Row
            y = a.Column
            a = StrConv(a, vbUpperCase)
            Cells(z, y) = a
        End If
    Next
End Sub

 

[Staple1600]

Re : Mise en forme cellules

Bonjour

typo
Pourquoi utiliser des Select ?

(alors qu'il est recommandé de les limiter au maximum)

Pour le fun , une variante de ton code 😉

Sub Mise_en_majuscules3()
    Dim texte As Range, z As Long, y As Long, a As Range
    Set texte = Range("B5:B42").SpecialCells(xlCellTypeVisible)
    For Each a In texte
    a = StrConv(a, vbUpperCase)
    Cells((IIf(Not IsEmpty(a), a.Row, a.Row)), (IIf(Not IsEmpty(a), a.Column, a.Column))) = StrConv(a, vbUpperCase)
    Next
End Sub

Pourquoi ne pas utiliser ce qui est en rouge 😕

 

[boulou]

Re : Mise en forme cellules

Bonjour

typo
Pourquoi utiliser des Select ?

(alors qu'il est recommandé de les limiter au maximum)

Pour le fun , une variante de ton code 😉

Sub Mise_en_majuscules3()
    Dim texte As Range, z As Long, y As Long, a As Range
    Set texte = Range("B5:B42").SpecialCells(xlCellTypeVisible)
    For Each a In texte
    a = StrConv(a, vbUpperCase)
    Cells((IIf(Not IsEmpty(a), a.Row, a.Row)), (IIf(Not IsEmpty(a), a.Column, a.Column))) = StrConv(a, vbUpperCase)
    Next
End Sub

Pourquoi ne pas utiliser ce qui est en rouge 😕

Allez abusons de vos services ! .....MERCI.

Et si je veux affecter plusieurs plages distinctes ?
Ex: "B5:B42" & "C12😀18" & "H15:H20"

 

[Pierrot93]

Re : Mise en forme cellules

Bonjour le fil

pour plusieurs plaes, modifie ainsi :

Set texte = Range("B5:B42,C12:C18,H15:H20").SpecialCells(xlCellTypeVisible)

bonne journée
@+