[VBA]Conversion de la 1ere lettre en majuscule

**azde7015** · 15/04/2007, 12h05

bonjour

apres avoir réussi a convertir les chiffres en lettres, avec bien sur votre précieuse aide, je voudrais que la 1ere lettre de mon champs soit automatiquement en majuscule.

j'ai chercher sur le forum mais ce que j'ai trouer ne correspond pas a mon besoin, parce que au fait il ne s'agit pas d'un champ mais d'une zone de texte que j'ai intégré dans mon état pour qui traduise les chiffres en lettres.

merci d'avance

**Mahefasoa** · 15/04/2007, 12h53

Bonjour,

Envoyé par azde7015

bonjour

apres avoir réussi a convertir les chiffres en lettres, avec bien sur votre précieuse aide, je voudrais que la 1ere lettre de mon champs soit automatiquement en majuscule.

j'ai chercher sur le forum mais ce que j'ai trouer ne correspond pas a mon besoin, parce que au fait il ne s'agit pas d'un champ mais d'une zone de texte que j'ai intégré dans mon état pour qui traduise les chiffres en lettres.

merci d'avance

Supposons qu'une chaîne est contenue dans une variable xStr. Le code suivant permet de mettre en majuscule le premier caractère de cette chaîne en majuscule

Code :

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

1
2
3
4
 
Dim xStr As String
xStr = "ma chaîne"
xStr = UCase(Left(xStr, 1)) & Mid(xStr, 2)

Tu changes la variable par ton champ ou ton contrôle.

Bon courage et @+

**azde7015** · 15/04/2007, 13h04

re bonjour
en intergrant le code il me demande NOM? es ce le nom du champs ou du code qu'il y a dans la zone de texte.

merci

**FreeAccess** · 15/04/2007, 13h09

Bonjour,
Petit exemple avec ta fonction de conversion....
Le champ "Texte0" contient la valeur en chiffre.
Le champ "Texte2" contient la conversion.

Code :

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

1
2
Me.Texte2.Value = "Le montant est de " & UCase(Left(Nb2Mot$(Texte0) , 1)) _ 
& Mid(Nb2Mot$(Texte0), 2)

Bonne continuation...

**Mahefasoa** · 15/04/2007, 13h37

Re,

Envoyé par azde7015

re bonjour
en intergrant le code il me demande NOM? es ce le nom du champs ou du code qu'il y a dans la zone de texte.

merci

Le code que je t'ai montré ne sert qu'à expliquer le principe:
Left(xStr, 1) extrait le permier caractère de la chaîne
UCase(Left(xStr, 1)) permet de mettre au majuscule ce premier caractère
Mid(xStr, 2) extrait tous les caractères à partir de la deuxième position.

Maintenant à toi de l'adapter. Mais peux-tu nous dire comment l'as tu fait pour essayer de savoir pourquoi il demande NOM?

Bon courage et @+

**azde7015** · 15/04/2007, 13h39

merci de ta réponse FreeAccess mais malheureusement cela ne marche toujours pas, j'ai pourtant remplacer les valeurs mais rien ???

que faire ?

**FreeAccess** · 15/04/2007, 14h05

Je pense que pour t'aider correctement, tu devrais répondre à la question de Mahefasoa...

..Mais peux-tu nous dire comment l'as tu fait pour essayer de savoir pourquoi il demande NOM?

**azde7015** · 15/04/2007, 16h06

oui je pense que tu as raison, j'ai mis le code en ouvrant une fenetre MICROSOFT VISUAL BASIC? ou peut etre je devais tout simplement le mettre directement dans la zone de texte ???

merci

**azde7015** · 15/04/2007, 17h10

pas de solution a mon problème ?

**Renardo** · 15/04/2007, 17h11

Essai se code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub txtMemo_KeyPress(KeyAscii As Integer)
    If KeyAscii > 64 Then
       'on vérifie si on se trouve au le premier caractère
        If txtMemo.Selstart = 0 Then
            KeyAscii = Asc(UCase(Chr(KeyAscii)))
        Else
            KeyAscii = Asc(LCase(Chr(KeyAscii)))
        End If
    End If
End Sub

**azde7015** · 15/04/2007, 17h16

merci je vien de testé rien, il s'agit d'une zone de texte qui traduit les chiffres en lettre et qui est lier a un module

cela peut etre vous eclairera

**Mahefasoa** · 15/04/2007, 17h16

Re,

Envoyé par azde7015

