Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

fonction renvoyant un tableau

  • Initiateur de la discussion Initiateur de la discussion ouissem
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

O

ouissem

Guest
Bonjour à tous et Bonne année 2011

je veux ecrire le code d'une fonction qui reçoit des plages de cellules séparées (débutant à partir d'une cellule choisie par l'utilisateur) et renvoyant un tableau(vecteur) contenant les longeurs des plages en question. (longeur=nbr de lignes)

C faisable, à proiori, quand il s'agit d'une seule plage en entrée, et de sa longeur(nbr de lignes) en sortie...mais mon pb c que pour optimiser le code il faut que ce soit plusieurs objets "Range" en entrée et un vecteur en sortie.

et sinon le principal pb c'est comment faire de telle sorte qu'une fontion renvoies un vecteur, voire une matrice !!!

Merci par avance aux personnes qui pourront m'aider la dessus.

Ouissem
 
Re : fonction renvoyant un tableau

Bonjour,

Je ne suis pas totalement sûr d'avoir saisi ta requête ...

Cependant, ta recherche doit s'orienter du côté des formules matricielles qui peuvent retourner des matrices ...

A +
🙂
 
Re : fonction renvoyant un tableau

Bonjour,

Code:
Function SansDoublons(champ As Range)
  Set mondico = CreateObject("Scripting.Dictionary")
  temp = champ
  For i = LBound(temp, 1) To UBound(temp, 1)
    For j = LBound(temp, 2) To UBound(temp, 2)
      If Not mondico.Exists(temp(i, j)) And temp(i, j) <> "" Then mondico.Add temp(i, j), temp(i, j)
    Next j
  Next i
  Dim b()
  ReDim b(1 To Application.Caller.Rows.Count)
  i = 1
  For Each c In mondico.items
    b(i) = c
    i = i + 1
  Next
  SansDoublons = Application.Transpose(b)
End Function

Fonctions matricielles

JB
 

Pièces jointes

Dernière édition:
Re : fonction renvoyant un tableau

Merci pour votre réponse
Je suis débutant sur vba et j'ai mis du temps à creuser dérrière ton programme pour le comprendre

J'ai besoin, si possible, que tu m'éclaircisse :

1. Then mondico.Add temp(i, j), temp(i, j) ........c le " , temp(i, j) " que je ne comprends pas

2. ensuite le sens de Application.Caller.Rows.Count et son rôle !!

Merci par avance

Ouissem
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…