Re : classeur compatible 2003 & 2000
Bonsoir je vais donc essayer de me rappeler des erreurs deja il y avait celle là:>>
' Mise en place des valeurs saisies
DerLig = [A65000].End(xlUp).Row + 1
Cells(DerLig, 1) = TextBox1
Cells(DerLig, 2) = ComboBox2
Cells(DerLig, 3) = ComboBox3
Cells(DerLig, 4) = ComboBox4
Cells(DerLig, 5) = ComboBox5
Cells(DerLig, 6) = ComboBox6
Cells(DerLig, 7) = ComboBox7
Cells(DerLig, 8) = ComboBox8
Cells(DerLig, 9) = ComboBox9
Cells(DerLig, 10) = ComboBox10
Cells(DerLig, 11) = ComboBox11
Cells(DerLig, 12) = ComboBox12
Cells(DerLig, 13) = ComboBox13
Cells(DerLig, 14) = ComboBox14
Cells(DerLig, 15) = ComboBox15
Cells(DerLig, 16) = ComboBox16
Cells(DerLig, 17) = ComboBox17
Cells(DerLig, 18) = ComboBox18
Cells(DerLig, 19) = ComboBox19
Cells(DerLig, 20) = ComboBox20
Cells(DerLig, 21) = ComboBox21
' On décharge le formulaire
Unload Me
et puis celle-ci aussi: >>
Sub classerparnom()
'
' classerparnom Macro
' Macro enregistrée le 02/06/2008 par gilbert
'
'
Columns("A:S").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("A2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=
xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A2").Select
End Sub
Voila merci pour vos lumières, mes amitiés