Macro

Un grand merci, elle marche parfaitement je vais pouvoir l'adapter à mes fichiers.

Pour m'aider et pour ma culture générale en macro peux-tu m'expliquer les étapes avec le code ?

Lig = 7
'Faire le copier/coller des ligne à partir de la ligne 7 ?

Rows(Lig & ":" & Rows.Count).Delete
'?

For L = 6 To Feuil1.Range("A" & Rows.Count).End(xlUp).Row
'?

If Feuil1.Range("I" & L).Value = "PB" Then
' Si la colone I de la feuille 1 affiche PB

Feuil1.Rows(L).Copy
'Sélectionne la ligne et la copie ?

Range("A" & Lig).PasteSpecial xlPasteValues
'Selectionne à partir de A et jusqu'a la fin de la ligne ?

Lig = Lig + 1
'Copie sur la ligne d'en dessous ?

End If
Next

Application.CutCopyMode = False
'?

Application.ScreenUpdating = False
'?

Range("A1").Select
'Pourquoi sélectionner A1 ensuite ?

End sub

Je te remercie

Cordialement

Bonjour

Voila ta macro

http://cjoint.com/?3Jpu5tBtRsJ

A tester bien sur
A+

Maurice

https://www.cjoint.com/?0Jpti0HpMva

Re

Pour communiquer ton classeur tu le télécharges sur www.cjoint.com et tu mets ici le lien obtenu.

A+

Maurice

comment le joindre à la réponse ? :O

Bonjour

donne ton fichier excel pour voir
ca serat plus simple

A+

Maurice

Apres quelques esaies je n'y arrive toujours pas; en gros j'ai
Référence description blabla blabla blabla blabla blabla Prix contrôle Prix
Ref 1 description 1 blabla blabla blabla blabla blabla 2.00 € ok 2.00 €
Ref 2 description 2 blabla blabla blabla blabla blabla 3.00 € ok 3.00 €
Ref 3 description 3 blabla blabla blabla blabla blabla 4.00 € PB 6.00 €
Ref 4 description 4 blabla blabla blabla blabla blabla 5.00 € PB 4.00 €
Ref 5 description 5 blabla blabla blabla blabla blabla 6.00 € ok 6.00 €
Ref 6 description 6 blabla blabla blabla blabla blabla 7.00 € ok 7.00 €
Ref 7 description 7 blabla blabla blabla blabla blabla 8.00 € PB 9.00 €
Ref 8 description 8 blabla blabla blabla blabla blabla 9.00 € ok 9.00 €
Ref 9 description 9 blabla blabla blabla blabla blabla 10.00 € PB 11.00 €
Ref 10 description 10 blabla blabla blabla blabla blabla 11.00 € PB 10.00 €

Donc disons que ceci se trouve une la feuille "Pays"

Je souhaite que la macro repère les "PB" dans la colone "I" et qu'elle me colle toutes les lignes avec un "PB" dans une nouvelle feuille "SYNTHESE".
Je veux avoir un bouton sur ma feuille "SYNTHESE" pour que quand je clique dessus, toutes les erreurs s'affichent sur cette feuille

Référence : A6:A15
Identification PB : I6:I15

Désolé je suis vraiment pas doué.

Cordialement

Merci :) Je vais tester ça demain au boulot et je reviens vers vous

Bonne soirée !

Bonjour

Sans model dur

Voila la macro a toi de la mette en forme

Sub TestCopy()
Lig = 2
For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Range("I" & L).Value = "PB" Then
Rows(L).Copy
F06.Range("A" & Lig).PasteSpecial xlPasteValues
Lig = Lig + 1
End If
Next
End Sub

A+

Maurice

Bonsoir

Dans un cas comme cela tu peux utiliser l'enregistreur de macro pour obtenir ce que tu souhaites :

1 tu mets en route l'enregistreur de macro
2 tu selectionnes toute ta plage à trier de la 1ere feuille
3 tu fais appliquer un filtre sur la colonne i avec critere PB
4 tu selectionnes toute la plage ainsi filtrée et tu fais copier
5 tu crées une nouvelle feuille et tu colles ta copie avec collage spécial en cochant valeurs uniquement
6 tu arrêtes l'enregistrement

Ta macro est crée

Cdlmnt