Discussion :

[boldair67]

Bonjour à tous,

Cela fait quelque temps que je me casse la tête avec ce petit souci et je n'arrive pas à trouver la solution dans les TUTO, Forum etc...

C'est un COMBOBOX avec 3 colonnes qui se situe sur un USF
Le COMBOBOX est renseigné par la méthode ROWSOURCE (Feuillxxx!B2:D50)
Le COMBOBOX fonctionne très bien à partir de toutes les procédures/évènements qui sont inscrits sur USF.
Dans l'USF

Code :

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

1
2
3
.Cells(RecordNumber, 17) = Me.Livraison.Column(0)
.Cells(RecordNumber, 18) = Me.Livraison.Column(1)
.Cells(RecordNumber, 19) = Me.Livraison.Column(2)

Par contre, dès que je passe sur un évènement/procédure qui est écrit dans un module, je n'arrive pas à récuperer les infos de ce COMBOBOX

Dans un module - UsfEintrag = le nom de USF // Livraison = Nom du COMBOBOX

Code :

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

1
2
3
Adresse = UsfEintrag.Livraison.Column(0)
rue = UsfEintrag.Livraison.Column(1)
ville = UsfEintrag.Livraison.Column(2)

J'ai essayé tout plein de trucs, venant de l'aide, Forum, etc.. Textcolumn etc.. sans succés

Comment faire ?

[joe.levrai]

Bonjour,

sans voir tes procédures complètes, ça va pas être facile. Tu es sûr d'avoir indiqué le nombre de colonne (ColumnCount) dans les propriété du contrôle ou lors de l'initialisation du formulaire ?


voici une proposition fonctionnelle :

- un userform ne contenant qu'un contrôle : ComboBox1
- le Combo est paramétré dans l'évènement Initialize de l'userform
- à la sélection d'une valeur, on appelle une procédure située dans un module standard


Code du Userform

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox1_Change()
    Call InterrogeCombo(Me.ComboBox1, 1)
End Sub
 
Private Sub UserForm_Initialize()
    With Me.ComboBox1
        .ColumnCount = 3
        .RowSource = Cells(1, 1).CurrentRegion.Address
    End With
End Sub

Procédure du module standard

Code :

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

1
2
3
Sub InterrogeCombo(Combo As MSForms.ComboBox, Col As Integer)
    MsgBox Combo.Column(Col)
End Sub

[boldair67]

Merci pour ton implication JOE

Voici le bout de code de USF Int
shtDaten = la feuille qui contient les infos du Combobox à partir de B2

Code :

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

Dim rngad As Range

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
Private Sub UserForm_Initialize()
 
Select Case Verpackung.Value
 
        Case Is = ("Gewickelt")
            Lage.Visible = False
            VBlage.Visible = True
 
        Case Is = ("auf Stange")
            Lage.Visible = False
            VBlage.Visible = True
 
        Case Is = ("Plano (Roto5)")
            Lage.Visible = False
            VBlage.Visible = False
 
        Case Else
            Lage.Visible = True
            VBlage.Visible = True
 
End Select
 
Set rngad = shtDaten.Range("B2").CurrentRegion
 
    With Me.Adressen
        .ColumnCount = 3
        .RowSource = rngad.Address(external:=True)
    End With
 
End Sub

Voici un bout de la procedure dans USF - Entre autre mode ecriture
Lors de la validation, les données sont ecritent sur une feuille, plage définie par la valeur rng - me.Adressen = Combobox

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
Private Sub WriteRecord(ByVal RecordNumber As Long)
 ' Ecriture de l'enregistrement
 Me.cboMember.ListIndex = -1
 RecordNumber = RecordNumber + 1
 With rng
  With .Cells(RecordNumber, 1)
   If Len(.Value) = 0 Then ' ID
    .Value = Application.WorksheetFunction.Max(rng.Columns(1)) + 1
   End If
  .NumberFormat = "\A000" ' Format
  End With
 .Cells(RecordNumber, 2) = Date
 .Cells(RecordNumber, 3) = Time
 .Cells(RecordNumber, 4) = user
 .Cells(RecordNumber, 5) = Me.Auftragnr
 .Cells(RecordNumber, 6) = Me.HeftNr
 .Cells(RecordNumber, 7) = Me.Objekt
 .Cells(RecordNumber, 8) = Me.Split
 .Cells(RecordNumber, 9) = Me.Auflagegesamt
 .Cells(RecordNumber, 10) = Me.belege
 .Cells(RecordNumber, 11) = Me.Verpackung
 .Cells(RecordNumber, 12) = Me.ExVB
 .Cells(RecordNumber, 13) = Me.VBlage
 .Cells(RecordNumber, 14) = Me.Lage
 .Cells(RecordNumber, 17) = Me.Adressen.Column(0)
 .Cells(RecordNumber, 18) = Me.Adressen.Column(1)
 .Cells(RecordNumber, 19) = Me.Adressen.Column(2)
 End With
 Me.cboMember.ListIndex = CurrentRecord
End Sub

Ca va etre compliqué ....