Faire concorder les données

Bonjour et bonne année!

J'ai un chiffrier qui contiens des données et je dois l'arimer avec une liste de numéros.

Explications:

Je veux que les nombres de la colonne A s'allignent avec ceux de la colonne B, par exemple, je voudrais que le 123456 de la colonne A soit vis à vis le 123456 de la colonne B. Mon fichier contiens 13206 numéros et ma liste fait 12855 numéros. Je veux que ces derniers se placent vis à vis leur semblable.

Suis-je clair?

Je joint un fichier de données à titre d'exemple.

Merci!

Bonjour,

Au départ, les 2 listes sont sur la même feuille ?

est-on sur que tous les N° de la 2ème colonne existent bien sur la 1ère ?

Amicalement

Claude.

dubois a écrit :

Bonjour,

Au départ, les 2 listes sont sur la même feuille ?

est-on sur que tous les N° de la 2ème colonne existent bien sur la 1ère ?

Amicalement

Claude.

Bonjour Claude,

Dans la réalité, j'ai un fichier inventaire de 13206 numéros. 1 ligne par numéro. Le numéro est dans la colonne B. Les autres colonnes (C à AH) contiennent les infos du numéro. La colonne A est libre.

J'ai reçu mon fichier contenant les 12855 numéros que je peux mettre dans la colonne A.

Je cherche à savoir quels numéros de la nouvelle liste se retrouvent dans l'inventaire. Selon moi le plus simple serait de placer le numéro concordant dans la colonne A vis à vis celui de la colonne B mais je suis ouvert à tout. Le plus simple étant le mieux.

Merci!

bonjour,

Le plus simple est sans doute de mettre ton inventaire dans la feuille 2

les références dans la feuille 1 et "faire remonter" les références concordantes par RECHERCHEV

la démo en fichier joint.

Nota: Dans ma feuille inventaire la colonne A doit être triée.

Dans cette feuille la zone de donnée est nommée "inv"

A+

Bonsoir à tous,

Salut galopin,

Solution VBA

Partir de la feuille "inventaire

Sub InventaireListe()
Dim Lg%, i%
''Macros par Claude Dubois pour "chriscog" Excel-Pratique le 04/01/2010
        Application.ScreenUpdating = False
            Lg = Range("b65536").End(xlUp).Row
            Range("ao1") = "=MATCH(ap1,Liste!a:a,0)"
        For i = 2 To Lg
                Range("ap1") = Range("b" & i)
            If IsError(Range("ao1")) = False Then
                Range("Liste!a" & Range("ao1")).Copy Destination:=Range("a" & i)
            End If
        Next i
            Range("ao1:ap1").ClearContents
        Sheets("inventaire").Columns("a").AutoFit
End Sub

Amicalement

Claude.