Discussion :

[IronHeavy]

Bonjour à tous,

Je rencontre une problématique de décalage entre une Textbox (alimentée par un CommandButton) et une Combobox associée:

Le fonctionnement:

j'ai créé un formulaire "A" regroupant 18 CommandButton - 1 par secteur d'activités [1].



En cliquant sur l'un de ces CommandButton, j'ouvre un second formulaire "B" contenant (entre autres) :
- une Textbox1 contenant le nom du secteur d'activité (rempli au clic du CommandButton du formulaire A) [2];
- une ComboBox1 listant des situations de danger relatives au secteur d'activité concerné [3].




L'objectif

Une fois le secteur d'activité sélectionné, je souhaite que la liste des situations dangereuses de ce secteur apparaisse dans la Combobox pour pouvoir les modifier, actualiser, voire supprimer.

Une fois validées ou modifiées [4], les informations contenues dans les Textbox (es) sont transférées dans le fichier Excel à la PAGE (secteur d'activité) et la LINE (n° de situation dangereuse) attendues [5].



Le problème:

Lorsque je change de secteur d'activité, la Combobox garde en mémoire la liste des situations dangereuses du secteurs précédemment sélectionné! Je suis forcé de retourner à la sélection des secteurs, de re-sélectionnner le secteur souhaité pour que la liste s'actualise!

Ma question :

Ou est ce que le bât blesse?

Comment remédier à ce soucis?

[riaolle]

Bonjour,
Difficile de t'aider sans le code ...
Quand est-ce que la combobox est alimentée dans ton code actuel ? Quel evenement (clic, changement d'une textbox/combobox...) devrait entraîner sa modification ?

[paul_thms]

copie colle les macros des commandbouton (lors de l'évènement clic) dans ta textbox (lors de l'évènement changement de texte) en vérifiant de quel secteur il s'agit puis la macro concernée se lancera remplissant ainsi ta combobox comme si tu venais de cliquer sur un commandbouton.

Ex : tu écris "sanitaires" dans ta textbox et il ira chercher la macro qui correspond à cela comme si tu venais de cliquer sur le commandbouton "sanitaires".

Code :

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

1
2
3
If textbox="sanitaires" then 
'macro du commandbouton sanitaires
ElseIf texbox="vitrerie" then ......

[mjpmjp]

bonjour,

Lorsque je change de secteur d'activité, la Combobox garde en mémoire la liste des situations dangereuses du secteurs précédemment sélectionné!

combobox.clear

@+JP

[IronHeavy]

Bonjour à tous les 3, merci de vos réponses.

@ riaolle: ci joint les codes des différentes étapes:

1) ouverture du formulaire B par clic sur CommandButton du secteur concerné + affichage du nom de ce secteur en TextBox1:

Code :

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

1
2
3
4
5
6
Private Sub CVitrerie_Click()
FIDENTIFICATION.Show
FSECTORISATION.Hide
FIDENTIFICATION.TextBox1 = "VITRERIE"
Sheets("VITRERIE").Activate
End Sub

2) La Combobox1 s'alimente depuis la propriété RowSource, dépendant de la page de référence du secteur choisi

S9:S1000

3) alimentation des TextBoxes du formulaire B selon le n° d'identification de la situation dangereuse listé dans la Textbox.

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
Private Sub ComboBox1_Click()
   Set f = Sheets(Me.TextBox1.Text)
   ligne = Me.ComboBox1.ListIndex + 9
    Me.TextBox4 = f.Cells(ligne, 4)
    Me.TextBox5 = f.Cells(ligne, 5)
    Me.TextBox6 = f.Cells(ligne, 6)
    Me.TextBox7 = f.Cells(ligne, 7)
    Me.TextBox8 = f.Cells(ligne, 8)
    Me.TextBox9 = f.Cells(ligne, 9)
    Me.TextBox10 = f.Cells(ligne, 10)
    Me.TextBox11 = f.Cells(ligne, 11)
    Me.TextBox12 = f.Cells(ligne, 12)
    Me.TextBox14 = f.Cells(ligne, 14)
    Me.TextBox15 = f.Cells(ligne, 15)
    Me.TextBox16 = f.Cells(ligne, 16)
    Me.TextBox17 = f.Cells(ligne, 17)
 End Sub

@ paul_thms: en gros tu me suggère de "doubler" la consigne pour qu'en 1 clic, l'action soit répétée automatiquement?

@ mjpmjp: j'ai essayé de l'intégrer (combobox.clear) à l'ouverture du UserForm, mais sans effet, je ne sais pas où placer pour que cela fonctionne?

[mjpmjp]

bonjour,

Code :

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

 Me.ComboBox1.Clear

à l'ouverture / activation du form ou juste avant d'écrire dans combobox

@+JP

[IronHeavy]

@ mjpmjp

plusieurs tentatives, aucune ne fonctionne, parfois message d'erreur "non répertoriée".

Je pense que c'est à cause de la propriété RowSource qui est renseignée (S9:S1000), je ne sais pas encore comment incrémenter une RowSource "manuellement".

Je cherche dans ce sens et reviens vers vous!

merci

[mjpmjp]

bonjour,



j'ai nommé le combo : "Combo1"

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
 
Sub Bouton1_Cliquer()
    Call InitCombo1(1)
End Sub
 
Sub Bouton2_Cliquer()
    Call InitCombo1(2)
End Sub
 
Private Sub InitCombo1(Secteur As Integer)
    ActiveSheet.Shapes("Combo1").Select
    With Selection
        .LinkedCell = "K11"
        .DropDownLines = 26
        .Display3DShading = False
        Select Case Secteur
            Case 1 'Secteur1
                .ListFillRange = "$S$9:$S$34"
            Case 2 'Secteur2
                .ListFillRange = "$T$9:$T$34"
            Case Else
                .ListFillRange = "$S$8:$T$8"
        End Select
    End With
    Range("k8").Select
End Sub
 
Sub Combo1_QuandChangement()
 
End Sub

perso , je n'aime pas travaillé avec des controls formulaire,
je préfère largement les active X

@+JP