Concatener tableau +fonction+vba

[Hoareau]

Bonjour

Concatener tableau +fonction+vba

Soit 2 tablaux Tab1(4) et Tab2(10)

Je voudrais

Tab1+Tab2 = tab3(14)


et savoir s'il est posible d'appliquer une fonction sur un tableau


Ex: Aplication.Worshetfunction.Average(Tab3)


Besoin de savoir le nombre d'élément différents dans Tab3

Merci

 

[wazzebu]

Re : Concatener tableau +fonction+vba

Bonjour,

Moi je recherchais le nombre différents d'éléments dans une colonne et on m'as répondu sur ce merveilleux forum:

=SOMME(SI(A3:A403<>"";1/NB.SI(A3:A403;A3:A403)))

formule a valider avec Ctrl+Maj+entrée

Voila je pense que ca peux correspondre a ce que tu attendais ?

Wazzebu

Edit: réponse concernant la formule sur un tableau qui marche !!

 

[Hoareau]

Re : Concatener tableau +fonction+vba

Merci pour la réponse mais ce n'est pas ce que je cherche ou du mois en partie.


Ce que je veux c'est concatener les deux tableaux et savoir le nombre de chiffres différents dans le troisième sans boucles d'ou fonction

tu as aussi =somme(1/nb.si((plage)*(plage)) en matricielle si c'est du numérique

tu a aujssi une fonction qui s'appelle NBDiff(plage) pas livré avec excel

pour le dénombrement et les doublons va sur ce site , plein d'exemples, plus deds macros complémentaires très intérressantes


Ce lien n'existe plus

 

[wazzebu]

Re : Concatener tableau +fonction+vba

Re,

je sais pas si j'ai bien saisi ce que tu veux, mais je joins un fichier qui grâce a une macro concatène 2 tableau en 1, et la formule d'avant donne le nombre d'éléments différents !!

Voila en espérant que c'est ce que tu voulais 😀

Wazzebu

 

[Hoareau]

Re : Concatener tableau +fonction+vba

Je ne veux pas ajouter les valeurs mais mettre tous les chiffres des deux tableaux dans un même tableau et mettre une fonction si c'est possible


Tableau1 = 1 2 3 4 >> 4 chiffres
Tableau2=1 2 5 6 7 8 9 10 11 12 >> 10 chiffres

Tableau1+tableau2=tableau3

Tableau3= 1 2 1 2 3 4 5 6 7 8 9 10 11 12 > 14 chiffres

En principe rien n'est écrit sur la feuille quand la macro est lancé, a la fin de la macro le résulat sera écrit

ecrire ensuite par exemple en A1 le résultat

Donc 12 de différents

 

[wazzebu]

Re : Concatener tableau +fonction+vba

re,

ok j'avais pas compris, mais tu devrais mettre un fichier exemple avec les deux tableau et celui que tu veux obtenir !!! 😀

Est ce que les tableaux 1 et 2 sont fixes? Si oui pour le premier 2x2, 1x4 ??

Enfin voila j'attend ton fichier exemple pour essayer de voir si je peux t'aider 😀

a +

 

[Hoareau]

Re : Concatener tableau +fonction+vba

J'aussi eu cette réponse qui correspond aux réponses que je cherchais

merci d'avoir essayer

a = Array(2, 3, 4, 5)
b = Array(6, 7, 8, 9)
Dim c()
x = UBound(a) ' limite supérieure
y = Application.Average(a) ' moyenne
c = a ' a-->c
ReDim Preserve c(UBound(a) + UBound(b) + 1) 'redimensionne c()
'-- ajout de b() à c()
For i = 0 To UBound(b)
c(i + UBound(a) + 1) = b(i)
Next i

 

[Hoareau]

Re : Concatener tableau +fonction+vba

J'ai eu une autre réponse qui me permet de faire ce que je veux

Merci d'avoir essayer


a = Array(2, 3, 4, 5)
b = Array(6, 7, 8, 9)
Dim c()
x = UBound(a) ' limite supérieure
y = Application.Average(a) ' moyenne
c = a ' a-->c
ReDim Preserve c(UBound(a) + UBound(b) + 1) 'redimensionne c()
'-- ajout de b() à c()
For i = 0 To UBound(b)
c(i + UBound(a) + 1) = b(i)
Next i