Contenu récent par jlfeugeas

Salut, Peut être qu'en VBA c'est plus facilement adaptable... :) Fonctions matrices à valider par "ctrl+shift+enter" Public Function M_triDateTXT(ListA As Range, Listassos As Range) 'Eléments de ListA à trier du plus petit au plus grand, par rapport à Listassos liste associée qui est affichée...

Public Function M_Result(ListA As Range, nbj%) 'Affichage résultats Application.Volatile Dim n%, i%, LgA%, LgB% Dim a() As String, b() As String Dim MatA As Variant, cel As Variant LgA = ListA.Count MatA = ArrayFromRange(ListA) ReDim a(1 To LgA) ReDim b(1 To LgA)...

Bonne idée mapomme ! la fonction est plus générale, merci. Function M_Depuis(ListA As Range, nbj%) 'ListA = dates et nbj = nombre de jours avant aujourd'hui Application.Volatile Dim n%, i%, LgA%, x! Dim a() As String Dim MatA As Variant, cel As Variant MatA = ArrayFromRange(ListA) LgA =...

Salut, tu voulais aussi pour le jour précédent.... Bonne soirée. Function M_CompteToday(ListA As Range) Application.Volatile Dim n%, i%, LgA%, x! Dim a() As String Dim MatA As Variant, cel As Variant MatA = ArrayFromRange(ListA) LgA = ListA.Count ReDim a(1 To LgA)...

Autre solution en VBA en utilisant matrices (Ctrl shift puis enter pour valider la formule). Public Function ArrayFromRange(ByVal Target As Range) As Variant 'Helper function that returns an array from a range with the correct dimensions. 'This fixes the issue of single values not returning as...