VBA countifs / suppression ligne et affichage dans onglet 2

Bonjour,

Etant novice sur VBA, je rencontre quelques petits problèmes de codes.

En gros, j'ai un fichier excel à plusieurs colonnes qui représentent plusieurs variables, et chaque ligne représente un individu.

Je voudrais extraire (simplement copier) de cette feuille les lignes entières dont la variable 1 est égale à 1 et la variable 2 égale à 0, et afficher chacune de ces lignes copiées dans un nouvel onglet.

Le code que j'ai utilisé est une adaptation d'un code qui m'a servi pour une autre macro, mais clairement je n'arrive pas à le faire fonctionner....

Si une âme charitable pouvait m'aider, ce serais absolument génial !

Merci d'avance.

Je vous joins un fichier exemple.

et voici le code utilisé :

Sub extraire()

Dim DerLig As Long

Sheets("Feuil2").Cells.Clear

With Sheets("Feuil1")

DerLig = .Cells(Rows.Count, "A").End(xlUp).Row

.Range("Z2").FormulaR1C1 = "=COUNTIFS(R2C1:R" & DerLig & "C1,RC[-25])=1,, (R2C2:R" & DerLig & "C2,RC[-24])=0" 'insertion d'une formule dans la cellule Z2"

.Range("A1:D" & DerLig).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("Z1:Z2"), CopyToRange:=Sheets("Feuil2").Range("A1")

.Range("Z2").Clear

End With

End Sub

Bonjour,

Est-ce le résultat escompté?

Cdlt.

Merci c'est tout à fait ça !!

Comme quoi ça ne sert à rien de se compliquer la vie