Discussion :

[ludo02]

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

[ouskel'n'or]

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

Code :

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

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

A+

[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.

[ouskel'n'or]

En effet, tu écris

With Worksheets("liste")

Ton userform n'est pas dans la liste.
C'est quoi cette liste ?

[ludo02]

With Worksheets("liste")

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

[ouskel'n'or]

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

Code :

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

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+