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 vb : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager