Insertion ligne dans "zone de liste modifiable"

Bonjour à tous,

J'ai crée un userform dans lequel j'ai inséré une "zone de liste modifiable". Je souhaiterai maintenant remplir cette zone de liste par la plage cellule suivante
(F1:MM1). C'est à dire une grande partie de la ligne 1.

Je souhaiterai que ce qui se trouve dans ces cellules (en l'occurence des chaine de caractère étant des titres) soient insérés dans cette "zone de liste modifiable".

L'objectif serait de de pouvori cliquer sur un des objets de la liste et que dans la feuille suivante (feuille7) il affiche la colonne correspondante.

Merci à ceux qui voudront bien me donner un coup de main. Et n'hésitez pas à me faire remarquer si je n'ai pas été assez claire.

Merci beaucoup de votre aide

Bien à vous

Ron

re,

Est ce normal que rien ne s'affiche dans ma liste déroulante avec le code suivant :

Code:

---

1 2 3

Private Sub ComboBox1_Change() ComboBox1.RowSource = "Feuil1!F1:MM1" End Sub

---

Merci de votre aide.

rON

Bonjour,

Citation:

---

Je souhaiterai maintenant remplir cette zone de liste par la plage cellule suivante
(F1:MM1). C'est à dire une grande partie de la ligne 1.

---

Il faut initializer ta combobox au démarrage de l'userform. Une des façons est celle ci:

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize() For Each cel In Sheets("Feuil1").Range("F1:MM1") Me.ComboBox1.AddItem cel.Value Next cel End Sub

---

Bonjour,

Merci pour votre aide rvtoulon. J'ai initialisé et crée un userform comprenant une "listbox" affichant les titres des colonnes qui m'intéresent.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub UserForm_Initialize()   Dim i As Integer   Dim oSh2 As Excel.Worksheet Set oSh2 = ThisWorkbook.Worksheets("Feuil6")   i = 6   While oSh2.Cells(1, i) <> "" ListBox1.AddItem (oSh2.Cells(1, i)) i = i + 1 Wend   End Sub

---

Je souhaiterai maintenant lorsque je clique sur un de ces "titres" (1ere cellule d'une colonne) que sur la feuille suivante apparaisse la colonne correspondante au nom de la cellule sur laquelle j'ai cliqué. Suis je assez claire ?

Merci

Bonne journée

Ron

Bonjour,
maintenant il faut utiliser les événements du contrôle listbox. Tu peux utiliser l'événement change et utiliser la méthode find pour trouver le nom recherché :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub ListBox1_Change() Dim vval As String, vrech As Range   vval = Me.ListBox1.Value   'je rech la valeur sélectionnée dans la feuille 7 ligne 1 Set vrech = Sheets("Feuil7").Rows(1).Find(vval)   If Not vrech Is Nothing Then 'ferme le userform Unload Me   'Active la feuille 7 Sheets("Feuil7").Activate   'Selectionne toute la colonne du nom recherché vrech.EntireColumn.Select Else MsgBox "Il n'y a pas de colonne qui porte ce nom" End If   End Sub

---

Re,

Merci beaucoup mais il y'a une erreur de type 1004 , la "méthode select de la classe range a échoué".
Il me surligne ensuite en jaune la ligne suivante :

Code:

---

vrech.EntireColumn.Select

---

Une idée ?

Ps : Les valeurs que je séléctionne dans la listbox sont en réalité dans la ligne 1 de la feuille 6. En ligne 7 j'ai juste remplacé le feuil7 par feuil6.

Merci de votre aide
Ron

Citation:

---

Je souhaiterai maintenant lorsque je clique sur un de ces "titres" (1ere cellule d'une colonne) que sur la feuille suivante apparaisse la colonne correspondante au nom de la cellule sur laquelle j'ai cliqué

---

Je suis parti sur l'hypothèse ou sur la première ligne de la feuille 7 on retrouvait les noms ou titres.

si je comprend bien ceci doit faire l'affaire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub ListBox1_Change() Dim vval As String, vrech As Range vval = Me.ListBox1.Value 'je rech la valeur sélectionnée dans la feuille 6 ligne 1 Set vrech = Sheets("Feuil6").Rows(1).Find(vval) If Not vrech Is Nothing Then 'ferme le userform Unload Me   'Active la feuille 7 Sheets("Feuil7").Activate   'Selectionne toute la colonne du nom recherché ActiveSheet.Columns(vrech.Column).Select End If End Sub

---

Merci beaucoup rvtoulon, cela fonctionne parfaitement. Je trouve ce forum particulièrement performant, je suis impressionné.

Merci à vous.

A bientôt.