Bonjour
Mon objectif est d’insérer des nouvelle ligne pour chaque enregistrement via une formulaire dans une Base de donnée,
Pour garder la même mise en forme, les mêmes fonctions, j'ai créer un tableau et je l'ai nommé BD,
le problème quand j’insère une nouvelle ligne pour écrire, cette dernier n’appartient plus a mon tableau( cote fonctions, équation, tableau croisée dynamique, ...)
j'ai opter la solution de faire une tabulation au niveau de la dernier cellule, mais une fois j'ajoute un code après la fonction SendKeys "{TAB}" , ça marche pas
pourriez vous me dire pourquoi ?
Merci pour votre aides

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Inserer_ligne_DB()
    Dim dercol
    Dim derligne
    dercol = Cells(8, Cells.Columns.Count).End(xlToLeft).Column
    MsgBox CStr(dercol)
    derligne = Cells(Rows.Count, 1).End(xlUp).Row
    MsgBox CStr(derligne)
    Cells(derligne, dercol).Select
    SendKeys "{TAB}"
    MsgBox "Pas de tabulation ?!!"                      ' J'ai ajouter ce commentaire pour savoir si le ligne juste avant est elle excutée ou non 
End Sub