Hello
J'ai un peu clarifié le code, mais aucun problème chez moi :
Public Function JGFiltre(tableau, Donnée, Colonne) As Variant
Dim compteur As Integer
compteur = 1
Dim i As Integer
Dim MonTableau
Dim TableauSortie()
MonTableau = tableau
For i = 1 To UBound(MonTableau, 1)
ReDim Preserve TableauSortie(1 To compteur)
If MonTableau(i, 1) = Donnée Then
TableauSortie(compteur) = MonTableau(i, Colonne)
compteur = compteur + 1
End If
Next
JGFiltre = WorksheetFunction.Transpose(TableauSortie)
'JGFiltre = TableauSortie
End Function
Voici le résultat obtenu.
Chez moi, en utilisant cette formule, un changement de "statut" change instantanément le tableau de sortie.
La seule chose sur laquelle je bloque, c'est virer les #N/A
J'ai tenté de créer une boucle qui remplirait de vide le tableau sur une longueur correspondant à la longueur du tableau source, mais on repasse alors dans le problème de l'attente de quelquse secondes avant l'actualisation des données.