Discussion :

[cagodue]

Bonjour,
Je ne sais pas trop comment expliquer mieux mon problème.

J'ai une feuille avec des données qui proviennent de différentes équipe de travail. J'aimerais que si c'est l'équipe 2 qui ouvre mon userform, que ce soit seulement les données que l'équipe 2 a alimenté qui soient disponible dans le combobox. J'ai essayé un petit code qui fonctionne bien pour limiter ce qu'il y a dans le combobox

(eqtri est le numéro d'équipe)

Code :

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

1
2
3
4
5
6
7
8
9
eqtri = wi.Range("A1").Value
 
    For j = 2 To ws.Range("D65536").End(xlUp).Row
          If ws.Range("B" & j) = eqtri Then
          With ComboNom
         .AddItem ws.Range("D" & j)
        End With
        End If
    Next j

Mais mon problème est celui-ci, les données qui sont alimentés dans mon userform lorsque l'on change le combobox le sont avec ce code :

Code :

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

1
2
    If Me.ComboNom.ListIndex = -1 Then Exit Sub
  Ligne = Me.ComboNom.ListIndex + 2

Donc, les choix de mon combobox ne sont plus liés avec la bonne ligne de ma feuille. J'ai essayé de faire un tri dans mon tableau avant d'Afficher mon userform mais ça ne fonctionne pas plus.

Merci

[anasecu]

Bonjour,

Donc, les choix de mon combobox ne sont plus liés avec la bonne ligne de ma feuille.

Pour cela tu peux associer ta ligne dans le combo sur la seconde colonne (la première est index 0)

Code :

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

1
2
         .AddItem ws.Range("D" & j)
         .List(.ListCount - 1, 1) = j

ensuite pour l'utiliser :

Code :

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

Ligne = Me.ComboNom.List(Me.ComboNom.ListIndex, 1)

[rvtoulon]

Bonjour,
sur le même principe que ma réponse sur ton autre discussion:

une liste de validation, pour l'exemple cellule E6 de la Feuil1, une sélection dans la liste ouvre le userform:


le code pour détecter le changement de valeur sélectionnée dans la liste à mettre dans la partie code de la sheets:

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal target As Range)
If target.Address = [E6].Address And [E6].Value <> "" Then
    UserForm1.Show
End If
End Sub

code de l'userform1:

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
Private Sub UserForm_Initialize()
Dim NumEquip As String, i As Integer, fin As Integer
 
Me.Label1.Caption = ""
 
With Sheets("Feuil1")
    NumEquip = .Range("E6").Value
   fin = .Range("E" & Rows.Count).End(xlUp).Row
 
   If .Range("E6") <> "" Then
        Me.Label1.Caption = NumEquip
 
        For i = 10 To fin
            If .Range("E" & i).Value = NumEquip Then
                Me.ComboBox1.AddItem (.Range("E" & i).Offset(0, 1).Value)
            End If
        Next i
 
    Else: Exit Sub
 
    End If
End With
End Sub

donc ici à chaque fois qu'on va faire un choix dans la liste de validation l'userform va s'ouvrir et afficher dans le combo les items correspondants.
c'est bien sûr un exemple à adapter à ton cas.