[VBA-E] mettre en majuscule une chaine string en vba

Version imprimable

Bonjour, j'essai de mettre une chaine de charactere en majuscule et j'ai un petit souci,

voila mon code VBA sous exel

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
With Worksheets("liste")
 
        'on attribue la civilite suivant le choix de l'utilisateur
        If obmr Then
            .Cells(i, 1) = "Mr"
        ElseIf obmme Then
            .Cells(i, 1) = "Mme"
        ElseIf obmlle Then
            .Cells(i, 1) = "Melle"
        Else
            .Cells(i, 1) = ""
        End If
 
        'on stock les données sur une feuile de calcul
        .Cells(i, 2) = UCase(UserForm4.txtnom)
        .Cells(i, 3) = UCase(UserForm4.txtprenom)
        .Cells(i, 4) = UserForm4.txtmat
        .Cells(i, 5) = UserForm4.txtcle
        .Cells(i, 6) = UserForm4.txtnni
        .Cells(i, 7) = UserForm4.txtcontrat
        .Cells(i, 8) = UserForm4.txttel
        .Cells(i, 9) = UserForm4.txtunite
    End With

cela me renvoie un message d'erreur du type :

erreur de compilation :

projet ou biblihotheque introuvable

j'ai donc esseyer ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
    With Worksheets("liste")
 
        'on attribue la civilite suivant le choix de l'utilisateur
        If obmr Then
            .Cells(i, 1) = "Mr"
        ElseIf obmme Then
            .Cells(i, 1) = "Mme"
        ElseIf obmlle Then
            .Cells(i, 1) = "Melle"
        Else
            .Cells(i, 1) = ""
        End If
 
        'on stock les données sur une feuile de calcul
        .Cells(i, 2) = StrConv(UserForm4.txtnom, vbUpperCase)
        .Cells(i, 3) = StrConv(UserForm4.txtprenom, vbProperCase)
        .Cells(i, 4) = UserForm4.txtmat
        .Cells(i, 5) = UserForm4.txtcle
        .Cells(i, 6) = UserForm4.txtnni
        .Cells(i, 7) = UserForm4.txtcontrat
        .Cells(i, 8) = UserForm4.txttel
        .Cells(i, 9) = UserForm4.txtunite
    End With

le même message d'erreur.

Que faire dans ce cas

Je pense que ce sont des Textbox, auquel cas c'est

Code:

1
2
        .Cells(i, 2) = UCase(UserForm4.txtnom.text)
        .Cells(i, 3) = UCase(UserForm4.txtprenom.text)

A+

06/03/2007, 18h58
ludo02

Merci ouskel'n'or

ce sont effectivement des textbox, mais ta solution n'a pas foctionner je l'ai est tester avec UCase et , strconv mais toujour mon message d'erreur, de plus .text n'apparait pas en bleu (bizare ca). une autre idée peu etre

Merci.
06/03/2007, 19h01
ouskel'n'or

En effet, tu écris

Citation:

With Worksheets("liste")

Ton userform n'est pas dans la liste.
C'est quoi cette liste ?
06/03/2007, 19h05
ludo02

Citation:

With Worksheets("liste")

liste est une feuille ecxel ou j'envoie les info pour les stocker.

Alors instancie ta feuille et utilise l'instance
Set Fl = Worksheets("liste")

Code:

1
2
3
4
5
6
7
8
9
10
        'on attribue la civilite suivant le choix de l'utilisateur
        If obmr Then
            Fl.Cells(i, 1) = "Mr"
        ElseIf obmme Then
            Fl.Cells(i, 1) = "Mme"
        ElseIf obmlle Then
            Fl.Cells(i, 1) = "Melle"
        Else
            Fl.Cells(i, 1) = ""
        End If

Si tu fais With... et qu'ensuite tu mets un objet (ici l'userform) VBA considère qu'il fait partie de l'objet dans lequel tu l'as placé (ici la feuille) ;)
A+

Mo code ressemble maintenant a ca

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Set Fl = Worksheets("liste")
 
        'on attribue la civilite suivant le choix de l'utilisateur
        If obmr Then
            Fl.Cells(i, 1) = "Mr"
        ElseIf obmme Then
            Fl.Cells(i, 1) = "Mme"
        ElseIf obmlle Then
            Fl.Cells(i, 1) = "Melle"
        Else
            Fl.Cells(i, 1) = ""
        End If
 
        'on stock les données sur une feuile de calcul
        Fl.Cells(i, 2) = UCase(UserForm4.txtnom.Text)
        Fl.Cells(i, 3) = UCase(UserForm4.txtprenom.Text)
        Fl.Cells(i, 4) = UserForm4.txtmat
        Fl.Cells(i, 5) = UserForm4.txtcle
        Fl.Cells(i, 6) = UserForm4.txtnni
        Fl.Cells(i, 7) = UserForm4.txtcontrat
        Fl.Cells(i, 8) = UserForm4.txttel
        Fl.Cells(i, 9) = UserForm4.txtunite

et toujour mon message d'erreur

au fait ca marché tout a l'heure sur le PC du boulot. ecxel 2000 je croit

06/03/2007, 23h34
AlainTech

Vérifie si tu n'as pas une référence manquante.

Si oui, tu la décoches.