Copie d'une feuille sur une autre feuille sans doublon

Question

Je souhaiterai à nouveau obtenir votre aide sur un problème rencontré dans un classeur Excel. Dans la première feuille "Feuil1", on insère des données d'entrées selon un Type et différentes références (Ref1, Ref2, Ref3). Dans un premier temps, on souhaite copier sur une seconde feuille "Feuil2", les références des colonnes B (Ref1) et D (Ref3) si le type de la colonne A correspond soit à "X" ou soit à "Y". Puis dans un second temps lorsqu'on ajoute une ou plusieurs lignes dans la première feuille de Type "X" et/ou "Y", ces lignes doivent être copiées en Feuil2, à la suite des lignes déjà copiées. Cependant, si dans la colonne B, une référence est identique à une autre déjà remplie, cette ligne ne doit pas être copiée. Et pour finir, il faut que l'ordre des lignes dans la Feuil2 reste inchangé lorsque l'on effectue un trie de A à Z ou que l'on filtre la colonne A ("Type") dans la première feuille. On souhaite pour cela, un code vba qui répond à notre demande. Pour cela, je vous mets à disposition un classeur reprenant les souhaits ci-dessus requis. Vous en remerciant par avance pour toute l'aide que vous pourrez m'apporter...

Dan · Answer

Vu que cette demande date d'une semaine, pouvez-vous confirmer que vous attendez toujours réponse ou que vous avez reçu une réponse sur un autre forum Cordialement...

Dan · Answer

Re,

En pièce jointe votre fichier à tester

Cliquez sur le bouton en feuille 1 et voyez le résultat du code en feuille 2

Si ok et terminé, merci, lors de votre réponse, de cloturer le fil en cochant la case à cocher verte à coté du bouton EDITER

Cordialement

223type-sans-doublon.xlsm (22.86 Ko)

Dan · Answer

Re Revoici votre fichier en retour. Les points 1, 2 et 3 sont solutionnés Point 4 : Je ne comprends pas la demande Point 5 : il y a effectivement un bug du au fichier qui a un souci. Je reçois un message d'une DLL manquante. J'ai d'ailleurs du refaire 3 fois votre fichier. Il me semble que cela est du à une bibliothèque manquante du éditeur VBA. Une fois le module visible, cliquez dans le menu Outils puis Référence. Il manque la bibliothèque Microsoft Stripping Runtime. Décochez là et vérifiez si le bug se reproduit Cordialement...

Dan · Answer

Re, En gros, les ref NDC doivent être copiées au moins une fois dans la feuille Avancement ? Crdlt...

Dan · Answer

Re Pour le controle sur NDC, cela implique de vérifier également sur une autre colonne et ce, vu que dans la feuille Avancement on ne mentionne en colonne A que le numéro du document. Ce qui implique que vous pouvez avoir deux ou plusieurs références identiques Actuellement cela oblige de faire un controle sur la colonne K dans la feuille suivi et C dans la feuille avancement Une solution pour NDC serait de mettre le mot NDC dans la colonne A en plus de la référence D'autre part, que doit-il se passer si vous corrigez un item de la colonne K dans la feuille Suivi Cordialement...

Dan · Answer

Re

Ok tenez moi au courant. Je ferai les corrections dans votre fichier

Si vous en avez fini avec cette demande, merci de ne pas omettre de clôturer le fil en cliquant sur la case à cocher verte à coté du bouton EDITER

A bientôt

Klin89 · Answer

Bonjour Crz-10, Dan, le forum

Question : qu'adviendra t-il des erreurs de saisie, lors de la validation de la dite "saisie"

Casse tête assuré

Personnellement, je procéderais autrement :

Tu dis vouloir effectuer différents tris

Ta feuille source devrait contenir en tête de colonnes, une colonne d'indexation (ordre d'entrée)

Tu pourrais ainsi retrouver l'ordre initial de tes enregistrements pour ensuite exécuter cette macro avec l'événement Activate si tu le souhaites

Option Explicit
Sub test()
Dim a, i As Long, txt As String, dico As Object
    Set dico = CreateObject("Scripting.dictionary")
    dico.CompareMode = 1
    With Sheets("Suivi des diffusions").Range("a5").CurrentRegion
        a = .Value
        For i = 3 To UBound(a, 1)
            txt = Join$(Array(a(i, 1), a(i, 9)), "")
            If Not dico.Exists(txt) Then
                dico(txt) = VBA.Array(a(i, 9), a(i, 10), a(i, 11))
            End If
        Next
    End With
    With Sheets("Avancement")
        .Cells(14, 1).Resize(dico.Count, 3).Value = Application.Index(dico.Items(), 0, 0)
    End With
End Sub

klin89