Résolu Excel VBA X2 boucle avec condition couleur et copier/coller

FB44

Nouveau membre
Meilleure réponse
Gyrus m'a répondu sur un autre forum
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). "

 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 058
Membres
1 586 285
Dernier membre
LeFront
Partager cette page
Haut