Concatener dans un tableau

Paritec

XLDnaute Barbatruc

• 31 Octobre 2010

• #2

Re : Concatener dans un tableau

Bonjour Fcales le forum

voilà pour faire ce que tu souhaites
a+
papou 🙂

Code:

Sub concatener()
    Dim i&,  a&, x&
    x = 28
    For i = 4 To 14
        Cells(x, 12) = Cells(3, i)
        For a = 8 To 27
            If Cells(a, i) > 0 Then Cells(x, 12) = Cells(x, 12) & ";" & Cells(a, 2)
        Next a
        x = x + 1
    Next i
End Sub

 

Vote positif 0 Vote négatif

F

fcales

Guest

• 31 Octobre 2010

• #3

Re : Concatener dans un tableau

Merci beaucoup.

J'ai oublié d'indiquer que le tableau de recherches est dans un onglet différent de là où se trouve les résultats attendus (surlignés en jaune dans mon exemple) et que les lignes de résultats (dates) sont déjà indiquées.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 31 Octobre 2010

• #4

Re : Concatener dans un tableau

Bonjour Fcales le forum
Oui en fait sur trois choses, tu en a juste oublié 2 , bonne moyenne.
Et l'onglet différent c'est lequel ????? !!!!!
La première chose à faire, cher Fcales, et de lire la charte du forum, je pense que tu en as besoin.
Pour le reste Voilà une deuxième tentative avec deux onglets puisque tu as été incapable de le définir en une fois
a+
Papou 🙂

 

Pièces jointes

• concatenation.zip

  7 KB · Affichages: 43
• concatenation.zip

  7 KB · Affichages: 40
• concatenation.zip

  7 KB · Affichages: 43

Vote positif 0 Vote négatif

F

fcales

Guest

• 1 Novembre 2010

• #5

Re : Concatener dans un tableau

Merci pour les remarques.

Cependant, le fichier envoyé est le fichier initial que j'ai envoyé et pas celui dont tu parles.

 

Vote positif 0 Vote négatif

Celeda

XLDnaute Barbatruc

• 1 Novembre 2010

• #6

Re : Concatener dans un tableau

Bonjour,

Ma modeste contribution avec cette autre proposition en formules, avec un tableau intermédiaire et en oubliant les ";" bref selon mes compétences formulistiques lol!!!:

une formule matricielle pour identifier les >0 :
=INDEX(BD!$B:$B;MIN(SI(TYPE1>0;SI(NB.SI($B$2:B2;TYPES)=0;LIGNE(TYPES)))))&""

- contrainte : plages nommées pour chaque date🙁


et une formule Transpose pour recréer le tableau de résultat mais chaque résultat dans une cellule propre ==> typiquement excellienne!!😀

=DECALER($B3;COLONNE()-COLONNE($J3)😉

 

Pièces jointes

• minconcatenation.zip

  15.6 KB · Affichages: 49

Dernière édition: 1 Novembre 2010

Vote positif 0 Vote négatif

bcharef

XLDnaute Accro

• 1 Novembre 2010

• #7

Re : Concatener dans un tableau

Bonjour fcales, Paritec & Celeda,
Bonjour à toutes et à tous.

Celeda, c'est un plaisir de vous croiser sur ce fil.

Un autre essai avec la même approche que notre amie Celeda, relevant la contrainte de plages nommées pour chaque date, par une plage dynamique.

A vous lire et bon courage.

Cordialement.

BCharef

 

Pièces jointes

• concatenationV1.xls

  41.5 KB · Affichages: 92
• concatenationV1.xls

  41.5 KB · Affichages: 93
• concatenationV1.xls

  41.5 KB · Affichages: 101

Vote positif 0 Vote négatif

Celeda

XLDnaute Barbatruc

• 1 Novembre 2010

• #8

Re : Concatener dans un tableau

Bonjour,

bcharef, mais c'est parfait!!!! c'est même mieux disons le!!

et en plus c'est un plaisir partagé sauf que ....................


le vouvoiement, tu peux le laisser loin, loin, loin, très loin sinon je vais finir par croire que je suis sur la flèche de l'Empire state building et que je suis une petite souris au pays des merveilles sur XLD.

Mais en dehors du vouvoiement, je suis peut-être au pays des merveilles en voyant tout ce qu'il se fait 🙂

 

Vote positif 0 Vote négatif