Modifier un tableau

Bonjour a tous,

je reviens vers vous pour un souci de mise en forme selon critere:

par exemple dans mon tableau j'ai les données suivantes :

AA jean BAC ES 2000

AA jean BTS AD 2002

BB pierre BAC ES 2000

Ce que je souhaiterai faire si jean apparait une, deux fois, ou plus :

AA jean BAC ES 2000 BTS AD 2002

Mettre les diplômes les uns après les autres (autant de fois que de diplôme pour jean)

cela est il possible,

MERCI d'avance

Salut,

Oui, cela est tout à fait possible. Joins un fichier (au format .xls) avec des données banalisées et indique où tu désirerais que soient placées tes données concaténées (sur une feuille séparée, sur la même feuille ??).

A te relire

bonsoir

bonsoir Yvouille

j'amorce des reponses avec cette proposition tiree par les cheveux ;mais cela fonctionne

cordialement

Bonjour a tous,

Merci pour votre réponse et désolée de repondre si tard

Voici le fichier

Merci d'avance.

Bonjour à tous,

Pas trop fignolé !

Sub SurMemeLigne()
Dim Lg%, cL%, i%, x%
    Application.ScreenUpdating = False
    Columns("a").Insert
    Lg = Range("b65536").End(xlUp).Row
    '-- tri --
    Range("a3:a" & Lg) = "=d3&e3"
    Range("a3:h" & Lg).Sort Key1:=Range("a3"), Order1:=xlAscending, _
    Header:=xlNo, OrderCustom:=1, MatchCase:=False
    '--
    For i = 3 To Lg
        If Cells(i + 1, "a") = Cells(i, "a") Then
            x = i
            Do While Cells(x + 1, "a") = Cells(x, "a")
                Cells(i, 256).End(xlToLeft).Columns(2) = Cells(x + 1, "f")
                Cells(i, 256).End(xlToLeft).Columns(2) = Cells(x + 1, "g")
                Cells(i, 256).End(xlToLeft).Columns(2) = Cells(x + 1, "h")
                Cells(x + 1, "b").Clear
                x = x + 1
            Loop
                i = x
        End If
    Next i
    Range("b3:b" & Lg).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Columns("a").Delete

    cL = Cells.Find("*", , , , xlByRows, xlPrevious).Column
    Range("e2:g2").Copy Destination:=Range(Cells(2, "h"), Cells(2, cL))
    Range("1:" & cL).Columns.AutoFit
End Sub

Amicalement

Claude

Bonjour,

Comme j'avais également commencé à chercher une solution, je la propose quand même, d'autant plus qu'il s'agit d'une autre approche.

Bonne journée.

MERCI beaucoup à tous pour votre aide bien précieuse.

j'ai testé toutes les solutions.

c'est parfait.

Cordialement.

Si tu repasse par là,

n'oublie pas la petite formalité

à+...