Macro pour deux colonnes À et B

Bonjour,

Sur ma première colonne A j ai une série de 4 chiffres exemple :

Sur ma deuxième colonne B j ai aussi tjrs une serie de 4 chiffres:

Je voudrais que toutes les lignes de la colonne B s effacent en B,

une petite macro devrait le faire suis sur excel 2003,suis pas doué

merci d avance...bonne journée. .luc

Colonne A colonne B

1.2.3.4 1.2.3.4

1.2.3.6 1.2.3.6

1.2.4.7 1.2.4.7

1.2.4.8 1.2.4.8

etc... etc...

Re bonjour,

je viens de m apercevoir que j avais fait une erreur dans ma question j ai bien deux colonnes À et B et je voudrais que les lignes de la colonne B s effacent en A. Je ne sais pas écrire une macro....

merci de votre compréhension

luc

Bonjour,

D'après ton exemple, les valeurs concordantes sont sur la même ligne.

Est-ce toujours le cas ?

A+

Bonjour ,

oui j ai toujours en colonne B des lignes qui se trouvent en colonne A et je veux les voir disparaître de cette colonne A parce que en colonne A je peux avoir jusqu'à 1800 lignes donc ça m aiderait énormément de déduire toutes les lignes qui se trouvent en B

merci

Tu peux appliquer une mise en forme conditionnelle sur la colonne A avec la formule

=$A2=$B2

et un remplissage couleur,

puis filtrer par couleur afin de supprimer les lignes.

A+

Avec le remplissage des couleurs tu perds en visibilité je préférerais une déduction totale des lignes de la colonne B sur la colonne A

mais je vous remercie de m'aider

Je ne vois pas ce que tu perds en visibilité puisqu'au final les cellules concernées par la MFC sont effacées.

As-tu testé ma proposition ?

Sinon, macro ....

Sub Test()
Dim DerLig As Long
Dim Cel As Range
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    For Each Cel In Range("A2:A" & DerLig)
        If Cel.Value = Cel.Offset(, 1).Value Then
            Cel.ClearContents
        End If
    Next Cel
End Sub

A+

Je n ai pas testé mais je vais le faire et je te dirais la suite c sympa merci

a+

Bonjour le fil,

Je n''ai pas compris ce qu'il fallait obtenir à partir du problème illustré au premier post 8)

Il faut comparer tes 2 colonnes et ne garder les valeurs de la colonne A qui ne sont pas présentes en colonne B, c'est ça

Option Explicit
Sub test()
Dim a, e
    With Sheets("feuil1")
        a = .Range("a1", .Range("a" & Rows.Count).End(xlUp)).Value
    End With
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For Each e In a
            .Item(e) = Empty
        Next
        With Sheets("feuil1")
            a = .Range("b1", .Range("b" & Rows.Count).End(xlUp)).Value
        End With
        For Each e In a
            If .exists(e) Then .Remove e
        Next
        If .Count > 0 Then
            Sheets("feuil1").Range("d1").Resize(.Count).Value = Application.Transpose(.keys)
        End If
    End With
End Sub

klin89