Erreur "l'indice n'appartient pas à la sélection". Que faire
Bonjour,
je cherche a copier-coller dans une feuille A le contenu de toute une ligne sur une autre feuille B si le contenu de la première case de la ligne de B correspond au contenu de la case de A.
Mais Excel me dit cela au lancement : "l'indice n'appartient pas à la sélection"
Du coup, je ne peux même pas tester.
Voici mon code.
Sub tri()
'début ligne 2 de feuille "que des RH"
i = 2
'temps que j'ai des adresses écrites dans la première colonne de la feuille "que des RH"
While Sheets("Que des RH").Cells(i, 1) <> ""
' début sur ligne 1 de feuille "a intégrer"
j = 1
' temps que le contenu de la cellule J de "à intégrer" est différent du contenu de la cellule I de "que des RH"
While Sheets("a intégrer").Cells(j, 1) <> Sheets("Que des RH").Cells(i, 1)
' on prend la ligne suivante de "à intégrer"
j = j + 1
Wend
'dès que le contenu est identique, on copie cellule par cellule le contenu de "à intégrer" vers "que des RH"
Sheets("Que des RH").Cells(i, 2) = Sheets("a intégrer").Cells(j, 2)
Sheets("Que des RH").Cells(i, 3) = Sheets("a intégrer").Cells(j, 3)
Sheets("Que des RH").Cells(i, 4) = Sheets("a intégrer").Cells(j, 4)
Sheets("Que des RH").Cells(i, 5) = Sheets("a intégrer").Cells(j, 5)
Sheets("Que des RH").Cells(i, 6) = Sheets("a intégrer").Cells(j, 6)
Sheets("Que des RH").Cells(i, 7) = Sheets("a intégrer").Cells(j, 7)
Sheets("Que des RH").Cells(i, 8) = Sheets("a intégrer").Cells(j, 8)
Sheets("Que des RH").Cells(i, 9) = Sheets("a intégrer").Cells(j, 9)
Sheets("Que des RH").Cells(i, 10) = Sheets("a intégrer").Cells(j, 10)
Sheets("Que des RH").Cells(i, 11) = Sheets("a intégrer").Cells(j, 11)
Sheets("Que des RH").Cells(i, 12) = Sheets("a intégrer").Cells(j, 12)
Sheets("Que des RH").Cells(i, 13) = Sheets("a intégrer").Cells(j, 13)
Sheets("Que des RH").Cells(i, 14) = Sheets("a intégrer").Cells(j, 14)
'on prend la ligne suivante de "que des RH"
i = i + 1
Wend
End Sub
Avez-vous une idée pour m'aider ?
Voilà le fichier, avec bien moins de données que l'initial qui est trop gros pour être uploadé.
Je vous remercie par avance, c'est très sympa