Dossards pour course

Bonjour,

Pour notre course d'obstacles, j'ai envoyé à l'imprimeur un fichier excel présenté comme ci-dessous pour personnaliser les dossards de chaque course qui se court par deux

N° dossard Epreuve Prénom Nom équipe

1 Duo Famille THIERRY SERVIGNAT

1 Duo Famille MATHIEU SERVIGNAT

2 Duo Famille JEROME EL POMPELUP

2 Duo Famille TITOUAN EL POMPELUP

Cette mise en page réalisée déjà grâce à votre aide ne lui convient pas. Il souhaiterait un tableau comme ceci :

Epreuve Equipe dossard 1 Prénom 1 dossard 2 Prénom 2

Comment le réaliser à partir du tableau précédent ?

Merci par avance de votre précieuse aide.

Cordialement

pointup

Salut,

peux tu remettre un fichier avec qu'on puisse tester si cela est possible?

Cdt,

Merci, de s'intéresser à mon problème...

Voilà l'adresse du fichier en ligne :

bonjour,

solution via une macro

Sub aargh()
    k = 1
    Set ws1 = Sheets("feuil1")
    Set ws2 = Sheets("feuil3")
    dl = ws1.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To dl Step 2
        k = k + 1
        ws2.Cells(k, 1) = ws1.Cells(i, 2) 'épreuve
        ws2.Cells(k, 2) = ws1.Cells(i, 4) ' equipe
        ws2.Cells(k, 3) = ws1.Cells(i, 1) 'dossard 1
        ws2.Cells(k, 4) = ws1.Cells(i, 3) ' prénom 1
        ws2.Cells(k, 5) = ws1.Cells(i + 1, 1) ' dossard 2
        ws2.Cells(k, 6) = ws1.Cells(i + 1, 3) 'prénom 2
    Next i
End Sub

merci h2so4....mais jamais fait de macro....comment procéder STP ?

rebonjour

selectionner le code sur le forum, le copier CTRL-C

activer excel, le classeur contenant tes données

faire alt-F11, pour ouvrir l'éditeur de macro

menu-> insérer-> module

coller le code CTRL-V

faire alt-F11 pour revenir à excel

la macro est installée

pour lancer l'exécution, faire ALT-F8 et choisir aargh.

Super !....ca marche !

Il faut maintenant que je digère tout ça...

Encore un grand merci pour votre aide précieuse