MAJUSCULE [Résolu]
lcastell
- Messages postés
- 47
- Date d'inscription
- lundi 6 novembre 2000
- Dernière intervention
- 3 mai 2005
- Messages postés
- 4066
- Date d'inscription
- mardi 13 mai 2003
- Dernière intervention
- 23 décembre 2008
A voir également:
- Majuscule
- Inverser les minuscules et majuscule (ex : r en r et r en r) - Codes sources - Visual Basic / VB.NET (Texte)
- Passer un textbox en majuscules ou en minuscules - Codes sources - Visual Basic / VB.NET (Texte)
- Mettez une majuscule à vos titre - Codes sources - Visual Basic / VB.NET (Divers)
- Alterner majuscules et minuscules - Codes sources - Visual Basic / VB.NET (Texte)
- Date, nom du jour avec une majuscule - Codes sources - Visual Basic / VB.NET (Date & Heure)
4 réponses
Meilleure réponse
/bfbc8c3994c24c1fb49e85ba29fa095b/auth-avatar/b52ec33e8d6e6101c4999bee1b72f969-metalcoder)
- Messages postés
- 193
- Date d'inscription
- jeudi 14 février 2002
- 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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
120 internautes nous ont dit merci ce mois-ci
/b77904dfc98b4a84979eb5e4f72c5e12/auth-avatar/ea63e3a1107c5e77be1648e137cc6cbe-econs)
- Messages postés
- 4066
- Date d'inscription
- mardi 13 mai 2003
- 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.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
120 internautes nous ont dit merci ce mois-ci
- Messages postés
- 261
- Date d'inscription
- jeudi 13 janvier 2005
- 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)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
120 internautes nous ont dit merci ce mois-ci
- Messages postés
- 4066
- Date d'inscription
- mardi 13 mai 2003
- 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.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.