Merci c'est tellement utile dans ma version et mon projet !Bonsoir.
D'après ce que j'en ai vu, elle n'est guère compliquée à écrire en VBA. Mais il n'accepte pas que je l'appelle FILTRE. Alors j'ai enlevé le 'E' à la fin :
À valider en matriciel, en principe …VB:Function FILTR(ByVal TDonn, ByVal TCond) Dim LE&, LS&, C& If TypeOf TDonn Is Range Then TDonn = TDonn.Value If TypeOf TCond Is Range Then TCond = TCond.Value For LE = 1 To UBound(TDonn, 1) If TCond(LE, 1) Then LS = LS + 1 For C = 1 To UBound(TDonn, 2) TDonn(LS, C) = TDonn(LE, C) Next C: End If: Next LE Do While LS < UBound(TDonn, 1) LS = LS + 1 For C = 1 To UBound(TDonn, 2) TDonn(LS, C) = "" Next C: Loop FILTR = TDonn End Function
Bonjour.
Alt+F11 pour aller dans VBE, clic droit dans l'explorateur de projets, Insersion… , Module, collez ça dans la fenêtre de code.