Prob de transfert de données
bonjour,
mon probléme est que j'ai plusieurs userfoms( usf1, usf2, usf3)
Dans USF3, il y a un commande bouton pour enregistrer les données, mais ces données sont dans USF1,USF2,USF3, et il doivent étre transferer à un classeur excel.
mais je sais pas comment la faire
aidez-moi svp
Code:
1 2 3 4 5 6 7 8 9
| Private Sub CommandButton1_Click()
Dim derligne As Integer
If MsgBox("confirmez-vous l'ajout de vos données?", vbYesNo, "confirmation") = vbYes Then
derligne = Sheets("capitaliser").Range("A456541").End(xlUp).Row + 1
Cells(derligne, 1) = TextBox1.Value
Cells(derligne, 2) = UserForm3.ComboBox1.Value
Cells(derligne, 3) = UserForm3.ComboBox2.Value
end if
end sub |