Private Sub CommandButton1_Click()
Dim L As Integer
'validation de la saisie userform : Saisie
'If TextBox1 = "" Then MsgBox "Attention :la date saisie n'est pas renseignée..": Exit Sub
'If TextBox2 = "" Then MsgBox "Attention :le libellé de la demande n'est pas renseigné..": Exit Sub
'If TextBox3 = "" Then MsgBox "Attention :la date prévue n'est pas renseigné..": Exit Sub
'If TextBox4 = "" Then MsgBox "Attention :le contexte de la demande n'est pas renseigné..": Exit Sub
'If TextBox5 = "" Then MsgBox "Attention :la description de la demande n'est pas renseigné..": Exit Sub
'If TextBox6 = "" Then MsgBox "Attention :l'objectif de la demande n'est pas renseigné..": Exit Sub
'If TextBox7 = "" Then MsgBox "Attention :l'impact possible de la demande n'est pas renseigné..": Exit Sub
'If TextBox8 = "" Then MsgBox "Attention :les procédures à appliquer de la demande ne sont pas renseignées..": Exit Sub
'If TextBox9 = "" Then MsgBox "Attention :le champ de la commnication n'est pas renseigné..": Exit Sub
'If TextBox10 = "" Then MsgBox "Attention :le dispositif mis en place n'est pas renseigné..": Exit Sub
'If TextBox11 = "" Then MsgBox "Attention :le plan de retour arrière n'est pas renseigné..": Exit Sub
Sheets("BD").Select
If MsgBox("Confirmez-vous l’insertion de cette nouvelle fiche ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
L = Sheets("BD").Range("C65536").End(xlUp).Row + 1
End If
Range("C" & L).Value = TextBox1
Range("D" & L).Value = ListBox1
Range("E" & L).Value = ListBox2
Range("F" & L).Value = ListBox3
Range("G" & L).Value = ListBox5
Range("H" & L).Value = TextBox2
Range("I" & L).Value = TextBox3
Range("J" & L).Value = TextBox4
Range("K" & L).Value = TextBox5
Range("L" & L).Value = TextBox6
Range("M" & L).Value = TextBox7
Range("N" & L).Value = TextBox8
Range("O" & L).Value = TextBox9
Range("P" & L).Value = TextBox10
Range("Q" & L).Value = TextBox11
Range("R" & L).Value = ListBox4
Range("X" & L).Value = " En attente de Revue d'approbation"
Unload Me
Sheets("Accueil").Select
Range("A1").Select
End Sub
Private Sub CommandButton1_Click()
Dim L As Integer
'validation de la saisie userform : Saisie
'If TextBox1 = "" Then MsgBox "Attention :la date saisie n'est pas renseignée..": Exit Sub
'If TextBox2 = "" Then MsgBox "Attention :le libellé de la demande n'est pas renseigné..": Exit Sub
'If TextBox3 = "" Then MsgBox "Attention :la date prévue n'est pas renseigné..": Exit Sub
'If TextBox4 = "" Then MsgBox "Attention :le contexte de la demande n'est pas renseigné..": Exit Sub
'If TextBox5 = "" Then MsgBox "Attention :la description de la demande n'est pas renseigné..": Exit Sub
'If TextBox6 = "" Then MsgBox "Attention :l'objectif de la demande n'est pas renseigné..": Exit Sub
'If TextBox7 = "" Then MsgBox "Attention :l'impact possible de la demande n'est pas renseigné..": Exit Sub
'If TextBox8 = "" Then MsgBox "Attention :les procédures à appliquer de la demande ne sont pas renseignées..": Exit Sub
'If TextBox9 = "" Then MsgBox "Attention :le champ de la commnication n'est pas renseigné..": Exit Sub
'If TextBox10 = "" Then MsgBox "Attention :le dispositif mis en place n'est pas renseigné..": Exit Sub
'If TextBox11 = "" Then MsgBox "Attention :le plan de retour arrière n'est pas renseigné..": Exit Sub
Sheets("BD").Select
If MsgBox("Confirmez-vous l’insertion de cette nouvelle fiche ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
L = Sheets("BD").Range("C65536").End(xlUp).Row + 1
Range("C" & L).Value = TextBox1
Range("D" & L).Value = ListBox1
Range("E" & L).Value = ListBox2
Range("F" & L).Value = ListBox3
Range("G" & L).Value = ListBox5
Range("H" & L).Value = TextBox2
Range("I" & L).Value = TextBox3
Range("J" & L).Value = TextBox4
Range("K" & L).Value = TextBox5
Range("L" & L).Value = TextBox6
Range("M" & L).Value = TextBox7
Range("N" & L).Value = TextBox8
Range("O" & L).Value = TextBox9
Range("P" & L).Value = TextBox10
Range("Q" & L).Value = TextBox11
Range("R" & L).Value = ListBox4
Range("X" & L).Value = " En attente de Revue d'approbation"
End If
Unload Me
Sheets("Accueil").Select
Range("A1").Select
End Sub