Erreur de concaténation [Résolu]

[LudOL56]

Bonjour,

Alors déjà pour information, je ne suis pas informaticien, je suis étudiant en 5ème année de sciences de la Terre spécialisé en Ressources et Fluides option géomatique. depuis la semaine dernière on a commencé un module d’algorithmique où on fait du VBA.
En fait le but, à terme, est de concevoir des modules à intégrer dans ArcGIS pour nous aider à résoudre certains problèmes géologiques, bref...on a un exercice à faire.

On devait transformer une phrase écrite en minuscule en majuscule. Pour ça j'ai réussi:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
phrase = "ludovic"
long_phrase = Len(phrase)
 
    For n = 1 To long_phrase
        lettre = Mid(phrase, n, 1) 'j'extrais chaque lettre'
        code = Asc(lettre) 'je la transcrit en code asci'
            If code > 96 And code < 123 Then
            code_maj_asci = code - 32 'je passe de minuscule à majuscule sous asci'
            code_maj = Chr(code_maj_asci) 'je retranscrit en lettre'
            Print code_maj
            End If
 
    Next n

Mais du coup le résultat est sous cette forme:
L
U
D
O
V
I
C
Ce que je cherche à faire c'est que ça soit sur la même ligne: LUDOVIC, mais je n'y arrive pas !!

Pouvez vous m'aider ?

Merci d'avance

[franticfranz]

Bonsoir,

Code :

1
2
phrase = "ludovic"
phrase_maj = UCase(phrase)

[LudOL56]

Merci pour ta réponse !
Par contre j'ai oublié de préciser que notre prof nous oblige à ne pas utiliser de commandes faites pour ça, on doit utiliser que ce qu'on a vu (compteur, concaténation...) :-/

[franticfranz]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
phrase = "ludovic"
long_phrase = Len(phrase)
phrase_maj = ""
 
    For n = 1 To long_phrase
        lettre = Mid(phrase, n, 1) 'j'extrais chaque lettre'
        code = Asc(lettre) 'je la transcrit en code asci'
            If code > 96 And code < 123 Then
                code_maj_asci = code - 32 'je passe de minuscule à majuscule sous asci'
                code_maj = Chr(code_maj_asci) 'je retranscrit en lettre'
                phrase_maj = phrase_maj & code_maj
            Else
                phrase_maj = phrase_maj & lettre
            End If
 
    Next n
 
    Print phrase_maj

[LudOL56]

Merci c'est parfait

[franticfranz]

Dans ce cas n'oubliez pas de marquer le sujet comme résolu.