VBA TextBox précomplétée sur choix Combobox

Version imprimable

01/02/2013, 10h46
DeathLighT

VBA TextBox précomplétée sur choix Combobox
Bonjour à tous,

1° février, document encore en développement, je peaufine toujours pour uniformiser.

J'ai deux ComboBox qui indique le service et le Site de traitement, et dans une TextBox, le log anonyme du Conseiller.

Nous avons actuellement deux centres de gestion, et d'autres centres dont la saisie est "libre"

Le variable de saisie des log anonymes n'est que de quelques lettres.
En condition, celà indiquerait :
Si le service est N2, et que le centre est Lens, alors la TextBox se complète par "Ac-Num-O " et le Conseiller saisit les deux lettres.
si le service est N1, et que le centre est Le Havre, alors la TextBox se complète par "Ac-Nun-Open-" et le Conseiller saisit les deux lettres.

Mon problème est le suivant : Je ne sais pas comment intégrer deux conditions (Service et Site), et mes tentatives pour afficher une pré-saisie dans la TextBox sont infructueuses. Ca ne provoque pas d'erreur, mais le résultat escompté ne se produit pas non plus...

Voici le code que j'utilise actuellement :
Code:

1 2 3 4 5 6 Private Sub Log_Anonyme_Change() If Me.service.Value = "Lens" Then Log_Anonyme.Value = "Ac-Nun-O " Me.Log_Anonyme.SetFocus End If End Sub
Comme cité dans mes requêtes, c'est la première fois que je programme, et les machines à mon travail sont plutôt "limitées".

Cordialement, Jérôme D

Bonjour,

Une piste pour l'exemple avec 2 services et 2 villes. Un ComboBox s'appelle "CmbCentre" et l'autre "CmBService", adapte de même que les codes non indiqués dans ton post :

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
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
 
Private Sub CmbCentre_Click()
 
    PreRemplir
 
End Sub
 
Private Sub CmBService_Click()
 
    PreRemplir
 
End Sub
 
Sub PreRemplir()
 
    With TextBox1
 
        'donne le focus au textbox
        .SetFocus
 
        'cas du ComboBox "Service"
        Select Case CmBService.Text
 
            Case "N1"
 
                'case du ComboBox "Centre"
                Select Case CmbCentre
 
                    Case "Lens" 'service N1 et Lens...
 
                        .Text = "Ici le code pour N1 et Lens"
                        .SelStart = Len(TextBox1.Text) 'mets le curseur en fin de texte
 
                    Case "Le Havre" 'service N1 et Le Havre...
 
                        .Text = "Ac-Nun-Open-"
                        .SelStart = Len(TextBox1.Text)
 
                End Select
 
            Case "N2"
 
                Select Case CmbCentre
 
                    Case "Lens" 'service N2 et Lens...
 
                        .Text = "Ac-Num-O "
                        .SelStart = Len(TextBox1.Text)
 
                    Case "Le Havre" 'service N2 et Le Havre...
 
                        .Text = "Ici le code pour N2 et Le Havre"
                        .SelStart = Len(TextBox1.Text)
 
                End Select
 
        End Select
 
    End With
 
End Sub

Hervé.

25/02/2013, 12h52
DeathLighT

Bonjour,

Désolé pour le retard, merci pour cette réponse, ce bout de code fonctionne à merveille ;-)

Cordialement, Jérôme D