Paramétrer Cellules d'une Liste Déroulante Intuitif code VBA

Bonjour,
Dans le code ci-dessous, [emprunté sur le très bon site de Jacques Boisgontier: (http://boisgontierjacques.free.fr/) et qui fonctionne très bien] je voudrais pouvoir paramétrer les cellules Ax:Ay de telle sorte que si j'intercale des lignes supplémentaires dans le tableau je n'ai pas besoin de modifier le code VBA.
Existe-t-il une solution?
Merci
--------------------

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([Ax:Ay], Target) Is Nothing And Target.Count = 1 Then a = Application.Transpose(Sheets("Feuille1").Range("Donnees").Value) Me.ComboBox1.List = a Me.ComboBox1.Height = Target.Height + 3 Me.ComboBox1.Width = Target.Width Me.ComboBox1.Top = Target.Top Me.ComboBox1.Left = Target.Left Me.ComboBox1 = Target Me.ComboBox1.Visible = True Me.ComboBox1.Activate Me.ComboBox1.DropDown Else Me.ComboBox1.Visible = False End If End Sub

---

----------------------

Bojour,



a = Application.Transpose(f.Range("a2:a" & f.[A65000].End(xlUp).Row))


Boisgontier

Merci Jacques de ce retour.
Une précision toutefois:
Dans votre exemple joint (DVSaisieIntuitiveComboBox-2), à la fauille "Saisie", si j'insère une nouvelle ligne entre lignes 2 et 16, la liste n'est pas active à la cellule A17.
Mon problème est le paramétrage de la zone de saisie: Range("A2:A16") dans votre exemple et non pas le paramétrage de la liste des données BD: (f.Range("a2:a" & f.[A65000].End(xlUp).Row)).
Désolé de ne m'être pas bien expliqué dans mon message d'origine.
Pierre

Solution 1:

Set zSaisie = Range("A2:A10000")

Solution 2:

Set zSaisie = Range("A2:A" & [A65000].End(xlUp).Row + 1)

Boisgontier

Les deux solutions proposées fonctionnent mais ne répondent pas exactement à mon problème.
Dans votre exemple (DVSaisieIntuitiveComboBox-2), mon souhait est d'avoir la liste accessible dans les cellules A2 à A17 si j'insère une nouvelle ligne entre la ligne 2 et la ligne 16, A2 à A18 si j'insère deux nouvelles lignes entre la ligne 2 et la ligne 16 et ainsi de suite.

-Nommer le champ A2:A16 zsaisie

Set zSaisie = Range("zsaisie") ' Range("A2:A16")

Le champ sera agrandi automatiquement en cas d'insertion de ligne.


Boisgontier

Parfait, c'était bien simple et comme toujours il suffisait d'y penser (où de le savoir)
J'aurais du faire l'essai sans vous importuner.
Merci encore
Pierre

Je reviens dans cette discussion car j'ai constaté que sur une feuille ayant ce code VBA (voir mon premier message initiateur de ce fil de discussion), les fonctions bien utiles "Annuler" et "Rétablir" sont partiellement inopérantes.
Confirmation, solutions ou suggestions sont les bienvenues.
Pierre