[COLOR="Blue"]Private Sub[/COLOR] CommandButton1_Click()
[COLOR="Green"]'[/COLOR]
[COLOR="blue"]Dim[/COLOR] Sh [COLOR="blue"]As[/COLOR] Worksheet
[COLOR="blue"]Dim[/COLOR] DLl&, ii&
[COLOR="green"]'[/COLOR]
[COLOR="blue"]On Error Resume Next[/COLOR]
[COLOR="blue"]Set[/COLOR] Sh = Sheets(ComboBox1.Value)
[COLOR="blue"]If[/COLOR] Err [COLOR="blue"]Then[/COLOR]
MsgBox "Feuille introuvable", 48
ComboBox1.DropDown
[COLOR="blue"]Exit Sub[/COLOR] [COLOR="Green"]'en cas d'entrée manuelle incorrecte[/COLOR]
[COLOR="blue"]End If[/COLOR]
[COLOR="blue"]On Error GoTo 0[/COLOR]
Sh.Visible = [COLOR="blue"]True[/COLOR] [COLOR="green"]'en cas de feuille masquée[/COLOR]
Sh.Activate
[COLOR="green"] '--------------suite du code de validation
' Petite modif perso, il est plus long de
' lire ou d'écrire une propriété d'un objet,
' Offset(1) dans ton cas, que de faire une
' addition... Même si cela n'a pas trop
' d'influence dans ce code, les bonnes
' habitudes se prennent dès le début :)[/COLOR]
DLl = ActiveSheet.[A65536].End(xlUp).Row + 1
[COLOR="green"] '--------------------------------------------
' code de Pierre-Jean (pour les dates)
'--------------------------------------------[/COLOR]
[COLOR="blue"]For[/COLOR] ii = 1 [COLOR="blue"]To[/COLOR] 3
[COLOR="blue"]If[/COLOR] ii = 1 [COLOR="blue"]Then[/COLOR]
ActiveSheet.Cells(DLl, ii) = [COLOR="blue"]CDate[/COLOR](Me.Controls("TextBox" & ii))
[COLOR="blue"]Else[/COLOR]
ActiveSheet.Cells(DLl, ii) = Me.Controls("TextBox" & ii)
[COLOR="blue"]End If[/COLOR]
[COLOR="blue"]Next[/COLOR]
[COLOR="green"] '--------------------------------------------
' Fin du code de Pierre-Jean
'--------------------------------------------[/COLOR]
[COLOR="green"]'--------------------------------------------
' à partir du code de PMO2
'--------------------------------------------[/COLOR]
[A1].CurrentRegion.Sort key1:=Sh.[A1]
[COLOR="green"]'--------------------------------------------[/COLOR]
Unload UserForm4
UserForm4.Show
[COLOR="blue"]End Sub[/COLOR]