transfert de données

pakalom · 16 Décembre 2010

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 · 17 Décembre 2010

Re : transfert de données

Bonjour pakalom,

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

VB:

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 · 17 Décembre 2010

Re : transfert de données

bonsoir Modeste,

C'est exactement ce que je cherche.

Merci Beaucoup

transfert de données

pakalom

Guest

Pièces jointes

Modeste

XLDnaute Barbatruc

pakalom

Guest

Discussions similaires

transfert de données

pakalom

Guest

Pièces jointes

Modeste

XLDnaute Barbatruc

pakalom

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency