Copie d'une cellule sur une autre : 'Erreur 1004

Bonjour !

Voici un bout de code qui me permet de, si un salarié sélectionné est présent dans le tableau, empêcher de copier son nom et l'écrire sur la feuille de répartition :

L'en-tête de déclaration des mes feuilles et classeurs ressemble à cela :

Dim c As Workbook, repartition As Worksheet, recap As Worksheet
    Set c = ThisWorkbook
    Set repartition = c.Worksheets("Répartition")
    Set recap = c.Worksheets("Recap")

Le compilateur m'indique qu'une erreur est définie par l'application où l'objet mais je ne comprends pas pourquoi, des idées ? :s

Bonjour,

i=0 ---> recap.Cells(3,i) ?

Cdlt.

Bonjour,

Pourquoi veux tu copier son nom sur la feuille répartition à cet endroit ? cells( i + 3, 9)

Dans cette onglet il ne doit pas être copié à la dernière cellule vide de la colonne 9 ?

Slt Gydhia,

remplace

repartition.Cells(i + 3, 9) = recap.Cells(3, i)

par

repartition.Cells(i + 3, 9) = recap.Cells(3, i+1)