Décalage entre Combobox et Textbox

Version imprimable

19/06/2017, 12h20
IronHeavy

3 pièce(s) jointe(s)

Décalage entre Combobox et Textbox

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

Pièce jointe 286775

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].
Pièce jointe 286778

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

Pièce jointe 286781

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?
19/06/2017, 13h29
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 ?
19/06/2017, 16h11
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:

1 2 3 If textbox="sanitaires" then 'macro du commandbouton sanitaires ElseIf texbox="vitrerie" then ......
20/06/2017, 08h58
mjpmjp

bonjour,

Citation:

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

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:

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:

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?

20/06/2017, 18h15
mjpmjp

bonjour,

Code:

Me.ComboBox1.Clear

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

@+JP
21/06/2017, 09h14
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

1 pièce(s) jointe(s)

bonjour,

Pièce jointe 287650

j'ai nommé le combo : "Combo1"

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
 
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, :furieux:
je préfère largement les active X ;)

@+JP