Excel 2003 : Comparaison 2 colones avec insertion "blanc"

[Nickolas01]

Bonjour,
je découvre à l'instant ce forum, et je dois dire qu'il est bigrement complet.

J'ai actuellement deux colonnes de chiffres (+de 16000 par colonne) qui sont censées être identiques ! Mais voilà il manque 22 positions dans la 2em colonne.
Je voudrais donc réaligner la deuxième avec la première et, si possible, insérer un blanc là ou il y a des trous. => et du coup rapidement voir les numéros manquants

Je sais pas si cela est faisable, mais une formule à appliquer sur les deux colonnes serait bien plus rapide que de le faire manuellement sur 16000 ligne.

Un grand merci d'avance au spécialiste qui me trouvera ça.

A+
Nick

 

[jetted]

Re : Excel 2003 : Comparaison 2 colones avec insertion "blanc"

Allo

Ce n'est exactement ce que tu veux, mais ca rapproche. Cette macro va comparer la colonne A avec la B, des qu'il y a une difference la macro s'arrete. Tu pourrais inserer une cellule en blanc et redemarrer la macro pour trouver la prochaine cellule non identique.

Sub compare_a_b()
rowcount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
For I = 1 To rowcount
Range("a" & I).Select
firstcell = ActiveCell
firstcell = Trim(firstcell)
Range("b" & I).Select
secondcell = ActiveCell
secondcell = Trim(secondcell)
'MsgBox firstcell & " a"
'MsgBox secondcell & " b"
    If firstcell <> secondcell Then
    Addresse = ActiveCell.Address
    MsgBox "La cellule n'est pas egale: " & Addresse
    Exit Sub
    End If
Next
End Sub

 

[Nickolas01]

Re : Excel 2003 : Comparaison 2 colones avec insertion "blanc"

Quelle réponse rapide... Merci je vais tester ça

 

[hoerwind]

Re : Excel 2003 : Comparaison 2 colones avec insertion "blanc"

Bonjour et bienvenu sur le forum,

Colonne A : la liste complète
Colonne B : la liste incomplète
En C1 : =SI(NB.SI(B$1:B$1600;A1);A1;"")
formule à copier vers le bas

 

[Guest]

Re : Excel 2003 : Comparaison 2 colones avec insertion "blanc"

Bonjour à tous,
Hello Hoerwind

La macro ci-dessous insère une cellule vide en colonne B pour toutes les valeur de A non trouvées en B

Sub AlignerValeurs()
    Dim c1 As Range, c2 As Range
    For Each c1 In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
        Set c2 = Range("B:B").Find(what:=c1, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows)
        If c2 Is Nothing Then
           c1.Offset(, 1).Insert xlShiftDown
        End If
    Next c1
End Sub

A+

 

[phlaurent55]

Re : Excel 2003 : Comparaison 2 colones avec insertion "blanc"

Bonjour à tous,

puisque j'ai passé du temps à la faire, je le poste.................... avec un peu de retard

 

[Nickolas01]

Re : Excel 2003 : Comparaison 2 colones avec insertion "blanc"

Bon alors là !!! J'suis sur le C..

100000000x merci car une réactivité pareil c'est rare et cela fait plaisir à voir....

Nick qui a pu grâce à vous solutionner son problème