Microsoft 365 Comportement bouton Ajouter formulaire base de données.

[ERN]

Bonjour le Forum,

J'ai un formulaire pour gérer une base de données. Je me rends compte que suivant le nombre de données dans ma base, mon boutons Ajouter... ne se comportent plus de la même manière. Là, il n'ajoute rien mais écrase la première ligne alors que ça fonctionne bien si je n'ai que 10 lignes par exemple.

Pourriez-vous me guider dans la résolution de ce problème ?

Je vous joins mon fichier. Par contre dans ce fichier je n'ai pas les 116 000 lignes de ma Bdd mais déjà ça déconne.

Cordialement,

 

[youky(BJ)]

Bonjour ERN,
Voici la macro corrigée et plus courte.
Bruno

Private Sub CommandButton3_Click()
' Saisie de la location dans la base de données
    Dim ligne%, col%
    With Feuil1 ' si feuil1 est Bdd
    ligne = .Range("A" & Rows.Count).End(xlUp).Row + 1'ici c'était pas bon
For col = 1 To 11
.Cells(ligne, col) = Controls("TxtB_" & col).Value
Next
End With
End Sub

 

[youky(BJ)]

Petite correction sinon dépassement de capacité avec integer
Dim ligne&, col%
Cela correspond Dim ligne as long et col as integer
Bruno

 

[ERN]

Effectivement, j'avais bien un dépassement de capacité.
Merci beaucoup Bruno, tout est rentré dans l'ordre.