Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access extraction de caractere

extraction de caractere

5 réponses
Avatar
le méruvien
bonjour,
Y a-t-il un moyen pour extraire la 1er lettre d'un mot composé ?
Ex: Chiens de Prairie = CDP
merci
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Pierre CFI [mvp]
bonjour
Function Initiale(Quoi As String)
Dim st As String, i As Integer

i = 1
Do Until i = 0
st = st & UCase(Left(Quoi, 1))
i = InStr(Quoi, " ")
Quoi = Mid(Quoi, i + 1)
Loop
Initiale = st
End Function


Sub test()
Debug.Print Initiale("Chiens de prairies de la mayenne")
End Sub


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"le méruvien" a écrit dans le message de news: 428ecbe8$0$26688$
bonjour,
Y a-t-il un moyen pour extraire la 1er lettre d'un mot composé ?
Ex: Chiens de Prairie = CDP
merci



Avatar
Eric
Bonjur Roger,

Une fonction du genre avec Access2K et + :

Public Function fnRVDB(UneChaine As String) As String
Dim tmp
Dim initiale As String, i As Integer
tmp = Split(UneChaine, " ")
For i = LBound(tmp) To UBound(tmp)
initiale = initiale & UCase(Left(tmp(i), 1))
Next i
fnRVDB = initiale
End Function

--
A+
Eric
Un petit tour ici : http://users.skynet.be/mpfa/
Accès aux archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

bonjour,
Y a-t-il un moyen pour extraire la 1er lettre d'un mot composé ?
Ex: Chiens de Prairie = CDP
merci




Avatar
Eric
Bonjour Pierre,

Excuses-moi pour le "quasi"-doublon ;-)
--
A+
Eric
Un petit tour ici : http://users.skynet.be/mpfa/
Accès aux archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

bonjour
Function Initiale(Quoi As String)
Dim st As String, i As Integer

i = 1
Do Until i = 0
st = st & UCase(Left(Quoi, 1))
i = InStr(Quoi, " ")
Quoi = Mid(Quoi, i + 1)
Loop
Initiale = st
End Function


Sub test()
Debug.Print Initiale("Chiens de prairies de la mayenne")
End Sub




Avatar
Pierre CFI [mvp]
pas doublon, une autre maniére :o)

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net

"Eric" a écrit dans le message de news:
Bonjour Pierre,

Excuses-moi pour le "quasi"-doublon ;-)
--
A+
Eric
Un petit tour ici : http://users.skynet.be/mpfa/
Accès aux archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

bonjour
Function Initiale(Quoi As String)
Dim st As String, i As Integer

i = 1
Do Until i = 0
st = st & UCase(Left(Quoi, 1))
i = InStr(Quoi, " ")
Quoi = Mid(Quoi, i + 1)
Loop
Initiale = st
End Function


Sub test()
Debug.Print Initiale("Chiens de prairies de la mayenne")
End Sub





Avatar
le méruvien
Bonjour, Merci, et bon week end a tous les deux
roger


"Eric" a écrit dans le message de news:

Bonjour Pierre,

Excuses-moi pour le "quasi"-doublon ;-)
--
A+
Eric
Un petit tour ici : http://users.skynet.be/mpfa/
Accès aux archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

bonjour
Function Initiale(Quoi As String)
Dim st As String, i As Integer

i = 1
Do Until i = 0
st = st & UCase(Left(Quoi, 1))
i = InStr(Quoi, " ")
Quoi = Mid(Quoi, i + 1)
Loop
Initiale = st
End Function


Sub test()
Debug.Print Initiale("Chiens de prairies de la mayenne")
End Sub