Private Sub Validation_Click()
MONTANT = Format(MONTANT, "0.00")
RPOSTE.Value = RPOSTE & "%"
MaDate = Me.DATE_RELANCE & "/" & Me.MOIS_RELANCE & "/" & Me.ANNEE_RELANCE
With Feuil2
der = .Cells(Rows.Count, 1).End(3)(2).Row
For i = 1 To 7
If Me.Controls("C" & i) Then
der = der + 1
.Cells(der, 1) = Date_Saisie
.Cells(der, 3) = Numero_affaire
.Cells(der, 4) = version
.Cells(der, 8) = SOCIETE
.Cells(der, 9) = DEP_SOCIETE
.Cells(der, 10) = INTERLOCUTEUR
.Cells(der, 13) = RPOSTE
For y = 10 To 14
If Me("Op" & y) Then .Cells(der, 13) = Me("Op" & y).Caption
Next y
.Cells(der, 14) = CDate(MaDate)
.Cells(der, 20) = Commentaires
.Cells(der, 5) = Controls("Q" & i)
.Cells(der, 6) = Controls("N" & i)
.Cells(der, 7) = Controls("C" & i).Caption
.Cells(der, 11) = Controls("M" & i)
End If
Next i
End With
Unload Me
UserForm1.Show
End Sub