Mettre en majuscule
Résolu
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
--
Nos seules limites sont celles que nous nous imposons nous-même.
Fahora
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
--
Nos seules limites sont celles que nous nous imposons nous-même.
Fahora
5 réponses
-
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. -
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
-
-
@FahoraCelle 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
-
-
Re,
comment ça ne fonctionne pas, quelle est la cellule ou la plage que tu souhaite traitée
-
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
-
Bonjour
Range("A1")=Ucase(Range("A1")
Cordialement-
-
@FahoraA 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 -
-
@Fahoradans ce cas tu prends la formule de Mike-31 que je salue et tu modifie cette partie Range("A1")) tu choisis ta cellule
-
-
