Macro tros long d'exécution

j'ai une macro qui es long dans sont exécution, 18 seconde

j'ai des bouton nouveau et modifier et quand je clic dessus cela lance un enregistrement.

Private Sub WriteRecord(ByVal RecordNumber As Long)
 ' Ecriture de l'enregistrement
 Me.cboMember.ListIndex = -1
 RecordNumber = RecordNumber + 1
 RecordNumber2 = sheets("Club").Range("A3").End(xlUp).Row
 With rng
  With .Cells(RecordNumber, 1)
   If Len(.Value) = 0 Then ' ID
    .Value = Application.WorksheetFunction.Max(rng.Columns(1)) + 1
   End If

Dim N
.NumberFormat = "F" & Year(Date) & "-" & Format(N + 1, "00000")
  End With
  Application.ScreenUpdating = False
    .Cells(RecordNumber, 7) = Me.txtName
    .Cells(RecordNumber2, 7) = Me.txtName
    .Cells(RecordNumber, 8) = Me.txtFirstName
    .Cells(RecordNumber, 2) = Me.txtLicence
    .Cells(RecordNumber, 6) = IIf(Me.optFemale = True, "F", "M")
    .Cells(RecordNumber, 31) = cboRéglement
    .Cells(RecordNumber, 32) = Me.txtfacture
    .Cells(RecordNumber, 9) = Me.txtDatenaissance
    .Cells(RecordNumber, 4) = Me.txtinscription
    .Cells(RecordNumber, 11) = Me.txtcodepostal
    .Cells(RecordNumber, 12) = Me.txtville
    .Cells(RecordNumber, 10) = Me.txtadresse
    .Cells(RecordNumber, 13) = Me.txttel
    .Cells(RecordNumber, 16) = Me.txttel2
    .Cells(RecordNumber, 14) = Me.txtemail
    .Cells(RecordNumber, 15) = Me.txtprofession
    .Cells(RecordNumber, 3) = Me.lablic
    .Cells(RecordNumber, 17) = Me.cboassurance.Caption
    .Cells(RecordNumber, 18) = Me.cboRégions
    .Cells(RecordNumber, 21) = Me.txtsaison
    .Cells(RecordNumber, 30) = Me.txtpays
    .Cells(RecordNumber, 33) = Me.cbotypes

 End With
 Me.cboMember.ListIndex = CurrentRecord
End Sub

Bonjour,

Pour commencer, mets en début de procédure :

Application.ScreenUpdating=False

A te relire.

Cdlt.

bonjour déjà testé

cela na rien changer

bonjour,

Le RecordNumber2 me parait vraiment incongru dans ce contexte mais ce n'est sans doute pas cela qui pose problème :

Cette macro n'est qu'un élément d'un programme complexe (CRUD), extirpée de son contexte, il n'est pas possible de l'évaluer sans disposer du classeur qui va bien avec.

Fournir ce casseur avec juste quelques lignes pour tester...

A+

voila le fichier

merci

Bonjour,

Avec Nouveau, en documentant les données et en validant par Confirmer, le résultat est instantané...

Cdlt.

Nota : ton fichier a sensiblement réduit.

quand je remplie avec les donnés (10 000 ligne) ça continue.

voila en fête plus je rajoute de ligne plus cela augmente le temps de calcul.

possible que cela ne fonctionne pas, ou autrement.

merci quand même d'avoir regardé