saisie via un userform

[nrdz83]

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
😎

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

 

[phlaurent55]

Re : saisie via un userform

Bonjour nrdz83

..............................
........................

ici tu dois d'abord sélectionner ta feuille "Graissage"
Sheets("graissage").Select
' 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

à+

 

[nrdz83]

Re : saisie via un userform

impec merci pour tout phlaurent 55 , bonne soirée, mes amitiés