Bonjour à tous...
En fait, je m'arrache les cheveux sur un petit problème.
J'ai un For Each dans une procédure.
Si le classeur et la feuille auquels font références le For Each sont actifs à l'écran,
tout se passe bien.
Par contre, si je ne suis pas sur la bonne feuille ou si le focus est mis sur un autre
classeur, je reçois une erreur d'exécution 1004.
Pourtant, je pense avoir mis les bonnes infos dans le range (pplage)
Je ne sais pas si c'est très clair....
Avez-vous une idée ?
Merci...
En fait, je m'arrache les cheveux sur un petit problème.
J'ai un For Each dans une procédure.
Si le classeur et la feuille auquels font références le For Each sont actifs à l'écran,
tout se passe bien.
Par contre, si je ne suis pas sur la bonne feuille ou si le focus est mis sur un autre
classeur, je reçois une erreur d'exécution 1004.
Pourtant, je pense avoir mis les bonnes infos dans le range (pplage)
Je ne sais pas si c'est très clair....
Code:
Dim wbp As Workbook
Dim tabligne(100, 1)
Set wbp = Workbooks("Pointage.xlsm")
Set wbbase = Workbooks.Open(ThisWorkbook.Path & "\Base.xlsm")
lastline = wbbase.Sheets(1).Range("A65536").End(xlUp).Row
i = 1
Set pplage = wbp.Sheets(2).Range(Cells(1, 10), Cells(lastline, 10))
For Each cc In pplage
tabligne(pplage, 0) = wbp.Sheets(2).Cells(i, 10)
tabligne(pplage, 1) = wbp.Sheets(2).Cells(i, 11)
i = i + 1
Next
Avez-vous une idée ?
Merci...