Discussion :

[Snieg53]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[boisgontierjacques]

Bojour,



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


Boisgontier

[Snieg53]

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

[boisgontierjacques]

Solution 1:

Set zSaisie = Range("A2:A10000")

Solution 2:

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

Boisgontier

[Snieg53]

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.

[boisgontierjacques]

-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