demande d'aide sur un userform

nordov6

XLDnaute Junior
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é
 

Fichiers joints

phlaurent55

XLDnaute Barbatruc
Re : demande d'aide sur un userform

Bonjour nordov,

avec ce code:
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
 

Discussions similaires


Haut Bas