Recopier ligne sur une autre feuille selon plusieurs critères de cellule

[pierrof]

Bonjour le forum

Meilleures vœux à tout le monde!!!!!

Je souhaiterai à l'aide d'une macro recopier des lignes d'une feuille A sur une feuille B.
Les 2 conditions pour que la ligne soit recopiée sont des valeurs de cellule.
Sachant que le tableau peut varié de x ligne.

Je laisse un petit fichier exemple pour plus de clarté.

Je vous remercie d'avance de votre aide et de vos explications.

A Bientôt

 

[job75]

Re : Recopier ligne sur une autre feuille selon plusieurs critères de cellule

Bonsoir pierrof,

Un petit coup de filtre élaboré (avancé) :

Sub Copier()
'Feuil1 et Feuil2 sont les CodeNames des feuilles A et B
With Feuil1 'CodeName
  .[E2] = "=AND(C2=""C"",D2=""OK"")"
  Feuil2.[A:D].Clear 'RAZ
  .[A:D].AdvancedFilter xlFilterCopy, .[E1:E2], Feuil2.[A:D]
  .[E2] = ""
  Feuil2.Activate 'facultatif
End With
End Sub

Fichier joint.

A+

 

[goldenboy]

Re : Recopier ligne sur une autre feuille selon plusieurs critères de cellule

Bonjour à vous,

Moi j'avais pensé faire une boucle, mais je ne connaissait pas la méthode du filtre élaboré.

Voilà ce que j'avais commencé :

Option Explicit
Private Sub CommandButton1_Click()
Dim dernière_ligne_vide_A As Long
Dim dernière_ligne_vide_B As Long
Dim i As Integer
dernière_ligne_vide_A = Sheets("A").Range("A65536").End(xlUp).Row + 1
dernière_ligne_vide_B = Sheets("B").Range("A65536").End(xlUp).Row + 1

For i = 1 To dernière_ligne_vide_A
If Sheets("A").Cells(i, 3).Value = "C" And Sheets("A").Cells(i, 4).Value = "OK" Then
Rows(i).EntireRow.Select
MsgBox "C'est ok pour la ligne " & i
End If
Next
End Sub

Il ne reste plus qu'a copier et coller dans la dernière ligne vide de la feuille B

 

[pierrof]

Re : Recopier ligne sur une autre feuille selon plusieurs critères de cellule

Bonsoir Job75 et Goldenboy

Merci de votre aide, je vais essayer d'adapter vos codes pour mon projet et surtout de les comprendre.

A bientot