Discussion:
Petites majuscules en VBA
(trop ancien pour répondre)
Arnaud LECLEMENT
2005-07-17 12:35:08 UTC
Permalink
Bonsoir
Je désire via 1 textbox transformer des minuscules en petites majuscules,
ceci afin de conserver les majuscules en capitale
Je vous remercie
Arnaud
filtre
2005-07-18 08:21:10 UTC
Permalink
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > 96 And KeyAscii < 123 Then KeyAscii = KeyAscii - 32
End Sub
Arnaud LECLEMENT
2005-07-18 16:14:58 UTC
Permalink
Désolé, cela ne fonctionne pas
Merci
Arnaud
Post by filtre
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > 96 And KeyAscii < 123 Then KeyAscii = KeyAscii - 32
End Sub
Michel NOLF
2005-07-18 21:51:34 UTC
Permalink
Bonjour
Désolé de répondre si tard : WE oblige
Essaie ce code. Il est conçu pour la cellule A1 de la 1ére feuille mais je
pense que tu n'auras pas de mal à l'adapter au contenu de ton textbox .

Sub essai()
Dim PetiteCapitale() As Integer
With Worksheets(1).Range("A1")
a$ = .Value
longueur% = Len(a$)
ReDim PetiteCapitale(longueur%)
i% = 1
While i% <= longueur%
c$ = Mid(a$, i%, 1)
If LCase(c$) = c$ Then
PetiteCapitale(k%) = i%
k% = k% + 1
End If
i% = i% + 1
Wend
.Value = UCase(a$)
For i% = 0 To k% - 1
.Characters(Start:=PetiteCapitale(i%), Length:=1).Font.Subscript = True
Next i%
End With
End Sub

Amicalement Michel
Post by Arnaud LECLEMENT
Bonsoir
Je désire via 1 textbox transformer des minuscules en petites majuscules,
ceci afin de conserver les majuscules en capitale
Je vous remercie
Arnaud
Arnaud LECLEMENT
2005-07-21 16:23:59 UTC
Permalink
Bonsoir Michel, je vais tester demain au boulot
je te remercie beaucoup
Arnaud
Post by Michel NOLF
Bonjour
Désolé de répondre si tard : WE oblige
Essaie ce code. Il est conçu pour la cellule A1 de la 1ére feuille mais je
pense que tu n'auras pas de mal à l'adapter au contenu de ton textbox .
Sub essai()
Dim PetiteCapitale() As Integer
With Worksheets(1).Range("A1")
a$ = .Value
longueur% = Len(a$)
ReDim PetiteCapitale(longueur%)
i% = 1
While i% <= longueur%
c$ = Mid(a$, i%, 1)
If LCase(c$) = c$ Then
PetiteCapitale(k%) = i%
k% = k% + 1
End If
i% = i% + 1
Wend
.Value = UCase(a$)
For i% = 0 To k% - 1
.Characters(Start:=PetiteCapitale(i%), Length:=1).Font.Subscript = True
Next i%
End With
End Sub
Amicalement Michel
Post by Arnaud LECLEMENT
Bonsoir
Je désire via 1 textbox transformer des minuscules en petites majuscules,
ceci afin de conserver les majuscules en capitale
Je vous remercie
Arnaud
Arnaud LECLEMENT
2005-07-22 17:44:21 UTC
Permalink
Bonsoir Michel cela fonctionne très bien
Un très grand merci
Arnaud
Post by Michel NOLF
Bonjour
Désolé de répondre si tard : WE oblige
Essaie ce code. Il est conçu pour la cellule A1 de la 1ére feuille mais je
pense que tu n'auras pas de mal à l'adapter au contenu de ton textbox .
Sub essai()
Dim PetiteCapitale() As Integer
With Worksheets(1).Range("A1")
a$ = .Value
longueur% = Len(a$)
ReDim PetiteCapitale(longueur%)
i% = 1
While i% <= longueur%
c$ = Mid(a$, i%, 1)
If LCase(c$) = c$ Then
PetiteCapitale(k%) = i%
k% = k% + 1
End If
i% = i% + 1
Wend
.Value = UCase(a$)
For i% = 0 To k% - 1
.Characters(Start:=PetiteCapitale(i%), Length:=1).Font.Subscript = True
Next i%
End With
End Sub
Amicalement Michel
Post by Arnaud LECLEMENT
Bonsoir
Je désire via 1 textbox transformer des minuscules en petites majuscules,
ceci afin de conserver les majuscules en capitale
Je vous remercie
Arnaud
Michel NOLF
2005-07-22 20:30:35 UTC
Permalink
merci du retour et bonsoir à toi aaussi et à tout le groupe
Michel
Post by Arnaud LECLEMENT
Bonsoir Michel cela fonctionne très bien
Un très grand merci
Arnaud
Post by Michel NOLF
Bonjour
Désolé de répondre si tard : WE oblige
Essaie ce code. Il est conçu pour la cellule A1 de la 1ére feuille mais
je pense que tu n'auras pas de mal à l'adapter au contenu de ton textbox
.
Sub essai()
Dim PetiteCapitale() As Integer
With Worksheets(1).Range("A1")
a$ = .Value
longueur% = Len(a$)
ReDim PetiteCapitale(longueur%)
i% = 1
While i% <= longueur%
c$ = Mid(a$, i%, 1)
If LCase(c$) = c$ Then
PetiteCapitale(k%) = i%
k% = k% + 1
End If
i% = i% + 1
Wend
.Value = UCase(a$)
For i% = 0 To k% - 1
.Characters(Start:=PetiteCapitale(i%), Length:=1).Font.Subscript = True
Next i%
End With
End Sub
Amicalement Michel
Post by Arnaud LECLEMENT
Bonsoir
Je désire via 1 textbox transformer des minuscules en petites
majuscules, ceci afin de conserver les majuscules en capitale
Je vous remercie
Arnaud
Michel Pierron
2005-07-24 13:00:44 UTC
Permalink
Bonjour Arnaud;
Pourquoi pas simplement:

Private Sub TextBox1_Change()
Me.TextBox1.Text = UCase(Me.TextBox1.Text)
End Sub

MP
Post by Arnaud LECLEMENT
Bonsoir
Je désire via 1 textbox transformer des minuscules en petites majuscules,
ceci afin de conserver les majuscules en capitale
Je vous remercie
Arnaud
Loading...