nrdz83
XLDnaute Impliqué
Bonjour à tous, voila j'utilise ce code qui fonctionne trés bien.
Je voudrais ranger la saisie des données dans la feuille qui serait sélectionnée d'aprés la combobox2.
Comment je dois modifier ce code existant ?
d'avance merci à tous et bon week end
Je voudrais ranger la saisie des données dans la feuille qui serait sélectionnée d'aprés la combobox2.
Comment je dois modifier ce code existant ?
d'avance merci à tous et bon week end
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
' Mise en place des valeurs saisies
[COLOR="Red"] Sheets("Feuil1").Select[/COLOR]
DerLig = [A65000].End(xlUp).Row + 1
Cells(DerLig, 1).Value = DTPicker1
Cells(DerLig, 2).FormulaR1C1 = "=DATE(YEAR(RC[-1]),MONTH(RC[-1])+1,DAY(RC[-1]))"
Cells(DerLig, 4).Value = ComboBox1
Cells(DerLig, 5).Value = TxtObs
' On décharge le formulaire
Call mfc
End Sub