demande d'aide sur un userform

[nordov6]

salut tous le monde
voila un sauveur comme vous m'a aidez sur cette userform je le remercie infiniment
alors le problème si que j'ai créer une feuille pour archiver mes données ainsi q'un bouton sur l'userform
mais je ne sais pas quel code attribuer a ce bouton
si quelqu'un peux m'aider
et merci d'avance
fichier attaché

 

[phlaurent55]

Re : demande d'aide sur un userform

Bonjour nordov,

avec ce code:

Private Sub CommandButton4_Click()
With Sheets("archive")
derligne = .Range("A65535").End(xlUp).Row + 1
.Cells(derligne, 1) = ComboBox1
.Cells(derligne, 2) = TextBox1
.Cells(derligne, 3) = TextBox2
.Cells(derligne, 4) = ComboBox2
.Cells(derligne, 5) = TextBox3
.Cells(derligne, 6) = TextBox4
.Cells(derligne, 7) = TextBox5
.Cells(derligne, 8) = TextBox6
.Cells(derligne, 9) = TextBox7
End With
Unload Me
End Sub

à+
Philippe

 

[nordov6]

Re : demande d'aide sur un userform

merci infiniment
c'est ça