Bonjour,

J'ai crée une base de données technologique. J'ai aperçu plusieurs problèmes mais je préfère traiter un par un.

Le plus énervant, c'est le probleme d'insertion automatique. Après avoir insérer les données dans des champs, ça l'insère dans la première ligne. Le soucis que pour la prochaine insertion, il écrase la première ligne au lieu de passer à la ligne suivante, sachant que la première ligne commence à la ligne 6.

J'ai pourtant bien activer la feuille.

Voici le code que j'ai mis:

Private Sub Insérer_Click()
If Bdocument = True And Bnumero = True _
    And Bobjet = True And Bdate = True And Bsupport = True _
    And Bemplacement = True And Bproduit = True And Bmotcle = True _
    And Btype = True And Bsoustype = True And Bfamille = True _
    And Bmodele1 = True And Bzf = True Then
        Application.ScreenUpdating = False
        CalculLigne
        Sheets("BASE de DONNEES").Range("A" & i).Value = ListBoxDocument.List(ListBoxDocument.ListIndex)
        Sheets("BASE de DONNEES").Range("B" & i).Value = TextBoxNumero.Value
        Sheets("BASE de DONNEES").Range("C" & i).Value = TextBoxObjet.Value
        Sheets("BASE de DONNEES").Range("D" & i).Value = TextBoxDate.Value
        Sheets("BASE de DONNEES").Range("E" & i).Value = ListBoxSupport.List(ListBoxSupport.ListIndex)
        Sheets("BASE de DONNEES").Range("F" & i).Value = TextBoxEmplacement.Value
        Sheets("BASE de DONNEES").Range("G" & i).Value = ComboBoxProduit.Value
        Sheets("BASE de DONNEES").Range("H" & i).Value = ComboBoxMotCle.Value
        Sheets("BASE de DONNEES").Range("I" & i).Value = ComboBoxType.Value
        Sheets("BASE de DONNEES").Range("J" & i).Value = ComboBoxSousType.Value
        Sheets("BASE de DONNEES").Range("K" & i).Value = ComboBoxFamille.Value
        Sheets("BASE de DONNEES").Range("L" & i).Value = ComboBoxModele1.Value
        Sheets("BASE de DONNEES").Range("M" & i).Value = TextBoxZF.Value
    Else
        GestionInsertion
    End If
End Sub

Private Sub CalculLigne()
    For i = 6 To Range("D65536").End(xlUp).Row
        If Sheets("BASE de DONNEES").Cells(i, 1).Value = "" Then
            Exit For
        End If
    Next i