Discussion :

[DeathLighT]

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 :

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

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

[Theze]

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 :

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

[DeathLighT]

Bonjour,

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

Cordialement, Jérôme D