Mettre en majuscule

Résolu

Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention -
jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention - 18 févr. 2016 à 15:48

Bonjour à tous ,

Je cherche un moyen de tout mettre en majuscule.
Je m'explique : lors de la saisie d'une cellule , j'aimerais qu'elle se mette en majuscule lorsque je tape sur "entrée". Après multiple recherche sur le net, je ne trouve pas comment faire ça directement à la "sortie" de la cellule, tout ce que je trouve c'est au moment de changer d'onglet.(Worksheet activate)

Merci d'avance ,

Cordialement

A voir également:

Mettre en majuscule
Mettre en majuscule - Guide
É majuscule - Guide
Majuscule - Guide
Code ascii de a majuscule - Guide
Touche majuscule inversée ✓ - Forum Clavier

5 réponses

Réponse 1 / 5

jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention 1 425

Bonjour
Range("A1")=Ucase(Range("A1")

Cordialement

Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention 68

Bonjour ,

où ?

jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention 1 425 > Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention

A mettre dans ta feuille toutes tes cellules seront en majuscule

Private Sub Worksheet_Change(ByVal Target As Range)
'Cela évite que l'événement se répète à chaque modification du contenu de la cellule
Application.EnableEvents = False
'Met en majuscule
Target = UCase(Target)
'Rétablit la prise en charge des événements
Application.EnableEvents = True
End Sub

Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention 68

Maintenant il faut que je trouve le moyen de le faire que sur la cellule demandée :)

jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention 1 425 > Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention

dans ce cas tu prends la formule de Mike-31 que je salue et tu modifie cette partie Range("A1")) tu choisis ta cellule

Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention 68

Malheureusement , ca ne fonctionne pas :(

Réponse 2 / 5

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Bonjour,

Exemple pour traiter la plage A1:A30
clic droit sur l'onglet de feuille/visualiser le code, coller ce code

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A1:A30")) Is Nothing Then
Target.Value = UCase(Target)
End If
End Sub

Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention 68

bonjour et merci Mike ,

ca ne fonctionne pas ...

Réponse 3 / 5

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

comment ça ne fonctionne pas, quelle est la cellule ou la plage que tu souhaite traitée

Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention 68

J'ai fait la manip que tu m'as donné , et les cellules de la colonne A ne se mettent pas en majuscule lorsque je tape quelques choses dedans.

J'ai fait le test pour la colonne A avant de l'appliquer à mes cellules. Celles-ci seraient K3/K14/N3 et N14

Réponse 4 / 5

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

oui j'ai vu ta réponse plus haut colle ce code dans les propriétés de ta feuille

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Union([K3:K4], [N3:N4])) Is Nothing Then
Target.Value = UCase(Target)
End If
End Sub

Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention 68

Merci Mike , ça fonctionne désormais avec :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Union(K3, K14, N3, N14)) Is Nothing Then
Target.Value = UCase(Target)
End If
End Sub

jc80 Messages postés 4243 Date d'inscription Statut Membre Dernière intervention 1 425 > Fahora Messages postés 814 Date d'inscription Statut Membre Dernière intervention

Celle ci aussi
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Union([K3,K14], [N3,N14])) Is Nothing Then
Target.Value = UCase(Target)
End If
End Sub

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention 5 135

Re,

le principal est que tu y sois arrivé, mais la syntaxe logique voudrait que tu écrives

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Union(Range("K3:K14"), Range("N3:N14"))) Is Nothing Then
Target.Value = UCase(Target)
End If
End Sub

ou
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Union([K3:K14], [N3:N14])) Is Nothing Then
Target.Value = UCase(Target)
End If
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Discussions similaires

Touches majuscule et minuscule inversées sur mon clavier

Une majuscule dans une adresse mail la modifie-t-elle ?

tout en majuscules (excel)

Dimensions L x l x H : comment lire ces infos ?

mettre en majuscule automatiquement une saisie excel

Forum Excel

Questions et réponses sur Excel