Formes automatiques

Question

Bonjour à tous ( ou bonsoir c'est selon)

J'aimerais savoir s'il est possible de mettre des majuscules(ou minuscules et autres) automatiquement à un texte sans passer par le clavier.

En effet, ayant à résoudre un exercice sur les macros, je recherche cette option plutôt que de taper le texte en majuscule.

Voici le fichier:

https://www.excel-pratique.com/~files/doc/Exercice_8.xls

Merci de votre attention et de vos réponses.

Bien entendu je ne demande pas que quelqu'un résolve l'exercice.

CB60 · Answer

Tes trois premier bouton, regarde si cela te convient https://www.excel-pratique.com/~files/doc/Exercice_8_MMNP.zip...

CB60 · Answer

Les trois macro sont a peux près similaire.

Dans la boucle nous avons

Ucase pour mettre en Majuscule

cellule.Value = UCase(cellule.Value)

Lcase pour mettre en Minuscule

cellule.Value = LCase(cellule.Value)

et pour le nom propre

cellule.Value = Application.WorksheetFunction.Proper(cellule.Value)

Sub MAJUSCULE()
'MsgBox "A vous d'écrire la macro"
'   Majuscules
    Dim cellule As Range

 'Permet d'ouvrir une input box pour le choix des cellules,
 'le type 8 est = à Une référence de cellule, sous la forme d'un objet Range
 'Pour plus d'information se positionner sur inputbox et cliquer su F1
Set cellule = Application.InputBox(prompt:="Sélectionnez la plage de cellules.", _
Title:="Plage de cellules", Left:=500, Top:=300, Type:=8)
'On selectionne la plage definis par l'input Box
cellule.Select
'Le IF controle que la selection est du type déclaré
    If TypeName(Selection) = "Range" Then
'On boucle sur les cellules que nous avons selectionnés est on met en Majuscule avec Ucase
        For Each cellule In Selection
            cellule.Value = UCase(cellule.Value)
        Next cellule
    End If
 End Sub

5hours.xlsm (57.87 Ko)