Bonjour,
je souhaite ajouter le nom des deliverables correspondant à un id à une listbox
je commence donc par compter le nombre d’éléments à prendre en compte.
Nb_Del = Application.WorksheetFunction.CountIf(Sheets("Deliverables").Range("A:A"), Id_Project)
je cree ensuite une boucle afin que les éléments en 3ème colone s'ajoute automatiquement à la listbox
ceci étant dit le code ne génère ni erreur ni d'element.. rien en somme
pourtant j'ai bien de 1 à 6 soit 6 éléments à afficher
et ayant un Id_Project en colonne A correspondant à la sélection antérieure
je dois donc buguer quelque part mais ne voit as où..
voici un fichier retraçant le soucis
merci par avance pour votre aide
For i = 1 To Nb_Del
With Sheets("Deliverables")
ok = False
Set ici = .Range("A:A").Find(Id_Project, LookIn:=xlValues)
If Not ici Is Nothing Then
prem = ici.Address
Do
If ici.Offset(0, 0) = (i) Then ok = True
If Not ok Then Set ici = .Range("A:A").FindNext(ici)
Loop While Not ici Is Nothing And ici.Address <> prem And Not ok
End If
If ok Then
List_Deliverables.AddItem ici.Offset(0, 3)
End If
End With
Next