Mettre en majuscule
Résolu
Fahora
Messages postés
949
Statut
Membre
-
jc80 Messages postés 5063 Statut Membre -
jc80 Messages postés 5063 Statut Membre -
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
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
- Mettre en majuscule excel sans formule - Forum Excel
5 réponses
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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.
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.
où ?
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