Changer le texte de combo box avec des variables

**Tempus01** · 14/02/2023, 11h53

Bonjour le Forum,

je souhaite changer le texte de Combobox avec des données qui sont stockées dans des variables.

En gros je souhaite un peu faire comme Excel," je change de page en cliquant sur un RadioButton", en mettant les données de chaque Combobox dans des variables.
Le code fonctionne mais que pour une seule des combobox à la fois, il faut qu'une des combobox reste avec sa première entrée, c'est vraiment étrange.

Voici mon code.

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
    If RadioButtonG1.Checked = True Then 'Page 1
            S1COMBOG1 = S1COMBO.Text
            S1COMBOG1 = S2COMBO.Text
        End If
                If RadioButtonG2.Checked = True Then 'Page 2
                      S1COMBOG2 = S1COMBO.Text
            S2COMBOG2 = S2COMBO.Text      
        End If 
 
 Private Sub RadioButtonG1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButtonG1.CheckedChanged
                If RadioButtonG1.Checked = True And RadioButtonG2.Checked = False Then
            S1COMBO.Text = S1COMBOG1
            S2COMBO.Text = S2COMBOG1
        End If
 
        If RadioButtonG2.Checked = True And RadioButtonG1.Checked = False Then
                S1COMBO.Text = S1COMBOG2
                S2COMBO.Text = S2COMBOG2
            End If
 
    End Sub
 
    Private Sub RadioButtonG2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButtonG2.CheckedChanged
            If RadioButtonG1.Checked = True Then
            S1COMBO.Text = S1COMBOG1
            S2COMBO.Text = S2COMBOG1
        End If
 
        If RadioButtonG2.Checked = True  Then
                S1COMBO.Text = S1COMBOG2
                S2COMBO.Text = S2COMBOG2
        End If
 
    End Sub

Merci pour votre aide.

**Phil Rob** · 14/02/2023, 13h49

Bonjour,

N'y a-t-il pas erreur de nom de variable dans ton code : SCOMBOG1 = S2COMBO.Text.

Note que si tu obtiens ce que tu veux avec un Combo mais pas avec l'autre, c'est que les algorithmes sont différents, sans doute par erreur.

J'espère que ceci te donnera l'idée ...

**Tempus01** · 14/02/2023, 14h19

Bonjour Phil Rob,

"N'y a-t-il pas erreur de nom de variable dans ton code : SCOMBOG1 = S2COMBO.Text."

J'ai oublié le chiffre en recopiant le code lors du post.

"Note que si tu obtiens ce que tu veux avec un Combo mais pas avec l'autre, c'est que les algorithmes sont différents, sans doute par erreur"

Les deux Combobox fonctionnent mais pas ensemble, pour le moment si S1COMBO affiche le 1er élément de la liste alors S2COMBO affichera bien la donnée dans la variable, et si S2COMBO affiche le 1er élément de la liste alors S1COMBO affichera bien la donnée dans la variable.

C'est comme ci la combobox gardait le focus, je trouve cela étrange.

**Phil Rob** · 14/02/2023, 15h09

Je ne suis pas sûr de bien comprendre ce que tu veux obtenir

Je vais faire un test en plaçant ton code dans un Form pour voir ce que ça donne....

Qu'y a-t-il dans les listes des Combo avant d'exécuter le code ?

**Tempus01** · 14/02/2023, 15h19

ok, merci
Voici ce qu'il y a dans les listes des Combo

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
        S1COMBO.Items.Add("---")
        S1COMBO.Items.Add("Essai1")
        S1COMBO.Items.Add("Essai2")
        S1COMBO.Items.Add("Essai3")
        S1COMBO.Items.Add("Essai4")
        S1COMBO.Items.Add("Essai5")
        S1COMBO.Items.Add("Essai6")
        S1COMBO.Items.Add("Essai7")
        S1COMBO.Items.Add("Essai8")
        S1COMBO.Items.Add("Essai9")
        S1COMBO.Items.Add("Essai10")
        S1COMBO.Items.Add("Essai11")
        S1COMBO.Items.Add("Essai12")
 
 
        S2COMBO.Items.Add("---")
        S2COMBO.Items.Add("Essai1")
        S2COMBO.Items.Add("Essai2")
        S2COMBO.Items.Add("Essai3")
        S2COMBO.Items.Add("Essai4")
        S2COMBO.Items.Add("Essai5")
        S2COMBO.Items.Add("Essai6")
        S2COMBO.Items.Add("Essai7")
        S2COMBO.Items.Add("Essai8")
        S2COMBO.Items.Add("Essai9")
        S2COMBO.Items.Add("Essai10")
        S2COMBO.Items.Add("Essai11")
        S2COMBO.Items.Add("Essai12")

**Tempus01** · 14/02/2023, 15h23

