Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Name --> RefersTo

  • Initiateur de la discussion Initiateur de la discussion Neix
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

Neix

Guest
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.
 
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.
 
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
 

Pièces jointes

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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
11
Affichages
2 K
M
Réponses
2
Affichages
1 K
moialbert2
M
  • Question Question
Microsoft 365 Programme trop lent
Réponses
12
Affichages
1 K
I
  • Question Question
Réponses
1
Affichages
3 K
S
  • Question Question
Réponses
2
Affichages
826
S
N
Réponses
5
Affichages
3 K
Nicocotte125
N
Y
Réponses
3
Affichages
2 K
L
Réponses
1
Affichages
995
lilidxb
L
Réponses
1
Affichages
1 K
O
  • Question Question
Réponses
7
Affichages
1 K
O
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…