Discussion :

[Manou34]

J'ai lu cette discussion.
Merci beaucoup, j 'ai rencontré le même problème aujourd'hui et grâce à vos solutions ==> sa marche

Par contre je ne sais pas comment faire pour rechercher un critére et au lieu de supprimer la ligne corresponde il faudrais l'ajouter dans une autre feuille ?

Merci pour vos conseils

[Gorfael]

Merci beaucoup, j 'ai rencontré le même problème aujourd'hui et grâce à vos solutions ==> sa marche

Par contre je ne sais pas comment faire pour rechercher un critére et au lieu de supprimer la ligne corresponde il faudrais l'ajouter dans une autre feuille ?

Merci pour vos conseils

Salut
Pas cool de se greffer, mais bon...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

           If F.Range("E" & X) = Crit Then F.Rows(X).Delete

c'est cette partie qu'il te modier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
dim Lig as long
......
If F.Range("E" & X) = Crit Then 
     Lig=sheets("destination").[E65536].end(xlup).row +1
     F.rows(x).copy sheets("destination").range("A" & lig)
     F.Rows(X).Delete
end if

un truc dans le genre : attention, Offset se marie mal avec Copy
A+

[Manou34]

Merci beaucoup !! sa m'a franchement aidé

Maintenant sa marche !!

Merci !