Discussion :

[Smox78]

Bonjour à tous !


Voila, je dois faire un formulaire type "annuaire" et je bloque dans les comboBox..



Ma combo 2 est celle du nom, la 3 celle du prénom et la 5 celle du tel :




je voudrai ajouter la fonction "Lcase" à mon code pour que la casse ne sois pas limité lorsque les listes des combobox se font. Mais je ne sais pas utiliser cette fonction...j'ai bien essayé mais sa marche pas comme je le voudrais...

Mon "soft" (même très soft) pour l'instant tient compte des majuscules entrée sur ma feuille excel, quand je tape une minuscule en début de nom ou prénom dans le formulaire aucun résultat n'est listé.

Pourriez vous m'aider ?

voila la partie de mon code concerné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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
 
Private Sub ComboBox2_afterupdate()                                         'nom
 
Worksheets("Feuil1").Activate
Cells(2, 4).Select
X = 2
Me.ComboBox5.Clear
 
Do While (Cells(X, 4).Value) <> ""
    If ComboBox3.Value = "" Then
            If (Cells(X, 4).Value) = ComboBox2.Value Then
                ActiveCell.Offset(0, 1).Activate
                    Me.ComboBox3 = ActiveCell.Value
                    If Me.ComboBox3.ListIndex = -1 Then
                        Me.ComboBox3.AddItem ActiveCell.Value
                        Me.ComboBox3 = ""
                    End If
                ActiveCell.Offset(0, -1).Activate
            End If
        X = X + 1
        ActiveCell.Offset(1, 0).Activate
    Else
            If (Cells(X, 5).Value) = ComboBox3.Value And (Cells(X, 4).Value) = ComboBox2.Value Then
                ActiveCell.Offset(0, 3).Activate
                Me.ComboBox5 = ActiveCell.Value
                    If Me.ComboBox5.ListIndex = -1 Then
                        Me.ComboBox5.AddItem ActiveCell.Value
                        Me.ComboBox5 = ""
                    End If
                ActiveCell.Offset(0, -2).Activate
                Me.ComboBox3 = ActiveCell.Value
                    If Me.ComboBox3.ListIndex = -1 Then
                        Me.ComboBox3.AddItem ActiveCell.Value
                        Me.ComboBox3 = ""
                    End If
                ActiveCell.Offset(0, -1).Activate
            End If
        X = X + 1
        ActiveCell.Offset(1, 0).Activate
    End If
Loop
 
End Sub
 
Private Sub ComboBox3_afterupdate()                                         'prenom
 
Worksheets("Feuil1").Activate
Cells(2, 5).Select
X = 2
 
Do While (Cells(X, 5).Value) <> ""
    If ComboBox2.Value = "" Then
        If (Cells(X, 5).Value) = ComboBox3.Value Then
                ActiveCell.Offset(0, 2).Activate
                Me.ComboBox5 = ActiveCell.Value
                    If Me.ComboBox5.ListIndex = -1 Then
                        Me.ComboBox5.AddItem ActiveCell.Value
                        Me.ComboBox5 = ""
                    End If
                ActiveCell.Offset(0, -3).Activate
                Me.ComboBox2 = ActiveCell.Value
                    If Me.ComboBox2.ListIndex = -1 Then
                        Me.ComboBox2.AddItem ActiveCell.Value
                        Me.ComboBox2 = ""
                    End If
                ActiveCell.Offset(0, 1).Activate
            End If
        X = X + 1
        ActiveCell.Offset(1, 0).Activate
    Else
            If (Cells(X, 5).Value) = ComboBox3.Value And (Cells(X, 4).Value) = ComboBox2.Value Then
                ActiveCell.Offset(0, 2).Activate
                Me.ComboBox5 = ActiveCell.Value
                    If Me.ComboBox5.ListIndex = -1 Then
                        Me.ComboBox5.AddItem ActiveCell.Value
                        Me.ComboBox5 = ""
                    End If
                ActiveCell.Offset(0, -3).Activate
                Me.ComboBox2 = ActiveCell.Value
                    If Me.ComboBox2.ListIndex = -1 Then
                        Me.ComboBox2.AddItem ActiveCell.Value
                        Me.ComboBox2 = ""
                    End If
                ActiveCell.Offset(0, 1).Activate
            End If
        X = X + 1
        ActiveCell.Offset(1, 0).Activate
    End If
Loop
 
End Sub

Merci d'avance à tous !

[fring]

Bonjour,

Pense à regarder dans ton aide --> F1 --> taper LCase

[Smox78]

j'ai déja regardé, je vois pas comment utiliser cette fonction...elle est pas très détaillé dans l'aide :/

[fring]

bin...il n'y a pas besoin d'écrire un roman sur cette fonction non plus

Code :

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

1
2
3
4
Dim avant As String, apres As String
avant = "Mon Texte Que Je Voudrais Transformer"
apres = LCase(avant)
Msgbox apres '<-- résultat = mon texte que je voudrais transformer

[ucfoutu]

j'ai déja regardé, je vois pas comment utiliser cette fonction...elle est pas très détaillé dans l'aide :/

Plait-il ?

je ne vois vraiment pas ce qu'il y aurait à détailler ! pas plus que je ne vois comment détailler que 2 fois 2 = 4 !!!...
Et ce d'autant que l'exemple qui vient avec est on ne pourrait plus explicite !
Où est le problème ?