Discussion :

[Yullll]

Je m'explique j'ai une liste qui se définit avec un userform_initialize avec ce code :

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
Me.ComboBox1.RowSource = ("Analyse!A5:A6518")
Référence.Image1.Picture = LoadPicture("D:\Users\s580385\Documents\My Pictures\Snecma.jpg")
End Sub

Par la suite j'ai mis deux OptionButton, afin de modifier la liste. la liste est définit dans une autre feuille donc j'ai mis ce code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub OptionButton1_Click()
 
Dim DernLign As Long
 With Sheets("List Réf")
  plage = Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row).Address
 End With
Me.ComboBox1.RowSource = ("List Réf!" & plage)
End Sub

Je voudrais que lorsque je clique sur ce bouton la liste se modfie. Je ne sais pas si il faut décharger l'ancienne avant mais je n'arrive pas a la modifier !
J'ai le message d'erreur suivant : Erreur de compilation : Membre de méthode ou données introuvable
Quelqu'un aurait il une idée ?

[Yullll]

A priori le problème venais du nom de ma page. Car en rentrant le range manuellement, j'ai réussi.
Par contre j'ai toujours le soucis au niveau de ma plage ...
Je penses un problème de définition de variable !

Code :

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

1
2
3
4
5
6
7
8
  Private Sub OptionButton1_Click()
Dim DernLign As Long
Dim plage As Range
 With Sheets("List_Réf")
  plage = Range("A3:A" & .Range("A" & Rows.Count).End(xlUp).Row)
 End With
Me.ComboBox1.RowSource = ("List_Réf!" & plage)
End Sub

Qu'en pensez vous ?

[antonysansh]

Bonjour,

Très bonne idée le With pour indiquer la feuille mais si tu ne mets pas de .Range(), mais juste Range, le With est inutile.

Code :

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

1
2
3
With Sheets("List Réf")
  plage = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row).Address
End With

De plus,
plage = va être une valeur
Set plage = va être une plage (Range)

[Yullll]

Effectivement petite erreur de ma part merci antony !
Cependant j'ai rajouté le set plage mais il me sort toujours un incompatibilité de type ...
A tu une idée ?

[cerede2000]

Question, plage c'est quoi ?

Code :

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

plage = Range("A3:A" & .Range("A" & Rows.Count).End(xlUp).Row)

Si tu trouve la réponse tu solutionne ton problème

[Yullll]

Code :

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

plage = Range("A3:A" & .Range("A" & Rows.Count).End(xlUp).Row)

C'est la nouvelle plage que je veux définir en tant que nouvelle liste de mon combobox

Bonjour Marcel,

Merci pour tes conseils, je suis un peu débutant en la matière et j'apprend au fur et a mesure et beaucoup grace aux personnes de ce forum +++
J'ai essayé ton code cependant j'obtiens toujours un incompatibilité de type sur la ligne :

Code :

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

ComboBox1.RowSource = plage

[MarcelG]

Salut,

J'ai bien compris.

Je ne l'ai pas testé mais as-tu essayé le code proposé?

[Yullll]

Oui je l'ai essayé et j'obtiens la même erreur, incompatibilité de type.

Merci de ton aide

[cerede2000]

Il est tout de même important d'avoir les bases du dev pour se lancer....

Code :

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

ComboBox1.RowSource = plage

=>

Code :

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

ComboBox1.RowSource = plage.Address

[MarcelG]

Salut et Bonjour au Forum,

Je crans qu'il y ait redondance.

Essaie plutôt (avec plus de rigueur)

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim DernLign As Long
Dim plage As Range
 
With ThisWorkbook.Worksheets("List Réf")
        DernLign = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set plage = .Range("A1:A" & DernLign)
End With
ComboBox1.RowSource = plage
'libération de la variable
Set plage = Nothing

Un conseil, nomme les contrôles de ton formulaire en les préfixant (Cbx_, Txt_...)

exemple : Cbx_macombo

Et n'hésite pas revenir