Mémorisation pour concaténationRésolu

Question

Bonjour, 

J'espère ne pas vous embéter avec ma question mais je n'ai pas trouvé de quoi m'aiguiller. 

Voila mon souci :

J'ai une feuille ou je liste des documents avec les personnes intéressées par le dit document.

<col style= \"width: 60pt;\" span=\"5\" width=\"80\" />----
, Doc 1, Doc 2, Doc 3, Doc 4, ----
Bernard, oui, oui, non , oui, ----
Jean, non, non, oui, oui, ----
Michel, non, oui, non , non, ----
Odile, non, non, non, non, ----
Paul, oui, non, oui, non, ----
Valérie, non, non, non, oui

Dans une autre feuille je récupère les données de Jean par exemple
j'aimerais à partir du tableau de ma première feuille, concaténer tout les documents concernant Jean dans ma deuxième feuille sous la forme  Doc 3, Doc 4  (le cas échéant) dans une seule et même cellule.

J'ai commencé avec ca :

Sub Affecter_Document()
Dim i As Integer
For i  = 2 To 5
Sheets("Tableau_General").Select
If Cells(3, i) = "oui" Then
Sheets("Fiche_Jean").Select
Range("D21").Select
ActiveCell.FormulaR1C1 = Equivalence(i)
End If
Next
Sheets("act0002").Select
End Sub

avec

Function Equivalence(i As Integer) As String    Equivalence Switch(i 2, "Doc1", i = 3, "Doc2", i = 4, "Doc3", i = 5, "Doc4")
End Function

Mais avec cette boucle le dernier document écrase toujours les précédents. J'ai essayer plusieurs idées mais je dois faire fausse route. Et à vrai dire même si j'arrivais à récupéré tous les docs, je ne sais trop comment concaténer.

Merci d'avance

cs_casy · Accepted Answer

Peut-etre quelque chose du genre : Sub Affecter_Document() Dim i As Integer Dim tmp As String '--- Traitement de la ligne 'Jean' tmp = "" For i = 2 To 5 Sheets("Tableau_General").Select If Cells(3, i) = "oui" Then If tmp <> "" Then tmp = tmp & ", " tmp = tmp & Equivalence(i) End If Next Sheets("Fiche_Jean").Select ActiveSheet.Range("D21").Select ActiveCell.FormulaR1C1 = tmp '------------------------------------- Sheets("act0002").Select End Sub Function Equivalence(i As Integer) As String Equivalence = Switch(i = 2, "Doc1", i = 3, "Doc2", i = 4, "Doc3", i = 5, "Doc4") End Function ---- Sevyc64 (alias Casy) ----

# LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php

Golan2 · Answer

Salut et désolé pour la réponse tardive.

Ca marche nickel, merci beaucoup.

Mémorisation pour concaténation

2 réponses

Votre réponse

Discussions similaires