Transférer Valeurs Textbox dans autre feuille

Question

Je souhaite tranférer les valeurs des textbox de mon usf CA_Form vers la derniere ligne de la feuille 'données-substances dangereuses'. Lorsque je clique sur un article dans la feuille 'composition du produit' et que celui ci n'existe pas en feuille 'données-substances dangereuses' exemple l'article BC062F13 cela me lance mon usf, je renseigne les champs et je valide. Il faut que cet article créée vienne se creer en derniere ligne de la feuille 'donnees-substannces dangereuses". Je n'arrive pas a mettre en oeuvre cette partie. Merci de me donner un coup de main. Zyglur Fichier en .xlsm sur Excel 2010 et 2007...

Myta35 · Accepted Answer

Re le forum

Tu n'as pas déclarer sur quelle feuille tu veux travailler

Ton code remanier

Private Sub CommandButtonCREER_Click()
Dim DerLig As Long

  If MsgBox("Voulez vous créer l'article ?", 36, "Création") = vbYes Then

With Sheets("données-substances dangereuses")
  DerLig = .Range("C65000").End(xlUp).Row + 1

    .Range(.Cells(DerLig - 1, 1), .Cells(DerLig - 1, 40)).Copy
    .Cells(DerLig, 1).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False

        .Cells(DerLig, 3) = CA_Form.TB_ARTICLE.Value
        .Cells(DerLig, 4) = CA_Form.CB_RoHS.Value
        .Cells(DerLig, 5) = CA_Form.TB_DESIGNATION.Value
        .Cells(DerLig, 6) = CA_Form.TB_FOURNISSEUR.Value
        .Cells(DerLig, 7) = CA_Form.TB_REFFOURNISSEUR.Value
        .Cells(DerLig, 10) = CA_Form.TB_MASSE.Value
        .Cells(DerLig, 14) = CA_Form.TB_COMMENTAIRES.Value
        .Cells(DerLig, 16) = CA_Form.TB_PB.Value
        .Cells(DerLig, 19) = CA_Form.TB_SRCPB.Value
        .Cells(DerLig, 20) = CA_Form.TB_CHROME.Value
        .Cells(DerLig, 23) = CA_Form.TB_SRCCHROME.Value
        .Cells(DerLig, 24) = CA_Form.TB_MANGANESE.Value
        .Cells(DerLig, 27) = CA_Form.TB_SRCMANGANESE.Value
        .Cells(DerLig, 28) = CA_Form.TB_ANTIMOINE.Value
        .Cells(DerLig, 31) = CA_Form.TB_SRCANTIMOINE.Value
End With

     Unload CA_Form

  End If

End Sub

Mytå

Myta35 · Answer

Comme ceci Private Sub CommandButtonCREER_Click() Dim DerLig As Long If MsgBox("Voulez vous créer l'article ?", 36, "Création") = vbYes Then DerLig = Sheets("données-substances dangereuses").Range("C65000").End(xlUp).Row + 1 Sheets("données-substances dangereuses").Cells(DerLig, 3) = CA_Form.TB_ARTICLE.Value '..... Unload CA_Form End If End Sub Mytå...

Myta35 · Answer

Re le forum

Ajoute ceci avant le transfert des valeurs

    Range(Cells(derlig - 1, 1), Cells(derlig - 1, 40)).Copy
    Cells(derlig, 1).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False

Mytå