Discussion :

[integrale]

Bonjour,

Juste un truc qui me chiffonne l' esprit au point de m' enlever le sommeil. j' ai un champ text nommé " organisation " qui prend des valeurs différentes, je veux pour chaque de ces valeurs y associer un sigle dans un autre champ dénommé " Sigle " qui serait la première lettre de chaque mot qui compose le champ " organisation ".
les focntions habituelles Right Left et Mid ne me sont d' aucun secours.

Merci à ceux qui veulent bien me donner une idée.

Integrale

[marot_r]

Bon alors pour les pb de sommeil fait des exercices de controle de la respiration, ça aide ;-).

Pour ton pb il faut que tu écrive une fonction personnelle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Public function CreerSigle(prmOrganisation as string) as string
   dim result as string
   dim organisation as string
   dim i as interger
   dim c as string
 
   organisation=trim(prmOrganisation)
   result=left(organisation, 1)
 
   for i=2 to len(organisation)
      c=mid(organisation, i-1, 1)
 
      select case c
         case " ", "-", ".", "/":'Mettre ici tous les séparateurs dont tu as besoin
            result=result & mid(organisation, i, 1)
         case else
           'Ne rien faire
      end select
 
   next i
 
   CreerSigle=result
end function

ou

Si tu n'as qu'un seul séparateur tu peux utiliser Split et récupérer le 1er car de chacun des éléments créés.

A+

[Keuf95]

J'ai une piste.
J'ai un bout de code qui met la première lettre de chaque mot en majuscule.
Je l'ai utilisé pour des prénoms dont certains peuvent être composés en partant de ce code tu dois pouvoir l'adapter pour ne plus mettre la lettre en majuscule mais pour la stocker la première lettre ainsi que les lettres précédées d'un "blanc" ou d'un tiret dans une "string" que tu affecteras à ton champ sigle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
' Permet de mettre en majuscule la première lettre du prénom avec gestion des prénoms composés
Function MiseEnMajuscule(Chaine As String) As String
Dim nCar As Integer  'Compteur (position dans la chaine à traiter)
 
Chaine = Trim$(Chaine) 'Récupère la chaîne sans les espaces facultatifs
'Traitement spécifique sur le premier caractère
MiseEnMajuscule = UCase$(Left(Chaine, 1))
'Début de la boucle sur les autres caractères
For nCar = 2 To Len(Chaine)
'Teste le caractère précédent (" " ou "-")
If (Mid$(Chaine, nCar - 1, 1) = " ") Or (Mid$(Chaine, nCar - 1, 1) = "-") Then
'Si c'est vrai, mettre en majuscule le caractère courant
MiseEnMajuscule = MiseEnMajuscule & UCase$(Mid(Chaine, nCar, 1))
Else
'Si c'est faux, mettre en minuscule le caractère courant
MiseEnMajuscule = MiseEnMajuscule & LCase$(Mid(Chaine, nCar, 1))
End If
'Fin de la boucle sur les caractères
Next
End Function

[Keuf95]

La solution de Marot est plus sympa elle permet de traiter plus facilement les séparateurs avec le "case" de plus tu n'as pas à adapter le code.

[marot_r]

Attention avec mon code, il suppose que le 1er caractère est un car valide. Il faudrait ajouter un test pour s'assurer que c'est vrai.

A+