Discussion :

[Alexis35]

Bonjour,


Je souhaiterai réussir à mettre en forme une chaine de caractere en mettant toutes les premieres lettres en majuscules apres chaque espace dans ma chaine de caractere...

Je dois dire que je galère un peu (beaucoup ...?!?)

D'avance meric pour votre aide et vos conseils.

[methylene]

Salut,

Cherche du coté de Ucase et de la fonction Mid() ainsi que Lenght.

Cependant il ya peut-être une fonction qui fait déjà cela, mais en tout cas je ne la connais pas.

Code brut à améliorer (entre autre gérer le cas ou la fin de la string serait un espace) et à adapter, je t'ai donné mon idée.

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
        Dim mystring As String
        Dim lon As Integer
 
        mystring = "ta châine de caractères"
        lon = mystring.Length
 
        For i = 0 To lon
 
            If Mid(mystring, i, 1) = "" Then
 
                mystring = Mid(mystring, 0, i) & UCase(Mid(mystring, i + 1, 1)) & Mid(mystring, i + 2)
 
            End If
 
        Next

[Alexis35]

Merci pour ta réponse

Moi j'avais essayé ça :

Code :

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

1
2
3
4
5
6
7
8
9
Dim retour As String
        Dim i, j As Integer
        retour = Initcap_string(ch)
        While i < ch.Length()
            If retour(i) = " " Then
                retour = Replace(retour, retour(i + 1).ToString, retour(i + 1).ToString.ToUpper, Start:=i - 1, Count:=1)
            End If
            i += 1
        End While

Mais le start ne fonctionne pas, et si je ne le mets pas j'ai un problème si j'ai par exemple "les etangs" il me ressort "LEs etangs", au lieu de "Les Etangs"

Et ton code me leve une erreur aussi :

L'argument 'Start' doit être supérieur à zéro.

Edit : Ceci marche !

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
Dim mystring As String
        Dim lon As Integer
 
        mystring = Initcap_string(ch)
        lon = mystring.Length
 
        For i = 1 To lon
 
            If Mid(mystring, i, 1) = " " Then
 
                mystring = Mid(mystring, 1, i) & UCase(Mid(mystring, i + 1, 1)) & Mid(mystring, i + 2)
 
            End If
 
        Next

Merci beauccoup a toi !

[methylene]

Je dois t'avouer ne pas avoir du tout tester ce code, l'ayant tapé directement sous Developpez.com.

Effectivement le start doit commencer à 1 et ne peut commencer à 0, petite erreur d'attention.

Sinon tu devrait essayer de tester une chaîne de caractères finissant par un espace, dans mon code je pense que cela t'aurait généré une erreur, mais après ton edit je ne sais pas.

Bonne continuation.