fonction de reecriture

[doudou]

Salut,
est-il possible (si oui, comment) de demander a une feuille B de reecrire toutes les lignes de la feuille A comportant la mention C dans la colonne X ?

Merci de vos conseils...

 

[bebere]

bonjour

tu sélectionne l'onglet de la feuille A
tu appuyes sur la touche Ctrl
tu sélectionne l'onglet de la feuille B
tout ce qui se passe en A est reproduit en B

au revoir :ermm:

 

[2passage]

Bonjour,

le code suivant copie les lignes de la feuil1 ayant un 'C' e, colonne X vers la feuil2. A coller sur un bouton CommandButton1

Private Sub CommandButton1_Click()
Dim TestMois As String
Worksheets('Feuil1').Activate
For Each ligne In ActiveWorkbook.Worksheets('Feuil1').Range('A1', 'A' & ActiveWorkbook.Worksheets('Feuil1').Range('A65535').End(xlUp).Row).Rows
    Worksheets('Feuil1').Range('X' & ligne.Row).Select
    If ActiveCell.Text = 'C' Then
        ligne.EntireRow.Copy Destination:=ActiveWorkbook.Worksheets('Feuil2').Range('A65535').End(xlUp).Offset(1, 0)
    End If
Next
End Sub

A+