Possible de doubler les entrées ?

Bonjour à tous !

Je fais un peu de zèle je sasi mais je pose tout de même la question car je suis dans le floue et je ne sais pas du tout si cela peut se faire en vba...

Toujours à partir de mon userform je complète ma base de donnée, mon tableau Excel. Pour info, je travaille avec la version 2016.

On m'a dit que de laisser une ligne vide dans le tableau n'est pas une bonne pratique. Considérant cette information ... serait-il possible de doubler les entrées ? Je pousse un peu ce projet car il serait plus avantageux d'avoir, comme résultat, deux lignes identiques.

Le code utilisé pour l'inscription dans la base à partir de mon userform :

'Inscrire dans la source

Private Sub Boutoninscrire_Click()

Sheets("Inscriptions").Activate
If Range("T_inscription").Rows.Count > 19 Then
    MsgBox "Tableau complet", vbOKOnly + vbInformation, "COMFIRMATION"
    Unload Me
    Exit Sub
   End If
With Sheets("Inscriptions")
.Unprotect Password:="CES"

If Bassins = "" Or ChoixRLS = "" Or NUM = "" Or Choixhrs = "" Or nomprenom = "" Or choixlangue = "" Or TextBox6 = "" Or datenaissance = "" Or typedemande = "" Or IntPivot = "" Or Intautres = "" Or profilintervention = "" Or profilisosmaf = "" Or oemcdate = "" Or raisoncode = "" Then
MsgBox ("Tous les champs ne sont pas correctement remplis")
Exit Sub
End If

If Sheets("Inscriptions").Range("B3") = "" Then
Sheets("Inscriptions").Range("B3") = Bassins
Else
Sheets("Inscriptions").ListObjects(1).ListRows.Add
'Insérer à la dernière ligne

MsgBox Range("T_inscription").Rows.Count, vbOKOnly + vbInformation, "COMFIRMATION"

Range("B3").End(xlDown).Offset(1, 0).Select

ActiveCell = Bassins.Value
ActiveCell.Offset(0, 1).Value = ChoixRLS
ActiveCell.Offset(0, 2).Value = NUM
ActiveCell.Offset(0, 3).Value = Format(Me.Choixhrs.Value, "hh:mm:ss")
ActiveCell.Offset(0, 4).Value = nomprenom
ActiveCell.Offset(0, 5).Value = choixlangue
ActiveCell.Offset(0, 6).Value = TextBox6
ActiveCell.Offset(0, 7).Value = datenaissance
ActiveCell.Offset(0, 8).Value = typedemande
ActiveCell.Offset(0, 9).Value = IntPivot
ActiveCell.Offset(0, 10).Value = Intautres
ActiveCell.Offset(0, 11).Value = profilintervention
ActiveCell.Offset(0, 12).Value = profilisosmaf
ActiveCell.Offset(0, 13).Value = Format(Me.oemcdate.Value, "YYYY/MM/DD")
ActiveCell.Offset(0, 14).Value = raisoncode

MsgBox "Les informations ont été ajoutés à la base de donnée", vbOKOnly + vbInformation, "COMFIRMATION"
End If
.protect Password:="CES"
End With

End Sub

Il faut savoir que je balise à moins de 20 lignes.

Merci pour vos éclaircissements et votre aide !

Annie

Bonjour Annie,

Il est en effet conseillé de ne pas laissé de lignes vides mais ce n'est pas interdit. Tout dépend de l'usage que l'on fait du tableau structuré.

Si c'est une base de données destinée à alimenter des TCD alors oui évitons les lignes blanches mais si c'est pour alimenter un tableau de saisie ou un tarif par exemple, alors c'est peut être même utile de laisser des lignes blanches.

En tous cas c'est toujours mieux que de mettre deux fois la même ligne.

Bonne continuation

Chris

Alors oui je crois qu'il y a une possible éventualité à l'utilisation des TCD dans ce projet. J'essaierai donc de voir s'il y a possibilité à laisser une ligne vide dans la base.

Merci pour la réponse !

Annie