Dépassement de capacité

Bonjour tout le monde!

J'espère que vous allez bien.

Je travaille avec un petit formulaire sous excel depuis plus d'un an, sans le moindre problème.

Et il y a quelques jours, je me retrouve avec cette erreur de "dépassement de capacité", sans vraiment comprendre pourquoi.

Après tests, j'ai trouvé que ceci est du au fait que j'aie dépassé un total de 32767 enregistrements, j'ai automatiquement pensé à changer les integer en long, mais ça ne fonctionnaire toujours pas.

Voici le code relatif à l'opération d'enregistrement, si vous pouvez m'éclairer dessus ...

'Bouton Enregistrer

Private Sub CommandButton1_Click()

TextBox2.Text = Format(TextBox2.Text, "mm/dd/yyyy")

Dim i As Long

i = 2

Dim trouver1 As Boolean

Dim k As Long

Dim x As Long

While Worksheets("DATA").Cells(i, 1) <> "" And trouver1 = False

If Worksheets("DATA").Cells(i, 1) = TextBox1.Text Then

trouver1 = True: k = i

x = MsgBox("Voulez-vous modifier l'enregistrement existant ?", 36, "Affaire déjà enregistrée !")

If Not x = 6 Then Exit Sub

Else

i = i + 1

End If

Wend

If trouver1 = False Then Enregistrement (i) Else Enregistrement (k)

End Sub

Merci à vous!

Bonjour fsaadi, bonjour le forum,

Rien n'indique ce qu'est Enregistrement dans ton code ? C'est certainement dans la déclaration et/ou la définition de cette variable que se trouve le problème...