XL 2016 .RowSource et Combobox

ChTi160

XLDnaute Barbatruc

• 11 Juin 2019

• #2

Bonsoir PaulTrax
je pense que

.Rowsource demande une adresse de plage

Cliquez pour agrandir...

Avec Dim Rng ad Range
un exemple :

VB:

Set Rng=Range（“A1:A10”）
et
 .RowsSource=Rng.Address

jean marie

 

Vote positif 0 Vote négatif

P

PaulTrax

XLDnaute Nouveau

• 12 Juin 2019

• #3

Merci jean marie,

j'ai repris ton code , le souci c'est que ma liste est fluctuante, suivant l'ajout de nouveaux articles.
J'ai essayé de varier ton code :

Private Sub Userform_Initialize()
Dim f
Set f = Sheets("Articles")
Set Rng= f.Range("C2:C" & .Range("C1250").End(xlUp).Row).Value
liste_ref.List = Rng.Address

End Sub

Toujours aucun effet !

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 12 Juin 2019

• #4

bonjour

PaulTrax
si tu employes la propriété list de combonox ou listbox,il faut employer la propriété value de range
Private Sub Userform_Initialize()
Dim f
Set f = Sheets("Articles")
Set Rng= f.Range("C2:C" & .Range("C1250").End(xlUp).Row).Value
liste_ref.List = Rng.Value'Address

End Sub

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 12 Juin 2019

• #5

Bonjour PaulTrax
Bonjour Bebere ,le Forum
dans mon exemple il n y avait pas de

.value

Cliquez pour agrandir...

dans le

VB:

 Set Rng=f.Range（“C2:C”etc）

il faut aussi que tu mettes

VB:

f.Range（“C1250”）.End（xlUp）.Row

mais bon ！
comme le dit Bebere
tu fais

VB:

Set Rng= f.Range("C2:C" & .Range("C1250").End(xlUp).Row)

sans .value
puis
liste_ref.List=Rng.value
non teste（pas d ordi）
jean marie

 

Dernière édition: 12 Juin 2019

Vote positif 0 Vote négatif

P

PaulTrax

XLDnaute Nouveau

• 12 Juin 2019

• #6

Toujours pas de List sur mon combobox !!

voici ma macro sous tes conseils :

Private Sub Userform_Initialize()
Dim f
Set f = Sheets("Articles")
Set Rng= f.Range（“C1250”）.End（xlUp）.Row
liste_ref.List = Rng.Value'Address

End Sub

 

Vote positif 0 Vote négatif

P

PaulTrax

XLDnaute Nouveau

• 12 Juin 2019

• #7

Variable non définie!!

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 12 Juin 2019

• #8

PaulTrax
cela veut dire que en tête de module tu as option explicit qui oblige à déclarer les variables
exemple dim rng as range
dans le code set rng=rnage("A1:C103")
touche fonction F1 pour de l'aide (curseur souris sur le mot clé)

 

Vote positif 0 Vote négatif

P

PaulTrax

XLDnaute Nouveau

• 12 Juin 2019

• #9

Merci pour cette solution
voici mon code

Option Explicit

Const entrees_decimales_permises = ".,0123456789" & vbCr & vbBack
Const Point = "."
Const Virgule = ","
Const entrees_slash = ".,/0'123456789-" & vbCr & vbBack
Dim Rng As Range

Private Sub Userform_Initialize()
Dim f
f = Sheets("Articles")
Set Rng = f.Range("C2:C" & .Range("C1250").End(xlUp).Row).Value
Liste_ref.List = Rng.Value 'Address

End Sub

Toujours rien !!! est ce que le fait d'avoir cette macro dans Liste-ref peut gêner la procédure??

Private Sub liste_ref_Change()

If Liste_ref <> "" Then
TextBox1.Value = Sheets("Articles").Cells(Liste_ref.ListIndex + 1, 4).Value
ajouter.Enabled = True
Else
TextBox1.Value = ""
ajouter.Enabled = False
End If

End Sub

A voir, merci d'avance!

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 12 Juin 2019

• #10

Re
Set Rng
represente une plage pas les valeurs dans cette plage.
et ensuite
.List=Rng.value,on recupere les valeurs de la plage.
tu dois avoir

VB:

Set Rng = f.Range("C2:C" & f.Range("C1250").End(xlUp).Row)

jean marie

 

Dernière édition: 12 Juin 2019

Vote positif 0 Vote négatif

P

PaulTrax

XLDnaute Nouveau

• 12 Juin 2019

• #11

On y arrive !!! Presque!!

Un msgBox s'ouvre le voici en image.

Là!! je suis dans le flou complet !! et toujours rien dans ma liste référence..
Je suis navré Jean Marie..

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 12 Juin 2019

• #12

Re
on ne voit pas toute la page.
mais tu doid avoir une ligne qui traine en dehors de toute
procedure donc erreur.
a toi de regarder.
jean marie

 

Vote positif 0 Vote négatif

P

PaulTrax

XLDnaute Nouveau

• 12 Juin 2019

• #13

Jean marie

merci pour ton aide, je crois que je vais revenir en arrière avec le rowsource = nom

délicat délicat !!

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 12 Juin 2019

• #14

non ！
la rien a voir avec ta listbox
tu as du oublier d effacer une ligne de code quelque part dans le module.
jean marie

 

Vote positif 0 Vote négatif

P

PaulTrax

XLDnaute Nouveau

• 13 Juin 2019

• #15

Je continue et je cherche l'erreur et te tiens au courant.
Merci encore..

 

Vote positif 0 Vote négatif