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

ERN · 5 Mai 2021

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) · 5 Mai 2021

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

VB:

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) · 5 Mai 2021

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

ERN · 5 Mai 2021

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

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

ERN

XLDnaute Junior

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

youky(BJ)

XLDnaute Barbatruc

ERN

XLDnaute Junior

Discussions similaires