Private Sub CommandButton2_Click() 'modifie
On Error Resume Next
If OptionButton4 = True Then
With Sheets("Feuil1")
.Cells(Index, 1).Value = CDbl(TextBox1)
.Cells(Index, 2).Value = TextBox2
.Cells(Index, 3).Value = TextBox3
.Cells(Index, 4).Value = TextBox4
.Cells(Index, 5).Value = CDate(TextBox5)
'.Cells(Index, 5).Value = TextBox5 ''''''''''''''''''''Efface la formule
If Me.OptionButton1 Then .Cells(Index, 7).Value = Me.OptionButton1.Caption
If Me.OptionButton2 Then .Cells(Index, 7).Value = Me.OptionButton2.Caption
.Cells(Index, 8).Value = ComboBox1 'commune
.Cells(Index, 9).Value = Format(TextBox7.Value, "0####") 'code
.Cells(Index, 10).Value = TextBox8
.Cells(Index, 11).Value = TextBox9
.Cells(Index, 12).Value = TextBox10
.Cells(Index, 13).Value = ComboBox2.Value 'qualif.
.Cells(Index, 14).Value = ComboBox3.Value 'qualification
.Cells(Index, 15).Value = ComboBox4.Value 'qualif.
.Cells(Index, 16).Value = ComboBox5.Value 'qualification
.Cells(Index, 17).Value = TextBox11 ' Email
'.Cells(Index, 18).Value = CDbl(TextBox12) 'N° de Fiche
.Cells(Index, 19).Value = ComboBox6.Value 'Secourisme
.Cells(Index, 20).Value = ComboBox7.Value 'Aquatique
.Cells(Index, 21).Value = TextBox13 ' CCmpétences
.Cells(Index, 22).Value = TextBox14 ' Obser 2
.Cells(Index, 23).Value = ComboBox8.Value 'Structure
.Cells(Index, 24).Value = ComboBox9.Value 'Prévoir
[B].Cells(Index, 25).Value = CDate(TextBox15) 'Date d'entretien[/B]
.Cells(Index, 26).Value = TextBox16 ' Résult Entretien
.Cells(Index, 27).Value = TextBox17 ' Résult Entretien
.Cells(Index, 28).Value = TextBox18 ' Résult Entretien
.Cells(Index, 29).Value = TextBox19 ' Résult Entretien
.Cells(Index, 30).Value = TextBox20 ' Résult Entretien
.Cells(Index, 31).Value = TextBox21 ' Résult Entretien
.Cells(Index, 32).Value = ComboBox10.Value 'SSAN
.Cells(Index, 33).Value = ComboBox11.Value 'Par
[B] .Cells(Index, 34).Value = CDbl(TextBox22) ' Crit 1
.Cells(Index, 35).Value = CDbl(TextBox23) ' Crit 2
.Cells(Index, 36).Value = CDbl(TextBox24) ' Crit 3
.Cells(Index, 37).Value = CDbl(TextBox25) ' Crit 4
.Cells(Index, 38).Value = CDbl(TextBox26) ' Crit 5
.Cells(Index, 39).Value = CDbl(TextBox27) ' Crit 6
.Cells(Index, 40).Value = CDbl(TextBox28) ' Crit 7[/B] .Cells(Index, 42).Value = TextBox30 'Appré Générale
.Cells(Index, 43).Value = TextBox31 'Rejet
.Cells(Index, 44).Value = TextBox32 'liste attent
.Cells(Index, 45).Value = TextBox33 'Eté ou SSAN
.Cells(Index, 46).Value = TextBox34 ' Juillet
.Cells(Index, 47).Value = TextBox35 ' Août
.Cells(Index, 48).Value = TextBox36 'Stage d'Adap
.Cells(Index, 50).Value = TextBox37 'Avis Anciens
.Cells(Index, 51).Value = TextBox38 'Voeux
.Cells(Index, 52).Value = TextBox39 'Diplômes
.Cells(Index, 53).Value = TextBox40 'Ski
.Cells(Index, 54).Value = TextBox41 'Mobilité
.Cells(Index, 55).Value = TextBox42 'Proposition
.Cells(Index, 56).Value = TextBox43 'Dispo
.Columns("A:K").AutoFit 'ajuste les colonnes
.Columns("M:R").AutoFit 'ajuste les colonnes
End With
End If
Me.OptionButton4 = False
TextBox6.Text = Sheets("Feuil1").Cells(Index, 6).Value
TextBox29.Text = Sheets("Feuil1").Cells(Index, 41).Value
Label7.Caption = ""
Me.CommandButton2.Enabled = False
'EffaceControl Me
TextBox2.SetFocus
Calendar1.Value = Now
End Sub