Macro copier/coller avec condition

Bonjour,
Je vais essayer d'être clair, j'ai une macro qui cherche dans chaques feuilles de mon fichier les lignes "NON CONFORME" et les copie dans une autre feuille. Le problème c'est que soit elle ne check pas toutes les lignes de la feuille soit elle ne les copie pas, car dans le tableau récapitulatif il en manque.
Qu'est ce que je dois faire ?
Merci d'avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit   Dim f, sh, ln, lgn   Sub NONCONFORMEnorm()   Set f = Sheets("Recap Normative") f.Range("A14").CurrentRegion.Offset(1, 0).Clear For Each sh In Worksheets If sh.Range("G14") = "Conforme /" & Chr(10) & "Non Conforme" Then For ln = 16 To sh.Range("D" & Rows.Count).End(xlUp).Row If sh.Range("G" & ln) = "NON CONFORME" Then lgn = Application.Max(6, f.Range("D" & Rows.Count).End(xlUp)(2).Row) sh.Range("B" & ln & ":I" & ln).Copy f.Range("A" & lgn) End If Next ln End If Next sh MsgBox "Travail terminé !" End Sub

---

Bonjour,
Lorsque l'on teste des chaînes de caractères, il y a toujours un risque d'avoir des espaces avant et après la chaîne et aussi un problème de casse dû à un mauvais encodage.
Il est donc prudent de tester à l'aide des fonctions Trim et Lcase ou Ucase mais j'aime moins et si l'on cherche une phrase, j'enlève tous les espaces à l'aide de la fonction Replace.
Dans certain cas, je pousse le vice jusqu'à enlever tous les caractères comme les apostrophes, tous les points de ponctuations, les caractères accentués, etc. Ce sont des heures de débogages gagnés

Exemple

Code:

---

1 2 3 4 5 6 7

Sub t() Dim Texte As String Texte = " MoT " If Trim(LCase(Texte)) = "mot" Then MsgBox "Mot trouvé" Texte = " c'est ma phRase" If LCase(Replace(Texte, " ", "")) = "c'estmaphrase" Then MsgBox "Phrase trouvée" End Sub

---

J'ajouterais que si tu veux exporter suivant conditions, il est intéressant de connaître le filtre avancé d'excel (méthode AdvancedFilter en VBA)

Merci pour ta réponse,
J'ai une autre question, dans la macro je copie toutes les colonnes de la "B" à la "I", comment je peux changer le code pourpar exemple ne pas prendre la colonne "D" ?

Bonjour,

Moi, j'utilise la propriété CurrentRegion de l'objet Range en partant de la première cellule de la liste. (Equivalant de Ctrl+* ou Ctrl+A
. Mais il faut au moins que la première colonne et première ligne soit remplie
Exemple

Code:

---

MsgBox "Dernière ligne " & Range("A1").CurrentRegion.Rows.Count

---

Sinon il y a la propriété End de l'objet Range avec comme valeur la constante xlUp (Equivalant de Ctrl+Flèche Haut)
Exemple

Code:

---

MsgBox "Dernière ligne " & Cells(Rows.Count, 2).End(xlUp).Row

---

Il y a aussi la propriété UsedRange de l'objet WorkSheet (Equivalent de Ctrl+End) mais pour ma part, je m'en méfie
Exemple

Code:

---

MsgBox "Dernière ligne " & ActiveSheet.UsedRange.Rows.Count

---

Merci :D

Bonjour,
C'est amusant pare-que entre le moment où j'ai lu ta question et la rédaction de ma réponse précédente, tu as modifié le texte de cette première.

Citation:

---

J'ai une autre question, dans la macro je copie toutes les colonnes de la "B" à la "I", comment je peux changer le code pourpar exemple ne pas prendre la colonne "D" ?

---

Ce qui n'est pas tout à fait la même chose.
Le filtre avancé d'excel dont je t'ai donné le lien dans une de mes réponses plus haut, permet d'exporter certaines colonnes de la liste source.
Sinon, dans une boucle, tu peux utiliser une structure conditionnelle telle que If...Then...Else ou SELECT CASE afin de passer outre certaine colonne
ou encore la méthode Copy qui permet de copier des colonnes non contiguë
Exemple :

Code:

---

Range("B1:C15,E1:F15,I1:I15").Copy Range("N1")

---

Oui j'ai éditer en même temps que ta réponse ^^.
Merci j'ai plus qu'a me mettre aux filtres avancé, merci bien.
Bonne journée.