oui je pense que tu as raison, j'ai mis le code en ouvrant une fenetre MICROSOFT VISUAL BASIC? ou peut etre je devais tout simplement le mettre directement dans la zone de texte ???

merci

Tout ceci n'est pas très explicite! Certes, tu l'as mis dans une fenêtre MICROSOFT VISUAL BASIC, mais associé à quel événement? Quel est le code que tu as écrit?
Bien sûr, tu peux le mettre directement dans la "zone de texte" ... ou je voulais dire que tu peux le mettre dans la propriété Source contrôle de la zone de texte si cette dernière n'est associée à aucun champ d'une source de données (table ou requête) quelconque!
Donc supposons que si le résultat de la conversion se trouve dans la zone de texte (c'est un contrôle) nommée ZT1 alors dans la zone de texte où tu veux placer le résultat (avec première lettre en maj), il faut écrire ceci dans la propriété Source contrôle:

Code :

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

1
2
 
=UCase(Left([ZT1], 1)) & Mid([ZT1], 2)

La j'ai fait dans le plus simple!
Pour que l'on puisse t'aider au mieux, dis nous en plus!

Bon courage et @+

**azde7015** · 15/04/2007, 17h22

certes tu a raison mais en ce moment la source de contrôle est =Nb2Mot([Montant_])

ce qui relie cette zone de texte a mon champs c a dire la ou il y a le chiffre, bien sur via le module qui s'occupe de la conversion.

il n'y pas un travail a faire sur le module directement, je sais que j'ai changer l'intitulé de la monnaie directement a partir du module

merci encore

**FreeAccess** · 15/04/2007, 17h26

Cela n'aide pas vraiment.....

Par contre pour répondre directement à ta question

d'une zone de texte que j'ai intégré dans mon état pour qui traduise les chiffres en lettres

Sur quoi est basé ton état

une table directe..
une requête...

Exemple pour une requête:
On va se servir de la fonction "Nb2Mot$" directement dans celle-ci pour convertir des montants en lettres. Ici le champ "valeur" représente le champ dans lequel sont 'sauvegardé' des montant en chiffre:
-1) Tu crée une requête basée sur ta table (Exemple T_Valeur)
-2) Dans le QBE tu y mets tous les champs dont tu as besoin pour ton état.
-3) Dans le QBE, tu crée un nouveau champ "ChiffreEnLettre" qui va te convertir directement tes chiffres en lettres:

Code :

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

1
2
ChifffeEnLettre: "Le montant est de " & Majuscule(Gauche(Nb2Mot$ _
([valeur]);1)) & ExtracChaîne(Nb2Mot$([valeur]);2)

Maintenant, il ne reste plus qu'à créer ton état basé sur cette requête.

**azde7015** · 15/04/2007, 17h35

l'état est fait sur la base d'une requête

**Mahefasoa** · 15/04/2007, 17h49

En lisant bien FreeAccess, tu aurais pu comprendre que dans ta zone de texte, tu pourrais écrire ceci dans la propriété Source contrôle:

Code :

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

1
2
 
=Majuscule(Gauche(Nb2Mot([Montant_]);1)) & ExtracChaîne(Nb2Mot([Montant_]);2)

Et cela ne donne rien?

Bon courage et @+

**FreeAccess** · 15/04/2007, 17h56

Et bien voilà.....

Si ton état est basé sur une requête, utilise la réponse fournie...
Maintenant, dans ton état, tu pourras te servir du champ "valeur" pour récupérer le montant en chiffre et.....le champ "ChiffreEnLettre" pour sa valeur en lettre.

Maintenant, la solution de Mahefasoa est également applicable à ton cas.
Il suffit simplement que ton champ qui va servir à l'affichage de ton montant en lettre soit "indépendant"....et dans sa propriété 'Source contrôle' tu tape:

Code :

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

1
2
="Le montant est de " & Majuscule(Gauche(Nb2Mot$([valeur]);1)) _
 & ExtracChaîne(Nb2Mot$([valeur]);2)

Ici 'valeur' représente le nom du champ contenant ton montant en chiffre.

**Mahefasoa** · 15/04/2007, 18h00

Eh oui, rien de plus facile et toc!

valeur à remplacer par Montant_. Tu suis?

**azde7015** · 16/04/2007, 11h26

ok ca marche merci les gars c gentil, hier apres une dure journée je voyais flou

, en tout cas merci pour votre patience.

merci encore

[VBA]Conversion de la 1ere lettre en majuscule

VBA Access

Discussions similaires

Partager

Partager