problème de majuscules

[daniel]

Bonjour,

Désolé de reposer une question qui a du être posée plusieurs fois, mais la recherche ne fonctionnant pas...

Comment écrire une macro qui passe en majuscule tout le texte contenu dans une feuille ?
D'autre part, comment créer un format de cellule de façon à ne pouvoir saisir qu'ne majuscule dans les cellules ?

Merci à tous !

Daniel

 

[@+Thierry]

Bonsoir Daniel, le Forum

Pour les recherches je te conseille ce Fil => Lien supprimé

Vite fait pour le reste (sans tester sous VBE)

Sub DanielMaj ()
Dim Cell As Range

For each Cell in ActiveSheet.UsedRange
Cell = Ucase(Cell)
Next
End Sub

Mettre le même style de code en macro évènementielle sur ActiveCell et/ou Target)

Suis à la bourre, sinon je vais être enfermé au bureau !!
@+Thierry

 

[@+Thierry]

Re Daniel, le Forum

Je suis arrivé à sortir du bureau (ouf !!) lol

Donc j'ai testé c'est bon pour DanielMaj c'est bon.

Pour créer un format de cellule de façon à ne pouvoir saisir qu'ne majuscule dans les cellules, je reste sur ma proposition de macro évènementielle à mettre dans le Private Module de la Feuille en Question :

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
.Value = UCase(.Value)
End With
End Sub

Ou bien si c'est pour toutes les feuilles de tout le classeur à mettre dans le Private Module de "ThisWorkBook" :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
With Target
.Value = UCase(.Value)
End With
End Sub

Bonne Soirée
@+Thierry

 

[daniel]

yeeppeee !

un grand merci pour tona ide, Thierry, tout marche parfaitement !
Bonne soirée

Daniel