Existe-t-il une solution pour que quelque soit la forme de saisie d'un
prénom (Majuscule, minuscule, ou les 2) le résultat dans un contrôle de
formulaire ou d'état sit avec la 1ère lettre en majuscule.
Exemple :
SAISIE FORMATAGE
Jean-pierre Jean-Pierre
JEAN-PIERRE Jean-Pierre
jean-pierre Jean-Pierre
LEON Léon
léon Léon
de almaïda De Almaïda
Etc...
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
Eric
Bonjour
De manière simpliste, la fonction qui suit fait ce que tu demandes d'après ta colonne formatage. Elle ne vérifie que la présence du 1er (trait d'union) dans le prénom mais ne permet pas de transformer LEON en Léon (elle retournera Leon).
Function MEFPrenom(txtPrenom As String) As String Dim pos As Integer pos = InStr(1, txtPrenom, "-") If pos = 0 Then MEFPrenom = StrConv(txtPrenom, vbProperCase) Else MEFPrenom = StrConv(Left(txtPrenom, pos - 1), vbProperCase) _ & Mid(txtPrenom, pos, 1) _ & StrConv(Right(txtPrenom, Len(txtPrenom) - pos), vbProperCase) End If End Function
Existe-t-il une solution pour que quelque soit la forme de saisie d'un prénom (Majuscule, minuscule, ou les 2) le résultat dans un contrôle de formulaire ou d'état sit avec la 1ère lettre en majuscule.
Exemple :
SAISIE FORMATAGE
Jean-pierre Jean-Pierre JEAN-PIERRE Jean-Pierre jean-pierre Jean-Pierre LEON Léon léon Léon de almaïda De Almaïda Etc...
Merci
Patrice
Bonjour
De manière simpliste, la fonction qui suit fait ce que tu demandes
d'après ta colonne formatage. Elle ne vérifie que la présence du 1er
(trait d'union) dans le prénom mais ne permet pas de transformer LEON en
Léon (elle retournera Leon).
Function MEFPrenom(txtPrenom As String) As String
Dim pos As Integer
pos = InStr(1, txtPrenom, "-")
If pos = 0 Then
MEFPrenom = StrConv(txtPrenom, vbProperCase)
Else
MEFPrenom = StrConv(Left(txtPrenom, pos - 1), vbProperCase) _
& Mid(txtPrenom, pos, 1) _
& StrConv(Right(txtPrenom, Len(txtPrenom) - pos), vbProperCase)
End If
End Function
Existe-t-il une solution pour que quelque soit la forme de saisie d'un
prénom (Majuscule, minuscule, ou les 2) le résultat dans un contrôle de
formulaire ou d'état sit avec la 1ère lettre en majuscule.
Exemple :
SAISIE FORMATAGE
Jean-pierre Jean-Pierre
JEAN-PIERRE Jean-Pierre
jean-pierre Jean-Pierre
LEON Léon
léon Léon
de almaïda De Almaïda
Etc...
De manière simpliste, la fonction qui suit fait ce que tu demandes d'après ta colonne formatage. Elle ne vérifie que la présence du 1er (trait d'union) dans le prénom mais ne permet pas de transformer LEON en Léon (elle retournera Leon).
Function MEFPrenom(txtPrenom As String) As String Dim pos As Integer pos = InStr(1, txtPrenom, "-") If pos = 0 Then MEFPrenom = StrConv(txtPrenom, vbProperCase) Else MEFPrenom = StrConv(Left(txtPrenom, pos - 1), vbProperCase) _ & Mid(txtPrenom, pos, 1) _ & StrConv(Right(txtPrenom, Len(txtPrenom) - pos), vbProperCase) End If End Function
Existe-t-il une solution pour que quelque soit la forme de saisie d'un prénom (Majuscule, minuscule, ou les 2) le résultat dans un contrôle de formulaire ou d'état sit avec la 1ère lettre en majuscule.
Exemple :
SAISIE FORMATAGE
Jean-pierre Jean-Pierre JEAN-PIERRE Jean-Pierre jean-pierre Jean-Pierre LEON Léon léon Léon de almaïda De Almaïda Etc...
