Utilisation des fonctions VBA qui renvoient un tableau dans Excel 2016

Pour utiliser la fonction MonthNames dans une feuille de calcul, vous devez la saisir sous forme de formule matricielle à 12 cellules. Par exemple, sélectionnez la plage A2:L2 et entrez =MonthNames() . Appuyez ensuite sur Ctrl+Maj+Entrée pour saisir la formule matricielle dans les 12 cellules sélectionnées. Découvrez le résultat.

Utilisation de la fonction MonthNames pour renvoyer un tableau de 12 éléments.

Si vous souhaitez que les noms de mois s'affichent dans une colonne, sélectionnez 12 cellules dans une colonne et utilisez cette formule matricielle. (N'oubliez pas de le saisir en appuyant sur Ctrl+Maj+Entrée.)

=TRANSPOSER(NomsMois())

Vous pouvez également choisir un seul mois dans le tableau. Voici une formule (pas une formule matricielle) qui affiche le quatrième élément du tableau : April.

=INDEX(NomsMois(),4)

Retour d'une liste triée

Supposons que vous ayez une liste de noms que vous souhaitez afficher dans un ordre trié dans une autre plage de cellules. Ne serait-il pas agréable d'avoir une fonction de feuille de calcul pour vous ?

Cette fonction personnalisée fait exactement cela : elle prend une plage de cellules à une seule colonne comme argument, puis renvoie un tableau de ces cellules triées. La plage A2:A13 contient quelques noms. La plage C2:C13 contient cette formule matricielle multicellulaire. (N'oubliez pas que vous devez saisir la formule en appuyant sur Ctrl+Maj+Entrée.)

Utilisation d'une fonction personnalisée pour renvoyer une plage triée.

=Trié(A2:A13)

Voici le code de la fonction Sorted :

Fonction triée (Rng As Range)
  Dim SortedData() en tant que variante
  Dim Cell As Range
  Dim Temp As Variant, i As Long, j As Long
  Dim NonVide aussi longtemps
' Transférer les données vers SortedData
  Pour chaque cellule dans Rng
    Si non est vide (cellule) alors
      NonVide = NonVide + 1
      ReDim Preserve SortedData (1 à non vide)
      SortedData(NonEmpty) = Cell.Value
    Fin si
  Cellule suivante
' Trier le tableau
  Pour i = 1 à non vide
    Pour j = i + 1 à non vide
      Si SortedData(i) > SortedData(j) Alors
        Temp = SortedData(j)
        SortedData(j) = SortedData(i)
        Données triées(i) = Temp
      Fin si
    j suivant
  Ensuite je
' Transposer le tableau et le retourner
  Trié = Application.Transpose (SortedData)
Fonction de fin

=TRANSPOSER(Trié(A16:L16))