Transfert de données sur autre feuille

[fmoore]

Bonjour,



J'aimerais que sur la feuille " CP entretien et réparation " toutes les lignes non grise entre la ligne 9 et 244 se transporte sur la feuille appelé "facture manquante ".

Est-ce que cela est possible ?

Merci de votre temps

 

[titiborregan5]

Re : Transfert de données sur autre feuille

Bonjour fmoore, le forum,

essaie ce code et dis-moi si ça marche...

Sub t()
With Sheets(2)
    For i = 9 To 244
        If .Cells(i, 1).Interior.ColorIndex <> 15 And .Cells(i, 1) <> "" Then
            .Rows(i).Copy Sheets(1).Range("a65000").End(xlUp).Offset(1, 0)
        End If
    Next
End With
End Sub

 

[fmoore]

Re : Transfert de données sur autre feuille

Sa fonctionne très bien merci beaucoup