Victor21
XLDnaute Barbatruc
Bonjour à tous
Je cherche, en double-cliquant sur la première cellule vide sous une table, à y ajouter une ligne et pouvoir sélectionner un des items de la liste déroulante, le plus simplement possible.
J'en suis là :
Mais, bien que cela fonctionne manuellement, ça coince, sur :
Je suis donc obligé de dé-sélectionner la cellule et d'y retourner pour choisir un nom dans la liste
Une âme charitable pourrait-elle me dire pourquoi ?
D'avance, merci.
Je cherche, en double-cliquant sur la première cellule vide sous une table, à y ajouter une ligne et pouvoir sélectionner un des items de la liste déroulante, le plus simplement possible.
J'en suis là :
VB:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = ActiveCell
If ActiveSheet.ProtectContents = True Then ActiveSheet.Unprotect
If Target.ListObject Is Nothing And Not Target.Offset(-1, 0).ListObject Is Nothing Then
Target.Offset(-1, 0).ListObject.ListRows.Add AlwaysInsert:=False
End If
Application.OnKey "ESC"
ActiveSheet.Protect userinterfaceonly:=True
End Sub
Application.OnKey "{ESC}"
Je suis donc obligé de dé-sélectionner la cellule et d'y retourner pour choisir un nom dans la liste
Une âme charitable pourrait-elle me dire pourquoi ?
D'avance, merci.
Pièces jointes
Dernière édition: