Transfert des données

Bonjour tous le Monde

Je cherche un code VBA pour Transférer mes données via user Userform et je veux que la structure de la feuil 1 reste la même.

Merci infiniment .

Bonjour,

Je n'ai pas compris ce que tu voulais mettre dans les RubX de ta userform !

Merci

remplir les rubX par des chiffres qui seront transférés à la feuil 1 suivant le choix des listes déroulantes " mois et le marché ".

Je n'utilise pas de userform pour cela ... https://www.excel-pratique.com/fr/telechargements/utilitaires/excel-formulaire-no438

Sinon je laisse la place à un autre contributeur pour continuer via un userform

Une proposition

Bonjour Steelson

merci bcp pour ta réponse moi je veux que la structure de la feuil 1 reste la même pour la transformée à un TCD.

Je veux pas ajouter des lignes je cherche à ajouter mes données saisi sur le Userform se transfèrent directement à la cellule d'intersection entre Mois-Marché et Rub comme un Vlookup

Merci.

OK je n'avais pas saisi ce point, désolé

Je corrige ...

Sub MAJ()

With Sheets(1)
    ligne = ici(.Columns(1), Range("E3"), Range("G3"), 1).Row
    For j = 3 To 12
        .Cells(ligne, j) = Cells(7, j)
    Next
End With

End Sub

Function ici(plage As Range, valeur1 As Variant, valeur2 As Variant, decalage As Integer) As Range
    Set ici = Nothing
    With plage
        ok = False
        Set ici = .Find(valeur1, LookIn:=xlValues)
        If Not ici Is Nothing Then
            prem = ici.Address
            Do
                If ici.Offset(0, decalage) = valeur2 Then ok = True
                If Not ok Then Set ici = .FindNext(ici)
            Loop While Not ici Is Nothing And ici.Address <> prem And Not ok
        End If
    End With
End Function