Bonjour,
Le nom peut-être bizarre dit comme ça mais je vais m'expliquer :
Voici mon code, qui est comme vous pouvez le remarquer, là pour copier et coller des données d'un autre fichier. Tout fonctionne parfaitement jusqu'à la ligne en gras (qui fonctionne elle aussi).
Après cette ligne là, il part vers une macro d'un worksheet (voir ci-dessous) :
Et s'arrête à la ligne en gras. (Les * sont là car je masque certaine chose, mais il y a bien une écrite à la place). Pour au final me dire "L'indice n'appartient pas à la sélection"
Quelqu'un pourrait-il m'aider et m'expliquer pourquoi après la première ligne en gras il saute vers la macro intégré à la feuille pour au final me faire une erreur.
Merci d'avance
PS : En essayant de mettre la macro de feuille en commentaire, ma macro de copier-coller fonctionne parfaitement.
Le nom peut-être bizarre dit comme ça mais je vais m'expliquer :
VB:
Dim WbkS As Workbook
Dim WbkD As Workbook
Dim Dl%, i%, j%, k%
Set WbkS = ThisWorkbook
Application.Dialogs(xlDialogOpen).Show 'Ouvre le fichier
Set WbkD = ActiveWorkbook 'Nouveau classeur
'Dl = Range("c" & Rows.Count).End(xlUp).Row
'Dl = Range("Saisie").Rows.Count
Dl = Range("Table").Rows.Count + 1
j = 2
k = 23
For i = 2 To Dl 'boucle pour récup les données
'ATTENTION : Il faudra changer le WbkD à droit du égale en
' WbkS pour récupérer les données de l'autre fichier
[B]WbkS.Sheets("Michel").Cells(k, 2) = WbkD.Sheets("Feuil1").Cells(j, 1)[/B]
WbkS.Sheets("Michel").Cells(k, 3) = WbkD.Sheets("Feuil1").Cells(j, 2)
WbkS.Sheets("Michel").Cells(k, 4) = WbkD.Sheets("Feuil1").Cells(j, 3)
WbkS.Sheets("Michel").Cells(k, 5) = WbkD.Sheets("Feuil1").Cells(j, 4)
WbkS.Sheets("Michel").Cells(k, 6) = WbkD.Sheets("Feuil1").Cells(j, 5)
WbkS.Sheets("Michel").Cells(k, 7) = WbkD.Sheets("Feuil1").Cells(j, 6)
WbkS.Sheets("Michel").Cells(k, 8) = WbkD.Sheets("Feuil1").Cells(j, 7)
j = j + 1
k = k + 1
Next
ActiveWorkbook.Close 'Fermée le classeurVoici mon code, qui est comme vous pouvez le remarquer, là pour copier et coller des données d'un autre fichier. Tout fonctionne parfaitement jusqu'à la ligne en gras (qui fonctionne elle aussi).
Après cette ligne là, il part vers une macro d'un worksheet (voir ci-dessous) :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
***********
[B]Set Sais = Sheets("Michel")[/B]
Set c = Worksheets("******")
Set s = Worksheets("******")
Set b = Worksheets("******")Et s'arrête à la ligne en gras. (Les * sont là car je masque certaine chose, mais il y a bien une écrite à la place). Pour au final me dire "L'indice n'appartient pas à la sélection"
Quelqu'un pourrait-il m'aider et m'expliquer pourquoi après la première ligne en gras il saute vers la macro intégré à la feuille pour au final me faire une erreur.
Merci d'avance
PS : En essayant de mettre la macro de feuille en commentaire, ma macro de copier-coller fonctionne parfaitement.