Bonjour le Forum
J'utilise le code suivant pour me rendre à la première cellule vide de la colonne E de la feuille Depenses. Le code fonctionne, et il y a toujours un mais, une fois renseignée je n'arrive pas à sortir, ni avec la touche Tab ou la touche Entrée, de la cellule de la colonne E dans laquelle le code a placé le curseur. Il faut que je clique avec la souris dans la cellule pour la rendre active.
voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub VaDepenes()
 ' Dim oDoc As Object, oFeuille As Object, oZone As Object, oCell As Object 
  Dim zoneVide As Variant
  Dim x As Integer 
  oDoc = ThisComponent
  oFeuille = oDoc.getSheets.getByName("Depenses")  
  oZone = oFeuille.getCellRangeByName("E2:E100")
  zoneVide = oZone.queryEmptyCells.RangeAddresses
  x = zoneVide(0).StartRow
  x = x + 1
  oCell = oFeuille.getCellRangeByName("E" & x)
  oDoc.CurrentController.Select(oCell) 
 End Sub
Quelqu’un aurait-il une solution me permettant de sortir de la cellule avec la touche Tab après l'avoir renseignée.
Cordialement