Format majuscule + nombre limité de caracteres par cellule

bonjour a tous!

je voudrais bien savoir comment je peux faire un petit code pour que le texte que j'entre dans une cellule soit toujours formaté automatiquement en majuscule et que les caractères de cette cellule soient limités à 60 caractères (le tout dans la meme cellule, pas dans une autre à côté!).

Merci!

formaté automatiquement en majuscule

Le code transformant le texte en Majuscule

UCase("Cellule")

Pour la suite, je l'ignore.

bonjour,

une macro à mettre dans le code de ta feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
 Target = Left(UCase(Target), 60)
End Sub

reallo! merci a vous deux! j'ai essayé, mais ca ne fonctionne pas. voici mon fichier test en PJ.

merci encore!

Bonjour H2SO4,

Moi aussi je suis intéressé mais comment on peut mettre cette formule pour un range en particulier?

i.e.: B ou AZ ou whatever.

Merci

JL

Bonjour,

Une idée, et une question à WrekOng : Peux-tu changer ton avatar? Tu fais peur à mon fils

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("$A$8:$A$3000")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Application.EnableEvents = False
        Target = Left(UCase(Target), 60)
        Application.EnableEvents = True
    End If
End Sub

merci Jean-Eric! tu me sauve la vie c'est trop fort! et oui mon avatar je vais le changer, pas de problème tu m'as tellement aidé, je te dois au moins ca hahahaa

a+

Comment faire pour mettre du code dans un autre Private Sub que Worksheet_Change.

Parce que si on renomme un Worksheet_Change pour Worksheet_anything_else le code ne fonctionne pas.

Et en ajoutant la ligne de code au Private Sub Worksheet_Change j'ai souvent l'erreur :

Error 28 : out of stack space

Merci