Cellule en Majuscule

Bonjour à tous,

Après pas mal de recherches sur internet je n'ai pas trouvé une solution pour ma requête je vais m'adresser à Vous, pour un truc simple mais difficile pour moi.

Sur mon fichier Excel je souhaiterai que quand j'écris une lettre ou un mot dans une des cellules (n'importe laquelle sur la feuille) après avoir fait <ENTER> automatiquement la lettre ou le mot devient Majuscule.

Car,

=MAJUSCULE() ne fonctionne pas il faut qu'il y est de donnée pour la convertir, tandis que ici n'importe quel mot ou lettre écris après <ENTER> devient majuscule.

Merci d'avance

bonsoir,

avec une macro event dans la colonne C

Private Sub Worksheet_Change(ByVal Target As Range)
     Set c = Intersect(Target, Columns("C"))
     If Not c Is Nothing Then
          Application.EnableEvents = False
          For Each cl In c.Cells
               cl.Value = UCase(cl.Value)
          Next
          Application.EnableEvents = True
     End If

End Sub
15colonnec.xlsb (19.72 Ko)

Bonjour BsAlv,

MERCI

Je viens de le trouvé aussi. Voici la solution il faut adapter ce code dans la feuille souhaiter

Private Sub Worksheet_Change(ByVal Target As Range)

Target.Value = VBA.UCase(Target.Value)
End Sub
image

Merci

bonsoir,

Et le "EnableEvents" n'est pas nécessaire, vous risquez un "endless loop" (boucle sans fin) ?

Bonsoir,

C'était juste sur la feuille en entier que je voulais, mais le "EnableEvents" je le retiens.

Merci

Rechercher des sujets similaires à "majuscule"