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

[Snieg53]

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

[Snieg53]

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