Je souhaite que lorsque l'utilisateur appuie sur RadioButtonG1 ou RadioButtonG2 les comboBox "S1COMBO et S2COMBO"se remplissent avec le texte qui est dans la variable

Voici ou les variables sont placées

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
Private Sub S1COMBO_SelectedIndexChanged(sender As Object, e As EventArgs) Handles S1COMBO.SelectedIndexChanged
 
 If RadioButtonG1.Checked = True Then 'Page 1
            S1COMBOG1 = S1COMBO.Text
            S1COMBOG1 = S2COMBO.Text
        End If
                If RadioButtonG2.Checked = True Then 'Page 2
                      S1COMBOG2 = S1COMBO.Text
            S2COMBOG2 = S2COMBO.Text      
        End If 
 
End Sub
 
Private Sub S2COMBO_SelectedIndexChanged(sender As Object, e As EventArgs) Handles S2COMBO.SelectedIndexChanged
 
 If RadioButtonG1.Checked = True Then 'Page 1
            S1COMBOG1 = S1COMBO.Text
            S1COMBOG1 = S2COMBO.Text
        End If
                If RadioButtonG2.Checked = True Then 'Page 2
                      S1COMBOG2 = S1COMBO.Text
            S2COMBOG2 = S2COMBO.Text      
        End If 
 
End Sub

**Phil Rob** · 14/02/2023, 16h21

Ceci ne te convient pas ? Seul ce code, fait ce que tu demandes.

Code :

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

1
2
3
4
5
6
7
8
    Private Sub S1_S2_COMBO_SelectedIndexChanged(sender As Object, e As EventArgs) Handles S1COMBO.SelectedIndexChanged, S2COMBO.SelectedIndexChanged
 
        Dim Tmp As String
        Tmp = S1COMBO.Text
        S1COMBO.Text = S2COMBO.Text
        S2COMBO.Text = Tmp
 
    End Sub

En fait, l'utilisation des RadioButton est une difficulté car le Check de l'un provoque automatiquement le Dé-Check de l'autre.
D'autre part, je ne comprends pas l'utilisation de 4 variables car je crois qu'il y a au plus 2 valeurs à stocker à un moment. Dans le code ci-dessus, j'utilise seulement une variable pour échanger 2 données.

Si l'action de l'utilisateur sur les RadioButton doit servir "d'ordre'" d'agir, des CheckBox seraient sans doute plus faciles dès lors que c'est le programme qui déterminera quand Checker ou Dé-Checker, il n'y a pas de contrôle automatique entre les différents CheckBox. De plus, un seul CheckBox ferait l'affaire : il est Checké ou pas, soit 2 états. Cela marcherait aussi avec un seul RadioButton, mais avec 2 ...

**Tempus01** · 14/02/2023, 16h44

Merci pour votre code,

Je vais essayer d'être plus clair, les RadioButton sont là juste pour changer de page

par exemple,
Sur la page 1 la ComboBox "S1COMBO" affiche essai1 et la ComboBox "S2COMBO" affiche essai3 , sur la page 2 la ComboBox "S1COMBO" affiche essai5 et la ComboBox "S2COMBO" affiche essai7, si l'utilisateur appui sur l'une ou l'autre des ComboBox il retrouve ce qu'il a saisi.

**Phil Rob** · 14/02/2023, 17h40

Mais ce doit-il obligatoirement être des RadioButton ? Cela ne peut-il être des CheckBox ou même de simples Button ?

Autre question, tu écris Page 1, Page 2 : s'agit-il de Form différents ?

**Tempus01** · 14/02/2023, 17h55

"Mais ce doit-il obligatoirement être des RadioButton ? Cela ne peut-il être des CheckBox ou même de simples Button ?"
Non pas forcement, ma 1er idée a été de placer des labels notifier page1 et page2 avec un trait qui était positionnait sous ces labels suivant le click de l'utilisateur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If Selectionpage1.Location = New Point(11, 720) Then
 
S1COMBOG1 = S1COMBO.Text
S1COMBOG1 = S2COMBO.Text
 
ElseIf Selectionpage2.Location = New Point(76, 720) Then
 
S1COMBOG2 = S1COMBO.Text
S2COMBOG2 = S2COMBO.Text
 
End if

"Autre question, tu écris Page 1, Page 2 : s'agit-il de Form différents ?"
Non il n'y a pas d'autre Form.

**umfred** · 14/02/2023, 17h57

Si je comprends bien.
1-RadioButtonG1 est checked => page1, l'utilisateur fait son choix dans les combobox
2-Si on clique sur le RadioButtonG2 => page2, on sauvegarde le choix des combobox précédents (page1), et on met les valeurs sauvegardées pour cette page 2 (initialement, on pourrait dire "" et "" par exemple)
3-Si on reclique sur RadioButtonG1 => page1, on sauvegarde le choix des combobox page2 et on met les valeurs sauvegardées de la page 1 (en 2)

