FB44
Nouveau membre
Meilleure réponse
Gyrus m'a répondu sur un autre forum
Gyrus "J'ai placé l'instruction : Cell.EntireRow.Copy ...
à la place de : Rows(ActiveCell.Row).Copy ...
La cellule de la boucle (Cell) n'est pas la cellule active (Activecell). "
Code:
Sub Echo()Dim Wb As Workbook 'nomme les raccourci des objetsDim Ws As WorksheetDim Cell As RangeDim DerniereLigne As Long, LigneRecap As Long Application.ScreenUpdating = False 'permet de na pas avoir le clignotement pendant la mise à jour des données Cells.Delete 'effacement de la feuille LigneRecap = 2 Workbooks.Open ("chemin classeur source") 'ouvre automatiquement le tableau source!!!ATTENTION bien modifier le chemin en cas de déplacement For Each Ws In ActiveWorkbook.Worksheets '1ère boucle entre les feuilles DerniereLigne = Ws.Range("A" & Rows.Count).End(xlUp).Row For Each Cell In Range(Ws.Cells(2, 1), Ws.Cells(DerniereLigne, 1)) '2ème boucle de cellule;sélectionne de la première à la dernière remplie If Cell.Interior.ColorIndex = 2 Then 'Si le fond est blanc Cell.EntireRow.Copy Workbooks("nvx test macro.xlsm").Worksheets(1).Rows(LigneRecap) 'Copie la ligne complète LigneRecap = LigneRecap + 1 End If
Gyrus "J'ai placé l'instruction : Cell.EntireRow.Copy ...
à la place de : Rows(ActiveCell.Row).Copy ...
La cellule de la boucle (Cell) n'est pas la cellule active (Activecell). "