Base de donnée

[Capitaine Flame]

Bonjour à tous,

Je suis à nouveau face à un problème (enfin pour moi).

Je résume.

Dans le fichier joint, j'ai 2 onglets.
- Feuill1, j'ai un tableau de 4 colonnes avec Code article, Désignation, Type et Code SAGE.
- Feuill2, j'ai aussi un tableau, mais de 2 colonnes Article et Désignation. (ce 2d tableau m'est indispensable).

L'objectif est de vérifier à partir de la colonne Code SAGE (Feuill1), les reférences de la colonne Article (Feuill2) qui ne sont pas notées, puis de les ajouter à la suite.

Je pourrai le faire en manuel, mais les tableaux que je dois utiliser peuvent atteindre 10000 lignes. Je souhaite donc que cela soit fais en automatique.

En espérant avoir été assez clair, je remercie déjà tous ceux qui chercherons une solution à mon problème.

 

[skoobi]

Re : Base de donnée

Bonjour,

les désignations ne sont pas les mêmes entre les 2 feuilles. Est-ce normal?

 

[Capitaine Flame]

Re : Base de donnée

Les désignation ne sont pas les même et c'est normal.

Cela pose-t-il un problème?

Merci

 

[skoobi]

Re : Base de donnée

Je trouve juste étonnant que pour un même code, la désignation soit différente entre les 2 feuilles mais bon...

Je te propose ce code VBA:

Sub test()
Dim FlSource As Worksheet, FlDest As Worksheet, Code As Range, TrouveCode As Range, LigSuiv As Long
Set FlSource = Sheets("Feuil1"): Set FlDest = Sheets("Feuill2")
For Each Code In FlSource.Range("D2:D" & FlSource.Range("D65536").End(xlUp).Row)
  With FlDest
    Set TrouveCode = .Columns("A").Find(Code.Value, LookIn:=xlValues, lookat:=xlWhole)
    If TrouveCode Is Nothing Then
      LigSuiv = .[A65536].End(xlUp).Row + 1
      .Range("A" & LigSuiv).Value = Code.Value
      .Range("B" & LigSuiv).Value = Code.Offset(0, -2).Value
    End If
  End With
Next
End Sub

 

[Capitaine Flame]

Re : Base de donnée

Je te remercie Skoobi.

Je sais, c'est un peu bizzar ce changement de désignation.

Je te remercie pour le code VBA, mais je suis un peu trop novice sur les VBA.
Peux-tu le coller sur le fichier et le remettre en ligne modifié?

Merci d'avance.

 

[Capitaine Flame]

Re : Base de donnée

Skoobi.

Je viens de comprendre pour le mettre en oeuvre sur mon fichier.

Je te remercie donc pour ton aide.

C'est super sympa.

Merci encore