Il vaut mieux enregistrer le SelectedIndex et le remettre, le texte du combo n'est un bon choix: le texte change, mais l'index non (de mémoire), d'où le comportement que tu observe (si j'ai bien compris).

Mais je ne suis pas sûr que ce soit la meilleur façon de gérer des pages, il vaut mieux utiliser des TabPages quitte à copier/coller les contrôles, comme ça pas besoin de gérer/mémoriser les choix au changement de page.

**Tempus01** · 14/02/2023, 18h19

"1-RadioButtonG1 est checked => page1, l'utilisateur fait son choix dans les combobox"
Oui, c'est ça

"2-Si on clique sur le RadioButtonG2 => page2, on sauvegarde le choix des combobox précédents (page1), et on met les valeurs sauvegardées pour cette page 2 (initialement, on pourrait dire "" et "" par exemple)
3-Si on reclique sur RadioButtonG1 => page1, on sauvegarde le choix des combobox page2 et on met les valeurs sauvegardées de la page 1 (en 2)"
exactement,

"Il vaut mieux enregistrer le SelectedIndex et le remettre, le texte du combo n'est un bon choix: le texte change, mais l'index non (de mémoire), d'où le comportement que tu observe (si j'ai bien compris).

Mais je ne suis pas sûr que ce soit la meilleur façon de gérer des pages, il vaut mieux utiliser des TabPages quitte à copier/coller les contrôles, comme ça pas besoin de gérer/mémoriser les choix au changement de page."

Cela fonctionne aussi "avec le même problème" avec SelectIndex ou "item" avec cette méthode l'utilisateur n'a pas la possibilité de nommer comme il le souhaite une nouvelle entrée dans les Combobox S1COMBO ou S2COMBO
Pour les TabPages, je les utilise déja pour d'autres données.

**Phil Rob** · 14/02/2023, 18h24

Je te propose d'examiner cette solution avec CheckBox. Elle n'est pas de programmation optimale, mais elle permet de comprendre ce qu'on fait

Voici mon projet de test pour que tu puisses travailler directement dessus : Tempus.zip

Voici le code et l'illustration du Form :

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
Public Class Form1
 
    Dim EchangeDemande As Integer ' 0 = aucun, 1 = CB1 vers CB2; 2 = CB2 vers CB1
 
    ' Pour connaitre ce que veux l'utilisateur, définir EchangeDemande
    Private Sub CHKBox_Click(sender As Object, e As EventArgs) Handles CHK_1.Click, CHK_2.Click
        Dim CHK As String = sender.Name
        Select Case CHK
            Case "CHK_1"
                If CHK_1.Checked Then
                    CHK_2.Checked = False
              End If
                EchangeDemande = 1
            Case "CHK_2"
                If CHK_2.Checked Then
                    CHK_1.Checked = False
               End If
                EchangeDemande = 2
            Case Else
                EchangeDemande = 0
        End Select
    End Sub
 
    Private Sub S1COMBO_SelectedIndexChanged(sender As Object, e As EventArgs) Handles S1COMBO.SelectedIndexChanged
        Select Case EchangeDemande
            Case 0 ' Ne rien faire
            Case 1 ' CB1 vers CB2
                S2COMBO.Text = S1COMBO.Text
            Case 2 ' CB2 vers CB1
                ' Sans doute pas de sens à partir de CB1, mais s'il le fallait, ce serait :
                ' S1COMBO.Text = S2COMBO.Text
        End Select
    End Sub
 
    Private Sub S2COMBO_SelectedIndexChanged(sender As Object, e As EventArgs) Handles S2COMBO.SelectedIndexChanged
        Select Case EchangeDemande
            Case 0 ' Ne rien faire
            Case 1 ' CB1 vers CB2
                ' Sans doute pas de sens à partir de CB1, mais s'il le fallait, ce serait :
                ' S2COMBO.Text = S1COMBO.Text
            Case 2 ' CB2 vers CB1
                S1COMBO.Text = S2COMBO.Text
        End Select
    End Sub
 
    ' Jeu de test
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '   Valeurs test dans les Combo
        S1COMBO.Items.Add("S1COMBO_Orig_1")
        S1COMBO.Items.Add("S1COMBO_Orig_2")
        S1COMBO.Items.Add("S1COMBO_Orig_3")
        S2COMBO.Items.Add("S2COMBO_Orig_1")
        S2COMBO.Items.Add("S2COMBO_Orig_2")
        S2COMBO.Items.Add("S2COMBO_Orig_3")
        S1COMBO.SelectedText = S1COMBO.Items(0)
        S2COMBO.SelectedText = S2COMBO.Items(0)
    End Sub
 
End Class

