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

voila mon code VBA sous exel

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
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 : 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
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