nrdz83
XLDnaute Impliqué
Bonjour , voila ce que je cherche à faire, j'ai réalisé le code ci-dessous et il fonctionne trés bien.
Mais j'appel l'userform dans ma feuille accueil et du coup il range les données dans cette feuille.
Moi je cherche à ranger les données dans ma feuille graissage.
D'avance merci à tous mes amitiés
😎
Mais j'appel l'userform dans ma feuille accueil et du coup il range les données dans cette feuille.
Moi je cherche à ranger les données dans ma feuille graissage.
D'avance merci à tous mes amitiés
😎
Code:
Private Sub CommandButton1_Click()
' On teste la saisie du gisement
If Me.ComboBox1.Text = "" Then
MsgBox "Vous devez selectionner un opérateur."
Me.ComboBox1.SetFocus
Exit Sub
End If
' On teste la saisie du matériel
If Me.ComboBox2.Text = "" Then
MsgBox "Vous devez saisir un matériel ou gisement."
Me.ComboBox2.SetFocus
Exit Sub
End If
' On teste la saisie de la dernière visite
If Me.DTPicker1 = "" Then
MsgBox "Vous devez saisir une date du graissage."
Me.DTPicker1.SetFocus
Exit Sub
End If
' On teste la saisie de l'observation
If Me.TxtObs = "" Then
MsgBox "Vous devez saisir une observation."
Me.TxtObs.SetFocus
Exit Sub
End If
' Mise en place des valeurs saisies
DerLig = [A65000].End(xlUp).Row + 1
Cells(DerLig, 1).Value = DTPicker1
Cells(DerLig, 4).Value = ComboBox1
Cells(DerLig, 5).Value = ComboBox2
Cells(DerLig, 6).Value = TxtObs
' On décharge le formulaire
Unload Me
End Sub