bonjour , voila jessai d'executer le code ci-dessous .
mais j'ai un message d'erreur ...


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton1()
Dim Lig As Long
    With Sheets("synthèse")
        While Cells(Lig, 1) <> ""
            If .Cells(Lig, 1) = Sheet("MC").Cells(Lig, "G") Then
                .Cells(Lig, "AA") = "TF-Post"
                Lig = Lig + 1
            Else
                Rows(Lig).Delete
            End If
        Wend
    End With
End Sub
je vous explique ce que j'essai de faire :

je voudrai faire la chose suivante
1) comparer chacun des nombres de la colonne A a partir de A51 de la feuille "synthèse" a la colonne G (G1 a G1000) par exemple de la feuille "MC" si je retrouve le meme nombre et si dans la meme ligne la colonne AA m'indique le mot clé "TF " alors je conserve la ligne qui contient le nombre de depart dans ma feuille "synthese "
si a la colonne AA a la ligne correspondante je trouve autre chose que "TF "
alors j'efface cette ligne dans ma feuille "synthese. "
et ainsi de suite.



voila un exemple

feuil(synthèse) si par exemple
A51=7555 alors je vais chercher ce nombre a la colonne G de la feuille "MC"
(de toute les façon la feul "MC" contient tous les nombres !!)
SI A51= G102 par exemple
et si
AA102="TF" toujours dans la feuil "MC"

alors la ligne 51 de la feuil "synthèse " est conserver
mais si

A51=G102 et AA102#"TF"alors la ligne 51 de la feuil "synthese" doit etre effacé.
et ainsi de suite ..j'usqu'a la ligne A500 PAR EXEMPLE DE LA FEUILLE "SYNTHESE"

merci de votre aide