Problème avec SendKeys "{TAB}"
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:
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 |
