transfert de données

[pakalom]

bonsoir,

en parcourant le forum , j'ai trouvé une macro . Mais en essayant de l'adapter à mes souhaits je me retrouve dans une impasse.

je vous joints mon fichier..

Merci d'avance de venir à mon aide

 

[Modeste]

Re : transfert de données

Bonjour pakalom,

Si j'ai bien compris, peux-tu tester le code suivant (qui remplace le tien)

Sub Bouton1_QuandClic()
For Each c In Sheets("feuil1").Range("B3:B" & Sheets("feuil1").Range("B65000").End(xlUp).Row)
    If c.Offset(0, -1).Value = "x" Then
        derlig = Sheets("Feuil2").[A65000].End(xlUp).Row + 1
        c.Resize(1, 4).Copy Sheets("Feuil2").Range("A" & derlig).Resize(1, 4)
    End If
Next c
End Sub

 

[pakalom]

Re : transfert de données

bonsoir Modeste,

C'est exactement ce que je cherche.

Merci Beaucoup