MAJUSCULE
Résolu
lcastell
Messages postés
47
Date d'inscription
lundi 6 novembre 2000
Statut
Membre
Dernière intervention
3 mai 2005
-
21 janv. 2005 à 08:16
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 - 21 janv. 2005 à 22:09
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 - 21 janv. 2005 à 22:09
4 réponses
metalcoder
Messages postés
193
Date d'inscription
jeudi 14 février 2002
Statut
Membre
Dernière intervention
25 mars 2011
1
21 janv. 2005 à 08:46
21 janv. 2005 à 08:46
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
23
21 janv. 2005 à 09:10
21 janv. 2005 à 09:10
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
3
21 janv. 2005 à 11:51
21 janv. 2005 à 11:51
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
23
21 janv. 2005 à 22:09
21 janv. 2005 à 22:09
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.