J'ai écris une procédure en VBA, j'ai une zone de saisie pour le prénom d'un
contact. Je voudrais la convertir avec la 1ère lettre en majuscule,
l'équivalent de la fonction Proper mais comment faire en VBA ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Patrice Henrio
Function PremièreLettreEnMajuscule(S as string) as string Dim PremièreLettre as integer PremièreLettre=asc(S) Select case PremièreLettre case asc("a") to asc("z") PremièreLettreEnMajuscule=Chr(PremièreLettre-32) & mid(S,2) case else 'autres cas à traiter, exemple é, à etc ... End If End Function "Jean-Pierre" a écrit dans le message de news: 42c0444a$0$12661$
Bonjour,
J'ai écris une procédure en VBA, j'ai une zone de saisie pour le prénom d'un contact. Je voudrais la convertir avec la 1ère lettre en majuscule, l'équivalent de la fonction Proper mais comment faire en VBA ?
Merci d'avance
JP
Function PremièreLettreEnMajuscule(S as string) as string
Dim PremièreLettre as integer
PremièreLettre=asc(S)
Select case PremièreLettre
case asc("a") to asc("z")
PremièreLettreEnMajuscule=Chr(PremièreLettre-32) & mid(S,2)
case else
'autres cas à traiter, exemple é, à etc ...
End If
End Function
"Jean-Pierre" <jp@free.fr> a écrit dans le message de news:
42c0444a$0$12661$8fcfb975@news.wanadoo.fr...
Bonjour,
J'ai écris une procédure en VBA, j'ai une zone de saisie pour le prénom
d'un contact. Je voudrais la convertir avec la 1ère lettre en majuscule,
l'équivalent de la fonction Proper mais comment faire en VBA ?
Function PremièreLettreEnMajuscule(S as string) as string Dim PremièreLettre as integer PremièreLettre=asc(S) Select case PremièreLettre case asc("a") to asc("z") PremièreLettreEnMajuscule=Chr(PremièreLettre-32) & mid(S,2) case else 'autres cas à traiter, exemple é, à etc ... End If End Function "Jean-Pierre" a écrit dans le message de news: 42c0444a$0$12661$
Bonjour,
J'ai écris une procédure en VBA, j'ai une zone de saisie pour le prénom d'un contact. Je voudrais la convertir avec la 1ère lettre en majuscule, l'équivalent de la fonction Proper mais comment faire en VBA ?
Merci d'avance
JP
Alain CROS
Bonjour.
Private Sub TextBox1_LostFocus() TextBox1.Text = Application.Proper(TextBox1.Text) End Sub
Alain CROS
"Jean-Pierre" a écrit dans le message de news: 42c0444a$0$12661$ | Bonjour, | | J'ai écris une procédure en VBA, j'ai une zone de saisie pour le prénom d'un | contact. Je voudrais la convertir avec la 1ère lettre en majuscule, | l'équivalent de la fonction Proper mais comment faire en VBA ? | | Merci d'avance | | JP | | |
Bonjour.
Private Sub TextBox1_LostFocus()
TextBox1.Text = Application.Proper(TextBox1.Text)
End Sub
Alain CROS
"Jean-Pierre" <jp@free.fr> a écrit dans le message de news: 42c0444a$0$12661$8fcfb975@news.wanadoo.fr...
| Bonjour,
|
| J'ai écris une procédure en VBA, j'ai une zone de saisie pour le prénom d'un
| contact. Je voudrais la convertir avec la 1ère lettre en majuscule,
| l'équivalent de la fonction Proper mais comment faire en VBA ?
|
| Merci d'avance
|
| JP
|
|
|
Private Sub TextBox1_LostFocus() TextBox1.Text = Application.Proper(TextBox1.Text) End Sub
Alain CROS
"Jean-Pierre" a écrit dans le message de news: 42c0444a$0$12661$ | Bonjour, | | J'ai écris une procédure en VBA, j'ai une zone de saisie pour le prénom d'un | contact. Je voudrais la convertir avec la 1ère lettre en majuscule, | l'équivalent de la fonction Proper mais comment faire en VBA ? | | Merci d'avance | | JP | | |
