Private Sub CommandButton1_Click()
Dim Onglet As String
Dim LigneFin As Long
'Sauvegarde info dans le bon onglet
'Trouve le nom du mois en fonction du numéro de mois de la date du jour
Onglet = Choose(Month(TextBox1), "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
With Sheets(Onglet)
LigneFin = .Range("A" & .Rows.Count).End(xlUp).Row + 1
TextBox1 = Format(Now, "dd/mm")
TextBox2 = Format(Now, "hh:nn")
If ComboBox1.ListIndex <> -1 Then
'Date
.Range("A" & LigneFin) = TextBox1
'HEURE
.Range("B" & LigneFin) = TextBox2
'SOCIETE
.Range("C" & LigneFin) = TextBox3
TextBox3 = ""
'NOM
.Range("D" & LigneFin) = TextBox4
TextBox4 = ""
'TELEPHONE
.Range("E" & LigneFin) = TextBox5
TextBox5 = ""
'Email
.Range("F" & LigneFin) = TextBox6
TextBox6 = ""
'RAISON DE L'APPEL
.Range("G" & LigneFin) = TextBox7
TextBox7 = ""
'TRANSFERT
.Range("H" & LigneFin) = ComboBox1
ComboBox1.ListIndex = -1
ThisWorkbook.Save
End If
End With
End Sub
Private Sub CommandButton2_Click()
Dim Onglet As String
Dim LigneFin As Long
'Sauvegarde info dans le bon onglet
'Trouve le nom du mois en fonction du numéro de mois de la date du jour
Onglet = Choose(Month(TextBox1), "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
With Sheets(Onglet)
LigneFin = .Range("A" & .Rows.Count).End(xlUp).Row + 1
'Date
.Range("A" & LigneFin) = TextBox1
'HEURE
.Range("B" & LigneFin) = TextBox2
'SOCIETE
.Range("C" & LigneFin) = TextBox3
'NOM
.Range("D" & LigneFin) = TextBox4
'TELEPHONE
.Range("E" & LigneFin) = TextBox5
'Email
.Range("F" & LigneFin) = TextBox6
'RAISON DE L'APPEL
.Range("G" & LigneFin) = TextBox7
'TRANSFERT
.Range("H" & LigneFin) = ComboBox1
End With
ThisWorkbook.Save
Application.Quit
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Format(Now, "dd/mm")
TextBox2 = Format(Now, "hh:nn")
'Pour passer à la ligne Shift entrée
TextBox7.MultiLine = True
ComboBox1.List = Sheets("VBA").Range("A1:A" & Sheets("VBA").Range("A" & Rows.Count).End(xlUp).Row).Value
End Sub