Private Sub CmbModifier_Click()
Dim LigneDeTransfert As Integer
With Sheets("Données 2010")
On Error Resume Next
LigneDeTransfert = 0
LigneDeTransfert = Application.WorksheetFunction _
.Match(CInt(ComboAdhérent), Worksheets("Données 2010").Range("A1:A10000"), 0)
On Error GoTo 0
If LigneDeTransfert = 0 Then
LigneDeTransfert = .Range("A65536").End(xlUp).Row + 1
End If
.Cells(LigneDeTransfert, 1) = CInt(Me.ComboAdhérent)
For CompteurDeColonne = 2 To 35
If CompteurDeColonne <> 8 And CompteurDeColonne <> 15 And CompteurDeColonne <> 21 _
And CompteurDeColonne <> 28 And CompteurDeColonne <> 33 Then
On Error Resume Next ' En cas d'erreur on continue
.Cells(LigneDeTransfert, CompteurDeColonne) = CDbl(Me.Controls("TextBox" & CompteurDeColonne))
On Error GoTo 0 ' Remet la gesion d'erreur normalement
End If
Next
.Cells(LigneDeTransfert, 8) = Me.Label108.Caption
.Cells(LigneDeTransfert, 15) = Me.Label308.Caption
.Cells(LigneDeTransfert, 21) = Me.Label408.Caption
.Cells(LigneDeTransfert, 28) = Me.Label508.Caption
.Cells(LigneDeTransfert, 33) = Me.Label608.Caption
.Cells(LigneDeTransfert, 36) = Me.Label708.Caption
End With
Unload Me
End Sub