Changer La liste d'un combobox avec OptionButton

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

Code:

---

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:

---

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 ?

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:

---

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 ?

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:

---

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)

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 ?

Question, plage c'est quoi ?

Code:

---

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

---

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

Salut et Bonjour au Forum,

Je crans qu'il y ait redondance.

Essaie plutôt (avec plus de rigueur)

Code:

---

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

Code:

---

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:

---

ComboBox1.RowSource = plage

---

Salut,

J'ai bien compris.

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

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

Merci de ton aide

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

Code:

---

ComboBox1.RowSource = plage

---

=>

Code:

---

ComboBox1.RowSource = plage.Address

---

Bonjour cerede,

T'as solution fonctionne, merci beaucoup.
Je suis désolé je suis a moitié d'accord avec toi. Je penses que tout apprentissage a son début. Je n'ai personne pour me former, personne pour m'apprendre ces bases dont tu parles. Le Dev m’intéresse et j'y porte de l’intérêt donc j'essaye de me former par mes propres moyen !
En tout cas merci de ton aide c'est grâce a ce genre de post que j'apprend réellement.

Cordialement

Si je peux me permettre.

Ce que voulait sans doute signifier cerede.
Si tu abordes une notion comme les formulaires, alors il t'est nécessaire de regarder les tutoriels et/ou les livres existants.
Dans le cas présent, ceux de SylkiRoad sont très utiles
Ici l'espace de SylKiRoad/.
En ayant intégré les notions présentées, tu peux te lancer (nous l'avons tous fait)
Si un problème persiste, AVANT de poster ta demande, utilise tous les moyens pour résoudre le problème (aide en ligne, tutoriel, forums. celui-ci sans évoquer le regretté Excelabo)
Et c'est en dernier recours que tu posteras ton problème.
Comme en mathématiques, c'est la recherche qui paie.
Ce même si elle est infructueuse.
Une fois la solution émise, alors il te faut l'intégrer en l'étudiant mot par mot s'il le faut, puis ne pas hésiter à revenir pour des précisions.

Tu peux bien-entendu consulter ce forum en étudiant une notion qui te paraît intéressante.

Conclusion:
Donne-toi une certaine discipline; Et surtout garde le moral!
Je ne veux surtout pas être un donneur de leçon (j'arrive à la cheville d'un mercatog ou d'un Philippe Thulliez)
Mais je peux t'assurer que j'ai connu pas mal de rappels à l'ordre au début.

Bon courage et à la prochaine fois.
N'hésite pas.

@Yull :
ton premier code (celui de ton tout premier message) était quelque peu maladroit, mais assez correct, pour autant qu'existe bien une feuille nommée "List Réf".
A ce propos : essaye d'éviter de nommer avec des accents et/ou des espaces (il gênent)
Ajoute donc un "." devant ton 1er "Range" et type plage as String et cela fonctionnera.
Reviens après ce constat pour que l'on te montre comment écrire plus adroitement.