A voir également:
- MAJUSCULE
- Majuscule js - Guide
- Sql like majuscule minuscule - Forum - SQL
- Premiere lettre en majuscule js - Guide
- Effectuer une recherche sans tenir compte des majuscules/minuscules ✓ - Forum - SQL
- Visual Basic / VB.NET : Inverser les minuscules et majuscule (ex : r en r et r en r) - CodeS SourceS - Guide
4 réponses
metalcoder
- Messages postés
- 193
- Date d'inscription
- jeudi 14 février 2002
- Statut
- Membre
- Dernière intervention
- 25 mars 2011
sur une feuille tu met un textbox et un bouton
Private Sub Command1_Click()
'recherche du caractère espace entre le nom et le prénom
'a contient la position du caractère espace
a = InStr(1, Text1.Text, " ")
'On garde que le nom dans la variable b (le nom c'est le début jusqu'a l'espace -1 caractère)
'b contient le nom en minuscule
b = Mid(Text1.Text, 1, a - 1)
'On convertis la chaine b en majuscule a l'aide de format
'c contient le nom en majuscule
c = Format(b, ">")
'On utilise replace pour remplacer le nom en mini par le majuscule
Text1.Text = Replace(Text1.Text, b, c)
End Sub
ps: il faut pas d'espace dans le nom sinon seul le début du nom sera en majuscule et il faut que le nom soit toujours en premier sinon c'est le prénom qui sera en majuscule
@+
Metalcoder
Private Sub Command1_Click()
'recherche du caractère espace entre le nom et le prénom
'a contient la position du caractère espace
a = InStr(1, Text1.Text, " ")
'On garde que le nom dans la variable b (le nom c'est le début jusqu'a l'espace -1 caractère)
'b contient le nom en minuscule
b = Mid(Text1.Text, 1, a - 1)
'On convertis la chaine b en majuscule a l'aide de format
'c contient le nom en majuscule
c = Format(b, ">")
'On utilise replace pour remplacer le nom en mini par le majuscule
Text1.Text = Replace(Text1.Text, b, c)
End Sub
ps: il faut pas d'espace dans le nom sinon seul le début du nom sera en majuscule et il faut que le nom soit toujours en premier sinon c'est le prénom qui sera en majuscule
@+
Metalcoder
econs
- Messages postés
- 4030
- Date d'inscription
- mardi 13 mai 2003
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2008
La fonction UCase permet de passer une chaine de caractères en majuscule.
La fonction Split permet de séparer une chaine selon un délimiteur (ici, l'espace).
Dim tablo() As String
Dim chaine As String
Dim PremierMot As String
Dim SecondMot As String
Dim NOM As String
Dim PRENOM As String
Dim MajusculeSecondMot As String
Dim SecondMotSansPremiereLettre As String
chaine = "castell laurent"
tablo = Split(chaine, " ", , vbTextCompare)
PremierMot = tablo(LBound(tablo))
SecondMot = tablo(UBound(tablo))
MajusculeSecondMot = UCase(Left(SecondMot, 1))
SecondMotSansPremiereLettre = Right(SecondMot, Len(SecondMot) - 1)
NOM = UCase(PremierMot)
PRENOM = MajusculeSecondMot & SecondMotSansPremiereLettre
MsgBox NOM & " " & PRENOM
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
La fonction Split permet de séparer une chaine selon un délimiteur (ici, l'espace).
Dim tablo() As String
Dim chaine As String
Dim PremierMot As String
Dim SecondMot As String
Dim NOM As String
Dim PRENOM As String
Dim MajusculeSecondMot As String
Dim SecondMotSansPremiereLettre As String
chaine = "castell laurent"
tablo = Split(chaine, " ", , vbTextCompare)
PremierMot = tablo(LBound(tablo))
SecondMot = tablo(UBound(tablo))
MajusculeSecondMot = UCase(Left(SecondMot, 1))
SecondMotSansPremiereLettre = Right(SecondMot, Len(SecondMot) - 1)
NOM = UCase(PremierMot)
PRENOM = MajusculeSecondMot & SecondMotSansPremiereLettre
MsgBox NOM & " " & PRENOM
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
cqui789
- Messages postés
- 261
- Date d'inscription
- jeudi 13 janvier 2005
- Statut
- Membre
- Dernière intervention
- 18 mai 2009
econs
mon manuel est vraiment nul, il ne connait SPLIT
doit-je comprendre que si il Y a plus d'un " ", tablo() aurra plus de 2 elements?
sinon juste un detail
SecondMotSansPremiereLettre = Right(SecondMot, Len(SecondMot) - 1)
se serai pas mieux avec
SecondMotSansPremiereLettre = mid(SecondMot, 2)
mon manuel est vraiment nul, il ne connait SPLIT
doit-je comprendre que si il Y a plus d'un " ", tablo() aurra plus de 2 elements?
sinon juste un detail
SecondMotSansPremiereLettre = Right(SecondMot, Len(SecondMot) - 1)
se serai pas mieux avec
SecondMotSansPremiereLettre = mid(SecondMot, 2)
econs
- Messages postés
- 4030
- Date d'inscription
- mardi 13 mai 2003
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2008
Oui, s'il y a N espaces, tablo() aura (N+1) éléments.
SecondMotSansPremiereLettre = Right(SecondMot, Len(SecondMot) - 1)
signifie :
prendre, à partir de la droite du mot, toutes les lettres sauf une. Ce qui revient à retirer la première lettre.
Mid(SecondMot,2) fait la même chose.... oui oui
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
SecondMotSansPremiereLettre = Right(SecondMot, Len(SecondMot) - 1)
signifie :
prendre, à partir de la droite du mot, toutes les lettres sauf une. Ce qui revient à retirer la première lettre.
Mid(SecondMot,2) fait la même chose.... oui oui
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.