Name --> RefersTo

[Neix]

Bonjour,

J'apprends VBA en même temps que je dois programmer... J'ai fait le morceau de programme suivant en m'inspirant de programmes déjà existants:

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

(Est défini avant : Set WS_Database_Runs = Sheets("Database_Runs"))

' Recuperation d'une liste
V_DerLigne = WS_Database_Runs.Range("B4").End(xlDown).Row
V_RefPlage = "='Database_Runs'!$B$4:$B$" & V_DerLigne
Names.Add Name:="NomPlage", RefersTo:=V_RefPlage

(Imaginons que V_DerLigne = 6, alors V_RefPlage = 'Database_Runs'!$B$4:$B$6)

' ComboBox_NelleConfig est une liste déroulante à liste variable
Sheets("Database_Runs").ComboBox_NelleConfig.ListFillRange = "NomPlage"

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

J'avais compris que dès lors la propriété ListFillRange pointe sur NomPlage (et c'est ce que je vois dans les propriétés). Mais, si ailleurs dans mes macros je rajoute une valeur à ma liste et que je relance :

' Recuperation d'une liste
V_DerLigne = WS_Database_Runs.Range("B4").End(xlDown).Row
V_RefPlage = "='Database_Runs'!$B$4:$B$" & V_DerLigne
Names.Add Name:="NomPlage", RefersTo:=V_RefPlage

Alors V_DerLigne = 7, et V_RefPlage = 'Database_Runs'!$B$4:$B$7)

Néanmoins, quand je clique dans ma ComboBox, la liste n'est pas mise à jour...

Est-ce quelqu'un peut m'expliquer pourquoi, c'est surement une subtilité du visual basic que je n'ai pas saisi...

Nicolas.

 

[skoobi]

Re : Name --> RefersTo

Bonsoir,
A mon avis il faut que tu vides ta combo actuelle en faisant:

 ComboBox_NelleConfig.Clear

avant de créer la nouvelle.

A+

 

[Catrice]

Re : Name --> RefersTo

Bonsoir,

Dans le fichier joint qqs exemples.
Il n'est pas necessaire de faire un Clear quand on utilise ListFillRange.
En revanche, en utilisant AddItem ça peut etre utile.

 

[fred65200]

Re : Name --> RefersTo

bonjour skoobi,

gros coup de pousse
ou
gros coup de pouce

fred65200

 

[skoobi]

Re : Name --> RefersTo

bonjour skoobi,

gros coup de pousse
ou
gros coup de pouce

fred65200

Bonjour fred,
Oupss!!!!

 

[Neix]

Re : Name --> RefersTo - Pb RESOLU

Merci à vous pour vos réponses rapides.
Merci Catrice, ton fichier exemple m'est bien utile. Bon, je ne maîtrise pas encore toutes les subtilités vis-à-vis de VBA, mais il y a dans tes exemples des solutions qui semblent marcher. Je vais m'en inspirer pour réécrire une partie de mon programme...

Ceci étant, J'aimerais vous donner un fichier exemple pour qu'on m'explique l'erreur que je commets, mais il fait 60ko > 48.8 ko...
Une astuce ??

Neix.

 

[Catrice]

Re : Name --> RefersTo

Re,

zipper le fichier ou Accueil de Cjoint.com

 

[Neix]

Re : Name --> RefersTo

Autant pour moi...
Voici une version zippée.

Une fois le fichier ouvert :
-1- Je clique sur Nouvelle Configuration --> 3 éléments apparaissent
-2- Dans la ListBox qui apparait, je sélectionne un élément (223 par exemple)
-3- Puis je clique sur Create --> Une nouvelle colonne s'affiche en L, qui est une copie de la colonne 22" (en I)
On voit bien apparaitre un nouveau numéro en B7, NomPlage pointe maintenant sur B4:B7. Seulement, si on clique sur la ComboBox situé en D4, qui pointe sur NomPlage, la dernière valeur (celle en B7) n'apparait pas. Et pourtant, quand je regarde mes variables en faisant Crtl F3, NomPlage pointe bien sur B4:B7.

Merci d'avance...

Neix

 

[Catrice]

Re : Name --> RefersTo

Re,

Comme expliqué dans les exemples, il faut un evenement déclencheur pour "rafraichir" la liste.
On peut utiliser :
Private Sub ComboBox_Config1_DropButtonClick()
ComboBox_Config1.ListFillRange = Range("NomPlage").Address
End Sub

En cliquant sur la liste, on redefinit la zone ListFillRange.

Mais on peut aussi utiliser la solution 1 des exemples qui est plus simple.

Voir fichier joint