Macro à rectifier

Bonjour le forum

j'ai recopié une macro mais pour mon cas elle ne fonctionne ou est l'erreur.

dans le fichier joint j'ai mis des explications qui seront certainement plus explicite

merci

Bonjour,

Voici une proposition avec la macro suivante :

Sub Macro1()

Dim tcouple(1 To 5, 1 To 2)

twin = Sheets("Trot").Range("BM2:BQ2")

With Sheets("CheDri")
    nvl = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
    For i = LBound(twin, 2) To UBound(twin, 2)
        tcouple(i, 1) = Application.Index(.Range("Couples").Columns(1), twin(1, i) + 1)
        tcouple(i, 2) = Application.Index(.Range("Couples").Rows(1), twin(1, i) + 1)
    Next i
    .Cells(nvl, 2).Resize(5, 2) = tcouple
End With

End Sub

Cdlt,

Bonjour 3GB, le forum

Merci pour ta réponse

La macro fonctionne bien dans ton fichier, je l'ai donc recopié dans mon classeur et là j'ai le message " Erreur d'éxecution 1004 erreurdéfinie

par l'application ou par l'objet " et cette ligne est en surbrillance jaune

" tcouple(i, 1) = Application.Index(.Range("Couples").Columns(1), twin(1, i) + 1) "

Les lignes et colonnes sont au meme endroit

De quoi cela peut-il venir

Merci

Oui, Excuse-moi, j'ai oublié de préciser que j'ai créé un tableau structuré, nommé "Couples". Il suffit de se positionner sur une des cellules pour voir apparaitre un onglet création. En allant dessus, on peut mettre en forme le tableau, le redimensionner.

Sur ton fichier il faudrait créer le même tableau. Ca permettra de rendre le code fonctionnel quelque soit le nombre de couples (tant qu'il y a autant de drivers que de chevaux).

Cdlt,