Transfert de données sur autre feuille

fmoore · 8 Octobre 2013

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 · 8 Octobre 2013

Re : Transfert de données sur autre feuille

Bonjour fmoore, le forum,

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

Code:

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 · 8 Octobre 2013

Re : Transfert de données sur autre feuille

Sa fonctionne très bien merci beaucoup

Transfert de données sur autre feuille

fmoore

Guest

Pièces jointes

titiborregan5

XLDnaute Accro

fmoore

Guest

Discussions similaires

Transfert de données sur autre feuille

fmoore

Guest

Pièces jointes

titiborregan5

XLDnaute Accro

fmoore

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency