concatener avec une macro ?

Version imprimable

18/09/2010, 11h15
bories81

concatener avec une macro ?

Bonjour,

dans le cadre de mon travail, je dois réaliser un tableau qui assemble plusieurs label entre eux en fonction de la catégorie auxquels ils appartiennent.
J'ai donc en donnees 2 tableaux:
-un tableau avec une catégorie A et B, chacun contenant plusieurs textes differents
-un autre tableau avec les catégories A et B mais avec des textes encore differents de ceux de l'autre tableau.

Objectif:
Réaliser un tableau qui regroupe chaque texte de la Cat.A du tableau 1 avec chaque texte de la Cat.A du tableau 2. Et ainsi de suite.

Comme un bon schema vaut mieux qu'une explication foireurse, voici ce que je cherche à obtenir à l'aide d'une macro, parce que j'ai près d'une centaine de texte dans chaque catégorie.

http://img827.imageshack.us/img827/535/pbexcel.jpg

Je vous remercie d'avance pour votre aide parce que j'y connait pas grand chose en macro et j'ai malheureusement pas trop le temps pour apprendre de moi-même. C'est donc un peu dans l'urgence que je sollicite votre aide.

MERCI et bon week-end.
18/09/2010, 14h02
AlainTech

Citation:

Envoyé par bories81

dans le cadre de mon travail,
...
j'y connait pas grand chose en macro et j'ai malheureusement pas trop le temps pour apprendre de moi-même.

Bonjour,

Je suis toujours un peu choqué par ce genre de demande.
Comme il s'agit d'un travail professionnel, le résultat de ce travail va te permettre (indirectement, peut-être) de gagner de l'argent.
Or, tu fais appel à des bénévoles pour le faire à ta place.

La deuxième chose qui me choque (ne le prends pas que pour toi, c'est le cas de beaucoup de gens) c'est le fait d'accepter un travail pour lequel on n'a pas les compétences.

Ceci dit, nous sommes tout prêts à t'aider pour autant que tu fasses preuve d'un peu de bonne volonté et que tu nous montres ce que tu as déjà essayé.

As-tu déjà essayé l'enregistreur de macro pour voir le genre de code qui est généré?

Si tu nous postes un début de code, même non opérationnel, on pourra te guider.
18/09/2010, 21h13
patricktoulon

heu!...

bonjour

ce genre de demande

"je voudrais bien mais j'ai pas le temps c'est pour le boulot ":aie::roll:

me fous les nerfs en boules,et démontre la qualité et la perspicacité de l'oeuvrant j'espère pour toi que ton boss est patient et tolérant
si ca n'est pas le cas il va te falloir revoir ta façon de travailler et peu être négocier un e diminution de salaire pour rester dans ta boite hihihihihi:mouarf:

cela dit en 2 minute j'ai trouvé quelque chose qui pourrait te correspondre dans les sources alors si jamais, on ne sais pas des fois si ton esclavagiste de patron te laissait un peu de temps libre je te suggère d'y aller faire un tour

au plaisir
19/09/2010, 17h07
bories81

Bien sur je m'attendait à ce genre de réponse.
Pour être plus précis, je ne travaille pas dans une boite d'informatique, je suis designer pour un sous traitant d'un grand constructeur d'avion (vous aurez reconnu). Je demande juste votre aide parce que je dois faire tourner des calculs de prédim avec beaucoup de cas de charges, donc j'aurais aimé de votre part que vous me guidiez pour mon problème parce que j'imaginais que quelqu'un qui utilise les macros excel assez frequement pouvait faire ce genre d'opération rapidement, mais comme je l'ai indiqué je n'y connait pas grand chose.
Et vous dites que je vous demande de faire tout le boulot, hors je me suis efforcé de rester généraliste, car mes tableaux sont un peu plus complexes avec des calculs a effectuer ensuite.
Bref je voulais juste qu'on m'éclaire sur mon problème, mais si ça vous pose un quelconque problème ya pas de soucis je me débrouillerai autrement.

Bonsoir

Voilà une réponse

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub PPz()
    Range("Tab_1").Select
    T1C = Range("Tab_1").Column
    T1l = Range("Tab_1").Row
    Range("Tab_2").Select
    T2C = Range("Tab_2").Column
    T2l = Range("Tab_2").Row
    MsgBox (T1C & " " & T1l & " " & T2C & " " & T2l & " ")
 
    Call Limites(T1l, T1C, T1_CA_D, T1_CA_F, T1_CB_D, T1_CB_F, CatA, CatB)
    Call Limites(T2l, T2C, T2_CA_D, T2_CA_F, T2_CB_D, T2_CB_F, CatA, CatB)
 
        Ligne = T1l
        Col = T1C + 3
 
    Cells(Ligne, Col) = CatA
    For i1 = T1_CA_D To T1_CA_F
        Text_D = Cells(i1, T1C + 1)
        For i2 = T2_CA_D To T2_CA_F
            Cells(Ligne, Col + 1) = Text_D & "__" & Cells(i2, T2C + 1)
            Ligne = Ligne + 1
        Next
    Next
 
    Cells(Ligne, Col) = CatB
    For i1 = T1_CB_D To T1_CB_F
        Text_D = Cells(i1, T1C + 1)
        For i2 = T2_CB_D To T2_CB_F
            Cells(Ligne, Col + 1) = Text_D & "__" & Cells(i2, T2C + 1)
            Ligne = Ligne + 1
        Next
    Next
 
 
End Sub
 
Sub Limites(T1l, T1C, T1_CA_D, T1_CA_F, T1_CB_D, T1_CB_F, CatA, CatB)
' Limites des tableaux
    T1_CA_D = T1l
        l = T1_CA_D - 1
        CatA = Cells(T1_CA_D, T1C)
    Do
        l = l + 1
        ' Test de fin de Catégorie
        If Cells(l, T1C) <> "" Then
            T1_CA_F = l - 1
            T1_CB_D = l
            CatB = Cells(T1_CB_D, T1C)
        End If
        ' Test de fin de tableau
        Txt = Cells(l, T1C + 1)
        If Txt = "" Then
            T1_CB_F = l - 1
            Exit Do
        End If
    Loop
    MsgBox ("Limites du tableau : " & Chr(13) & _
            "TX_CA_D : " & T1_CA_D & Chr(13) & _
            "TX_CA_F : " & T1_CA_F & Chr(13) & _
            "TX_CB_D : " & T1_CB_D & Chr(13) & _
            "TX_CB_F : " & T1_CB_F & Chr(13))
 
End Sub

PPz

20/09/2010, 12h43
bories81

Merci pour votre réponse je vais étudier ça.