Supprimer des lignes sous conditions

Bonjour,

je souhaiterais mettre en surbrillance les lignes de la feuille 1 si la valeur de la feuille 2 colonne B ne se trouvent pas dans la feuille 1 colonne b

j'ai mis en pièce jointe un exemple de fichier.

Faut il faire cela en VBS ? ou peut on le faire avec les oppérations de base ?

Bonsoir,

Tu as oublier le fichier !

Amicalement

Claude

Hé oui c'est exacte excusez moi le voila.

Bonjour,

dans un module et bouton associé

Sub Verif()
Dim Lg%, Cel As Range
''Macros par Claude Dubois pour "jeremie.pa" E-P le 10/02/10
    Application.ScreenUpdating = False
        Lg = Range("a65536").End(xlUp).Row
        Range("a2:b" & Lg).Interior.ColorIndex = xlNone
        Range("o1") = "=MATCH(p1,Feuil2!b:b,0)"
    For Each Cel In Range("b1:b" & Lg)
            Range("p1") = Cel
        If IsError(Range("o1")) Then Cel.Interior.ColorIndex = 6
    Next Cel
        Range("o1:p1").ClearContents
End Sub

Bonjour,

Merci Claude, c'est presque ca, en faite c'est le contraire, il faut mettre en couleur celle qui correspondent !!

Bonjour,

Dans le code de claude, remplace

If IsError(Range("o1")) Then Cel.Interior.ColorIndex = 6

par

If Not IsError(Range("o1")) Then Cel.Interior.ColorIndex = 6

A noter que l'on pouvait aussi travailler sans mettre des formules en O1 pendant le déroulement du code.

Amicalement

Dan

Bonjour,

Merci des explications à vous deux, ca fonctionne, par contre quand je passe mes données personnelles j'ai le message d'erreur :

Erreur d'exécution 6

Depassement de capacité

quand je vais en mode débogage j'atterris sur cette ligne :

        Lg = Range("a65536").End(xlUp).Row

Bonsoir,

remplace

Dim Lg%, Cel As Range

par

Dim Lg As Long, Cel As Range

Claude