Problème Macro

[elsinagot56]

Bonjour à tous!

J'ai deux onglets Fournisseurs et Fournisseurs_V.
L'onglet Fournisseurs_V se remplit automatiquement à l'aide d'une macro à partir de l'onglet Fournisseurs.

La feuille Fournisseurs contient une liste d'installations avec une date de mise en service.
La macro créé permet de dupliquer chaque installation de la date de mise en service jusqu'en 2021.

Les données de la feuille Fournisseurs sont des données théoriques.

J'aimerais que lorsque j'insère les données réelles dans Fournisseurs, qu'elles soient dupliquées jusqu'en 2021 dans Fournisseurs_V et que les données de cette convention déjà existantes dans Fournisseurs_V.

c'est assez compliqué à expliquer...

Peut-être que le fichier joint vous sera utile.

Thibaud

 

[Bebere]

Re : Problème Macro

bonjour Thibaut
voilà un code qui te met les données de fournisseurs absentes de fournisseurs_v1
si Numéro convention et Fournisseur recodé abent dans fournisseurs_v1,ajoute la ligne
il faut peut être ajouté la date
si Numéro convention et Fournisseur recodé présent,que faut il faire (un exemple une addition de tonnage)

Public Sub Transfert()
    Dim Tbl, i As Long, L As Long, C As Byte, Cel As Range

    With Feuil6
        Tbl = .Range("A2:H" & .Range("A65536").End(xlUp).Row)
    End With

    With Feuil10
        For i = 1 To UBound(Tbl, 1)
            For Each Cel In .Range("A2:A" & .Range("A2").End(xlDown).Row)
                If Cel <> Tbl(i, 1) And Cel.Offset(, 2) <> Tbl(i, 3) Then    'Numéro convention et Fournisseur recodé
                    L = .Range("A2").End(xlDown).Row + 1
                    For C = 1 To UBound(Tbl, 2)
                        .Cells(L, C) = Tbl(i, C)
                    Next C
                    .Cells(L, C) = "Ajouté le " & Date 'met la date de mise à jour
                    Exit For
                End If
            Next Cel
        Next i
    End With

End Sub

edit:si tu ne sais pas expliqué met un exemple