réordonner le numéros d'ordre

[SPHYNX123]

bonsoir,
je voudrais réorganiser une feuille nommée « DETAIL1 » comportant 11600 lignes,
la colonne « N° D’ORDRE » en alimentant cette dernière par la même colonne de la feuille « CANEVA » , merci pour votre temps .

 

[sousou]

Bonjour
En inversant, dans la feuille caneva les colonnes 1 et 2 tu pourrais simplement vers une recherchev qui va renvoyé le n°d'ordre

 

[klin89]

Bonsoir sousou, sphynx123 🙂

Comme ceci :

Option Explicit
Sub test()
Dim a, i As Long, dico As Object
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    a = Sheets("CANEVA").Range("a1").CurrentRegion.Value
    For i = 2 To UBound(a, 1)
        dico(a(i, 2)) = a(i, 1)
    Next
    With Sheets("DETAIL1")
        With .Range("a1").CurrentRegion
            a = .Value
            For i = 2 To UBound(a, 1)
                If dico.exists(a(i, 12)) Then
                    a(i, 1) = dico(a(i, 12))
                End If
            Next
            .Value = a
        End With
    End With
    Set dico = Nothing
End Sub

klin89

 

[SPHYNX123]

J’ai omis de préciser que la feuille « DETAIL1 » contient plus de 12000 lignes et la seconde feuille « CANEVA » contient plus 4800 lignes, alors lorsque j’exécute le code il s’applique parfaitement
Mais par contre lorsque je l’exécute sur le fichier qui contient plus de 12000 lignes il s’applique jusqu'à la douzième ligne, comment faire pour le réadapter ?