XL 2019 ComboBox qui affiche seulement certaines lignes d'une feuille

[cagodue]

Bonjour,

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)

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 :

    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

 

[patricktoulon]

Bonjour
il te faut une colonne masqué dans la combo dans le quel tu mettra l'index de ligne

eqtri = wi.Range("A1").Value
With ComboNom
    .ColumnCount = 2
    columwidths = "100;0"
    For j = 2 To ws.Range(rows.count,"B").End(xlUp).Row
        If ws.Range("B" & j) = eqtri Then
            .AddItem ws.Range("D" & j)
            .List(.listcount - 1) = ws.Range("D" & j).Row
        End If
    Next j
End With

et dans le click sur combo

With ComboNom
    If .ListIndex = -1 Then Exit Sub
    Ligne = .List(.ListIndex, 1)
End With

 

[cagodue]

Merci beaucoup, je vais faire des tests, je ne connaissais pas.

Par contre, j'ai une erreur 1004 : Erreur définie par l'application ou l'objet. En mode débog, c'est la ligne

If ws.Range("B" & j) = eqtri Then

qui bug. Saurais-tu pourquoi ?

Encore merci

 

[patricktoulon]

re
ws est il instancié?

 

[ChTi160]

Bonjour cagodue
Bonjour Patrick
et wi. c'est quoi ,
dans :

eqtri = wi.Range("A1").Value

jean marie

 

[patricktoulon]

bien vu ChTi je n'avais pas vu moi

 

[cagodue]

re
ws est il instancié?

Dim wb As Workbook
Dim ws, wi As Worksheet
Set wb = ThisWorkbook
Set ws = wb.Sheets("Data")

Oui à moins d'une erreur pour Worksheet (car il y a avec et sans S, je ne sais pas la différence)

 

[cagodue]

Bonjour cagodue
Bonjour Patrick
et wi. c'est quoi ,
dans :

jean marie

Set wi = wb.Sheets("Index")

La ligne qui manquait dans ma dernière réponse

 

[patricktoulon]

alors vérifie que ces données soient exactes
wi et ws soient bien ce que tu veux

 

[ChTi160]

Re
Worksheets représente la Collection des Feuilles du Classeur concerné
Worksheet le type d'une variable par exemple im WS as Worksheet
veut dire : Ws représente une Feuille !
puis

For Each Ws in ThisWorkBook.WorkSheets

pour chaque feuille dans la Collection des Feuilles du Classeur !
jean marie

 

[cagodue]

Je vous joint mon fichier, j'ai essayé quelques modif dans mon code mais sans succès.

 

[ChTi160]

Re
J'ai inversé le B

ws.Range("B" & Rows.Count).End(xlUp).Row

ça a l'air de fonctionner !
jean marie

 

[patricktoulon]

re
eqtri As Longptr !!!????????????

 

[ChTi160]

Re
j'ai aussi ajouter un 1
ici :

ComboNom.List(ComboNom.ListCount - 1, 1) = ws.Range("D" & j).Row

jean marie

 

[cagodue]

Re
J'ai inversé le B

ça a l'air de fonctionner !
jean marie

Effectivement, ça fonctionne !!! Reste juste a la deuxième partie maintenant

Dim Ligne As LongPtr
With ComboNom
    If .ListIndex = -1 Then Exit Sub
  Ligne = .List(.ListIndex, 1)
End With