raccourcir un code

[dede039]

bonjours a tous

comment raccourcir ce code

Private Sub CommandButton26_Click()
If UserForm2.N1.Value <> Sheets("record").Range("H5") Then Sheets("record").Range("H5") = UserForm2.N1.Value
If UserForm2.N2.Value <> Sheets("record").Range("H6") Then Sheets("record").Range("H6") = UserForm2.N2.Value
If UserForm2.N3.Value <> Sheets("record").Range("H7") Then Sheets("record").Range("H7") = UserForm2.N3.Value
If UserForm2.N4.Value <> Sheets("record").Range("H8") Then Sheets("record").Range("H8") = UserForm2.N4.Value
If UserForm2.N5.Value <> Sheets("record").Range("H9") Then Sheets("record").Range("H9") = UserForm2.N5.Value
If UserForm2.N6.Value <> Sheets("record").Range("H10") Then Sheets("record").Range("H10") = UserForm2.N6.Value
If UserForm2.N7.Value <> Sheets("record").Range("H11") Then Sheets("record").Range("H11") = UserForm2.N7.Value
If UserForm2.N8.Value <> Sheets("record").Range("H12") Then Sheets("record").Range("H12") = UserForm2.N8.Value
If UserForm2.N9.Value <> Sheets("record").Range("H13") Then Sheets("record").Range("H13") = UserForm2.N9.Value
If UserForm2.N10.Value <> Sheets("record").Range("H14") Then Sheets("record").Range("H14") = UserForm2.N10.Value
If UserForm2.N11.Value <> Sheets("record").Range("H15") Then Sheets("record").Range("H15") = UserForm2.N11.Value
If UserForm2.N12.Value <> Sheets("record").Range("H16") Then Sheets("record").Range("H16") = UserForm2.N12.Value
If UserForm2.N13.Value <> Sheets("record").Range("H17") Then Sheets("record").Range("H17") = UserForm2.N13.Value
If UserForm2.N14.Value <> Sheets("record").Range("H18") Then Sheets("record").Range("H18") = UserForm2.N14.Value
If UserForm2.N15.Value <> Sheets("record").Range("H19") Then Sheets("record").Range("H19") = UserForm2.N15.Value
If UserForm2.N16.Value <> Sheets("record").Range("H20") Then Sheets("record").Range("H20") = UserForm2.N16.Value
If UserForm2.N17.Value <> Sheets("record").Range("H21") Then Sheets("record").Range("H21") = UserForm2.N17.Value
If UserForm2.N18.Value <> Sheets("record").Range("H22") Then Sheets("record").Range("H22") = UserForm2.N18.Value
If UserForm2.N19.Value <> Sheets("record").Range("H23") Then Sheets("record").Range("H23") = UserForm2.N19.Value
If UserForm2.N20.Value <> Sheets("record").Range("H24") Then Sheets("record").Range("H24") = UserForm2.N20.Value
If UserForm2.N21.Value <> Sheets("record").Range("H25") Then Sheets("record").Range("H25") = UserForm2.N21.Value
If UserForm2.N22.Value <> Sheets("record").Range("H26") Then Sheets("record").Range("H26") = UserForm2.N22.Value
If UserForm2.N23.Value <> Sheets("record").Range("H27") Then Sheets("record").Range("H27") = UserForm2.N23.Value
If UserForm2.N24.Value <> Sheets("record").Range("H28") Then Sheets("record").Range("H28") = UserForm2.N24.Value
If UserForm2.N25.Value <> Sheets("record").Range("H29") Then Sheets("record").Range("H29") = UserForm2.N25.Value
If UserForm2.N26.Value <> Sheets("record").Range("H30") Then Sheets("record").Range("H30") = UserForm2.N26.Value
If UserForm2.N27.Value <> Sheets("record").Range("H31") Then Sheets("record").Range("H31") = UserForm2.N27.Value
If UserForm2.N28.Value <> Sheets("record").Range("H32") Then Sheets("record").Range("H32") = UserForm2.N28.Value
If UserForm2.N29.Value <> Sheets("record").Range("H33") Then Sheets("record").Range("H33") = UserForm2.N29.Value
If UserForm2.R1.Value <> Sheets("record").Range("I5") Then Sheets("record").Range("I5") = UserForm2.R1.Value
If UserForm2.R2.Value <> Sheets("record").Range("I6") Then Sheets("record").Range("I6") = UserForm2.R2.Value
If UserForm2.R3.Value <> Sheets("record").Range("I7") Then Sheets("record").Range("I7") = UserForm2.R3.Value
If UserForm2.R4.Value <> Sheets("record").Range("I8") Then Sheets("record").Range("I8") = UserForm2.R4.Value
If UserForm2.R5.Value <> Sheets("record").Range("I9") Then Sheets("record").Range("I9") = UserForm2.R5.Value
If UserForm2.R6.Value <> Sheets("record").Range("I10") Then Sheets("record").Range("I10") = UserForm2.R6.Value
If UserForm2.R7.Value <> Sheets("record").Range("I11") Then Sheets("record").Range("I11") = UserForm2.R7.Value
If UserForm2.R8.Value <> Sheets("record").Range("I12") Then Sheets("record").Range("I12") = UserForm2.R8.Value
If UserForm2.R9.Value <> Sheets("record").Range("I13") Then Sheets("record").Range("I13") = UserForm2.R9.Value
If UserForm2.R10.Value <> Sheets("record").Range("I14") Then Sheets("record").Range("I14") = UserForm2.R10.Value
If UserForm2.R11.Value <> Sheets("record").Range("I15") Then Sheets("record").Range("I15") = UserForm2.R11.Value
If UserForm2.R12.Value <> Sheets("record").Range("I16") Then Sheets("record").Range("I16") = UserForm2.R12.Value
If UserForm2.R13.Value <> Sheets("record").Range("I17") Then Sheets("record").Range("I17") = UserForm2.R13.Value
If UserForm2.R14.Value <> Sheets("record").Range("I18") Then Sheets("record").Range("I18") = UserForm2.R14.Value
If UserForm2.R15.Value <> Sheets("record").Range("I19") Then Sheets("record").Range("I19") = UserForm2.R15.Value
If UserForm2.R16.Value <> Sheets("record").Range("I20") Then Sheets("record").Range("I20") = UserForm2.R16.Value
If UserForm2.R17.Value <> Sheets("record").Range("I21") Then Sheets("record").Range("I21") = UserForm2.R17.Value
If UserForm2.R18.Value <> Sheets("record").Range("I22") Then Sheets("record").Range("I22") = UserForm2.R18.Value
If UserForm2.R19.Value <> Sheets("record").Range("I23") Then Sheets("record").Range("I23") = UserForm2.R19.Value
If UserForm2.R20.Value <> Sheets("record").Range("I24") Then Sheets("record").Range("I24") = UserForm2.R20.Value
If UserForm2.R21.Value <> Sheets("record").Range("I25") Then Sheets("record").Range("I25") = UserForm2.R21.Value
If UserForm2.R22.Value <> Sheets("record").Range("I26") Then Sheets("record").Range("I26") = UserForm2.R22.Value
If UserForm2.R23.Value <> Sheets("record").Range("I27") Then Sheets("record").Range("I27") = UserForm2.R23.Value
If UserForm2.R24.Value <> Sheets("record").Range("I28") Then Sheets("record").Range("I28") = UserForm2.R24.Value
If UserForm2.R25.Value <> Sheets("record").Range("I29") Then Sheets("record").Range("I29") = UserForm2.R25.Value
If UserForm2.R26.Value <> Sheets("record").Range("I30") Then Sheets("record").Range("I30") = UserForm2.R26.Value
If UserForm2.R27.Value <> Sheets("record").Range("I31") Then Sheets("record").Range("I31") = UserForm2.R27.Value
If UserForm2.R28.Value <> Sheets("record").Range("I32") Then Sheets("record").Range("I32") = UserForm2.R28.Value
If UserForm2.R29.Value <> Sheets("record").Range("I33") Then Sheets("record").Range("I33") = UserForm2.R29.Value
If UserForm2.R30.Value <> Sheets("record").Range("I34") Then Sheets("record").Range("I34") = UserForm2.R30.Value
If UserForm2.R31.Value <> Sheets("record").Range("I35") Then Sheets("record").Range("I35") = UserForm2.R31.Value
If UserForm2.R32.Value <> Sheets("record").Range("I36") Then Sheets("record").Range("I36") = UserForm2.R32.Value
If UserForm2.R33.Value <> Sheets("record").Range("I37") Then Sheets("record").Range("I37") = UserForm2.R33.Value
If UserForm2.R34.Value <> Sheets("record").Range("I38") Then Sheets("record").Range("I38") = UserForm2.R34.Value
If UserForm2.R35.Value <> Sheets("record").Range("I39") Then Sheets("record").Range("I39") = UserForm2.R35.Value
If UserForm2.R36.Value <> Sheets("record").Range("I40") Then Sheets("record").Range("I40") = UserForm2.R36.Value
If UserForm2.R37.Value <> Sheets("record").Range("I41") Then Sheets("record").Range("I41") = UserForm2.R37.Value
If UserForm2.R38.Value <> Sheets("record").Range("I42") Then Sheets("record").Range("I42") = UserForm2.R38.Value
If UserForm2.R39.Value <> Sheets("record").Range("I43") Then Sheets("record").Range("I43") = UserForm2.R39.Value
If UserForm2.R40.Value <> Sheets("record").Range("I44") Then Sheets("record").Range("I44") = UserForm2.R40.Value
If UserForm2.R41.Value <> Sheets("record").Range("I45") Then Sheets("record").Range("I45") = UserForm2.R41.Value
If UserForm2.R42.Value <> Sheets("record").Range("I46") Then Sheets("record").Range("I46") = UserForm2.R42.Value
If UserForm2.R43.Value <> Sheets("record").Range("I47") Then Sheets("record").Range("I47") = UserForm2.R43.Value
If UserForm2.R44.Value <> Sheets("record").Range("I48") Then Sheets("record").Range("I48") = UserForm2.R44.Value
If UserForm2.R45.Value <> Sheets("record").Range("I49") Then Sheets("record").Range("I49") = UserForm2.R45.Value
End Sub

 

[Pierrot93]

Re : raccourcir un code

Bonsoir,

regarde peut être ceci :

Dim i As Byte
With Sheets("record")
    For i = 1 To 29
        If Me.Controls("N" & i).Value <> .Range("H" & i + 4) Then .Range("H" & i + 4) = Me.Controls("N" & i).Value
    Next i
End With

même principe à appliquer pour l'autre série...

bonne soirée
@+

 

[dede039]

Re : raccourcir un code

bonsoir et merci pierrot93
sa marche très bien