Nom : Tempus.jpg
Affichages : 109
Taille : 31,3 Ko

Dernière minute : je viens de lire ... Il s'agit donc de TabPage ...

, mais ça ne change rien à la logique des choix et sélections de l'utilisateur.

Après dernière minute : il faut enlever les 2 références à CHK_3 dans mon code, ce CHK n'existe pas.

**Phil Rob** · 15/02/2023, 07h51

Bonjour,

Une idée qui m'est venue pendant la nuit ...

Elle vient sans doute trop tard si ton projet est abouti et subit seulement quelques améliorations. Mais si ce projet est en cours d'élaboration, cela vaut la peine de penser au DataTable.

Voilà, je suppose que tous les ComboBox concernés par ta question contiennent la même liste de données. Simplement, tu veux que la sélection dans un des Combos, sur l'une des pages, soit aussi la sélection "par défaut" d'un autre Combo, sur une autre page.
S'il en est bien ainsi, le DataTable apporterait une grande facilité, il n'y aurait aucun besoin d'affecter "manuellement" le Combo de destination. Il suffirait que tous ces Combos présentant le même jeu de données soient liés à un même DataTable, celui contenant ces données. La sélection d'une donnée dans un des Combos la sélectionnerait automatiquement dans tous les Combo.

Le DataTable "rempli" avec les données, la liaison aux Combos se fait par :

Code :

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

1
2
3
4
S1COMBO.DataSource = LeDataTable
S2COMBO.DataSource = LeDataTable
S3COMBO.DataSource = LeDataTable
' ... ... ...

...

**Tempus01** · 15/02/2023, 09h56

Bonjour Phil Rob,

Le Select Case est une très bonne idée, cela va réduire un peut le code.

"Elle vient sans doute trop tard si ton projet est abouti et subit seulement quelques améliorations"
Oui, le projet est "normalement" terminé, mais il arrive que des l'utilisateurs demandent des améliorations

Voilà, je suppose que tous les ComboBox concernés par ta question contiennent la même liste de données"
Non, le Form contient d'autres Combo avec des listes différentes et pour la plupart l'utilisateur à la possibilité de rentrer des données qui sont hors de la liste initial.

Sinon, cette nuit j'ai compris d'où venait le problème, sous les RadioButton ou "autres" il ne faut mettre que ce qui le concerne, et là les variables sont bien prisent en compte, mais maintenant j'ai un autre problème qui est apparu, le texte que l'utilisateur renseigne dans les combos ne s'enregistre plus dans la variable, cela fait apparaitre la 1er entrée de la liste à la place....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Private Sub RadioButtonG1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButtonG1.CheckedChanged
 
        If RadioButtonG1.Checked = True Then
            S1COMBO.Text = S1COMBOG1
            S2COMBO.Text = S2COMBOG1
        End If
End Sub
 
  Private Sub RadioButtonG2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButtonG2.CheckedChanged
               If RadioButtonG2.Checked = True Then
            S1COMBO.Text = S1COMBOG2
            S2COMBO.Text = S2COMBOG2
        End If
End Sub

je vais maintenant incorporer le Select Case dans le code, et je verrais pour l'autre problème après.

Un grand merci à toi Phil Rob comme d'habitude tes réponses sont d'une grande aide

**umfred** · 15/02/2023, 10h58

Dans ton code, tu ne sauvegardes pas les données des combobox avant de les modifier.

**Phil Rob** · 15/02/2023, 12h06

Bien bien ...

Puisque tu as trouvé le problème qui t'encombrait, je te laisse ...

Mais j'insiste sur un détail. L'usage des RadioButton pour cette gestion est un "supplice" intellectuel, en tout cas avec l'événement CheckChanged.
Un seul CheckBox (Coché = je passe la valeur à l'autre page, Non coché = je NE passe PAS la valeur à l'autre page) doit suffire.
Selon ce raisonnement, un seul RadioButton doit suffire également.

S'il y a plusieurs RadioButton, il y a "supplice", parce que dans ton code tu as besoin d'un seul événement pour t'indiquer s'il faut passer ou non le texte du Combo.
Or avec plusieurs RadioButton, tu as toujours 2 événements CheckChanged et nous nous y mêlons les pieds. Quand tu Check un Radio, il produit d'abord la Dé-Check du précédent avant son propre Check. Il y a donc 2 CheckChanged.
Cet inconvénient n'existe pas avec l'événement Click, par exemple.

...

**umfred** · 15/02/2023, 12h12

c'est un faux problème, tu vérifies juste qu'il est checked ou/et unchecked selon le besoin.

**Phil Rob** · 15/02/2023, 12h28

@umfred
N'empêche que tu entres dans plusieurs procédures événementielles là où une seule devrait suffire. Ce n'est pas un faux problème pour tout le monde et c'est toujours un traitement redondant.
...