Bonsoir à tous,
j'aimerais comprendre ce qui ne va pas avec mon code ci-dessous.
With [WorkPackages].ListObject
Set d = .ListColumns("Id_Project").Range.Find(what:=Id_Project, LookIn:=xlValues, LookAt:=xlWhole)
fin = WorksheetFunction.CountIf(.DataBodyRange, Id_Project) - 1
If Not d Is Nothing Then
Set WP_Array = .Range.Rows(d.row).Resize(fin)
End If
End With
En effet le countif semble poser un soucis.
je suis obligé de mettre -1 à fin afin que le résultat soit correct
sauf que selon les cas cela ne fonctionne pas
un coup ca me genere le resutat correct soit -1 tel qu"afficher dans le code..
ou est mon erreur svp?
une autre manière de procéder plus fiable?
j'ai rencontre ce jour la même chose sachant que je n'avais pas le -1 initialement alors ca m'a donner la ligne suivante ne correspondant meme pas à 'Id_Project pourtant reconnu...
With [T_Accounts].ListObject
Set d = .ListColumns("Id_Project").Range.Find(what:=Id_Project, LookIn:=xlValues, LookAt:=xlWhole)
fin = WorksheetFunction.CountIf(.DataBodyRange, Id_Project) - 1
If Not d Is Nothing Then
Set Maplage = .Range.Rows(d.row).Resize(fin)
merci par avance pour votre aide
bonne soirée