Recherche valeur et copier dans une autre feuille

Bonjour,

J'ai un petit problème avec une macro en boucle que je n'arive pas a termier .

Le principe serai de faire une recherche des valeurs "oui" dans AM et de les coller dans une autre feuille.

Voir ci dessous ce que j'ai commencer.

Sub TEST()

li = Range("AM200").End(xlUp).Row

For I = 3 To li

If Range("AM" & I) = "oui" Then Range("B" & I & ":" & "H" & I).Copy

Sheets("Feuil1").Select

ActiveSheet.Paste

ActiveCell.Offset(1, 0).Select

Sheets("BASE INCIDENT CLIENT").Select

Next I

End Sub

Merci d'avance de votre aide.

Jimmy

Bonjour Jimmy

Que n'arrives-tu pas à terminer ?

Dans ta macro, la variable li est égale à 1. Est-ce normal?

Quand je lance la macro il vas bien chercher le premier "oui", il copie la ligne de "B" a "E" et il la colle dans la feuille1.

Mais apres la macro s'arrete, elle ne vas pas chercher les autres "oui" et je ne c'est pas pourquoi.

essaie en modifiant la 1ere la ligne

li = Range("AM200").End(xlUp).Row

par

li = Range("AM200").End(xlDown).Row

Merci de ton aide mais ça fonctionne toujour pas

c'est possible d'avoir une copie de ton fichier?

Ci joint le fichier

regarde ce que je te propose dans fichier joint

Je regarde ca quand je serez au taf car je n'ai malheureusement pas Excel

J'ai hâte d'analyse comment tu a fait

Boujour,

Merci pour votre aide, la macro fonctionne super bien.

Salut.