Affichage combobox multicolonne

Bonsoir,

Malgré mes recherches y compris dans le grand tuto des combo de notre site préféré, je ne parviens pas à gérer une combobox comme suit.

J'ai un tableau constitué de colonnes d'information textuelles colonnes A à E pui de F à ZZ un planning mensuel.
chaque ligne représente une tache.
Quand je double clique une ligne, je charge mes champs A à E de la ligne sélectionnées dans mes textbox et je mets à jour les info modifiées éventuellement.

Ce que je n'arrive pas à faire :
Afficher un combobox à deux colonnes
en première colonne correspondant aux mois (cellules F1:ZZ1)
et en colonne 2 les cellules Fmaligne : ZZmaligne.
J'aimerais enfin pouvoir modifier le texte d'une colonne quelconque de la ligne et la mettre à jour.
mais ça coince déjà dans la définition de ma plage.

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 UserForm_Initialize() Dim Masel Dim FdPlage As Variant   Lig = Ligne_Select ' ma ligne cliquée With ThisWorkbook.Sheets("Feuil1") Me.Projet.Value = .Range("A" & Lig) 'textbox Me.Titre.Value = .Range("B" & Lig) 'textbox Me.DDate.Value = .Range("C" & Lig) 'textbox Me.Statut.Value = .Range("D" & Lig) 'textbox Me.Commentaire.Value = .Range("E" & Lig) 'textbox   '* Ma combo * Masel = "F1:ZZ1" & ",F" & Lig & ":ZZ" & Lig FdPlage = .Range(Masel)   FdPlage = .Range("F1:ZZ2") Me.Avancement.ColumnHeads = True Me.Avancement.ColumnCount = 2 Me.Avancement.RowSource = FdPlage End With

---

Merci pour vos précieux conseils
Denis

Bonjour,
essayer comme ceci

Code:

---

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

Avancement.ColumnHeads = True Avancement.ColumnCount = 2   Dim tbl(2, 697) '2 pour 2 colonne, 697 = Colonne F à ZZ   Sheets("Feuil1").select Lig = ActiveCell.Row 'reste à voir ligne = -1   For i = 6 To 702 '6 pour Colonne F, 702 pour Colonne ZZ ligne = ligne + 1 tbl(0, ligne) = Cells(1, i).Value'1 pour la ligne 1 tbl(1, ligne) = Cells(Lig, i).Value Next Avancement.Column = tbl

---

Citation:

---

J'aimerais enfin pouvoir modifier le texte d'une colonne quelconque de la ligne et la mettre à jour.
mais ça coince déjà dans la définition de ma plage.

---

Code:

---

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

Private Sub UserForm_Initialize() Dim Masel as String Dim FdPlage As Range   '....     '* Ma combo * Masel = "F1:ZZ1" & ",F" & Lig & ":ZZ" & Lig set FdPlage = .Range(Masel)   ' mais les données du tableau sont en ligne il faut les mettre en colonne!!!   Me.Avancement.ColumnHeads = True Me.Avancement.ColumnCount = 2 'attention le rowsource est la chaine de caractère!!!   Me.Avancement.RowSource = Masel End With

---

J'ai vu deux problèmes : l'affectation d'un ensemble avec set et du rowsource avec un "range"

De plus je pense que les données du combo doivent être en table verticale...

Essayez et a++

geogeo70

Bonjour,
La valeur de la propriété RowSource est une chaîne de caractères contenant l'adresse des cellules en commençant à la ligne 2 avec de préférence en plus le nom de la feuille suivie du point d'exclamation et si tu as deux classeurs ouverts le nom du classeur en sus.
Tu ne peux pas faire référence à des cellules non contiguës
Exemple

Code:

---

ComboBox1.RowSource = "maFeuille!A2:M15"

---

Fais un simple petit essai avec la procédure qui suit en adaptant le nom de la feuille et l'adresse des plages

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() With Me.ComboBox1 .ColumnCount = 2 ' Nombre de colonnes en commençant par la gauche .ColumnHeads = True .RowSource = "db!A2:M15" End With End Sub

---

Si tu veux afficher la 2ème et 5ème colonne alors tu dois mettre 5 comme valeur à la propriété ColumnHeads et utiliser la propriété ColumnWidths
Exemple

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() With Me.ComboBox1 .ColumnCount = 5 .ColumnHeads = True .ColumnWidths = "0;50;0;0;20" .RowSource = "db!A2:M15" End With End Sub

---

Es-tu certain d'avoir bien lu le tutoriel dont tu parles ?

Merci pour vos conseils,

Pour l'instant ça ne marche pas, mais il y a sûrement une bonne raison.
Mais comme je ne veux pas vous donner l'impression que je vous demande de me fournir le code, je me replonge dans mes études
des tutos
http://silkyroad.developpez.com/VBA/ControlesUserForm/
et
http://silkyroad.developpez.com/VBA/UserForm/

Je vous tiendrai au courant d'ici quelques jours.
encore merci et à bientôt
Denis

Bonjour,

Citation:

---

Mais comme je ne veux pas vous donner l'impression que je vous demande de me fournir le code

---

Mais il me semble avoir fourni un code de test.
Il suffit de faire un copier/coller de cette procédure et de modifier la chaîne "db!A2:M15" pour l'adapter à ta liste de données.
Le contrôle ComboBox de l'exemple se nomme ComboBox1 il y a lieu éventuellement de faire la correction.

oui oui Philippe, Merci, mais ça ne fonctionne pas.

D'abord la liste n'est pas affichée dans ma combobox, mais uniquement quand je clique sur la flèche de la barre de scroll. (surement un attribut.)
Ensuite quand je clique il m'affiche une liste en bas de ma combobox avec en titre colonne F colonne G et me liste les trois lignes de mon exemple des colonnes F et G alors que je souhaite avoir en première colonne les valeur F1 à ZZ1 et en colonne 2 Fmaligne à ZZmaligne.

Mais comme dit, je vais d'abord bien réétudier la question et revenir vers vous après.

encore merci.

Denis

Bonjour,

Citation:

---

D'abord la liste n'est pas affichée dans ma combobox, mais uniquement quand je clique sur la flèche de la barre de scroll. (surement un attribut.)

---

Parlons nous bien d'un contrôle ComboBox d'un UserForm ou est-ce un Contrôle ActiveX ?

Bonjour Philippe,

Je fais ce petit developpement chez moi le soir, car je n'ai pas le temps au travail,
C'est bien un userform que j'utilise.

Je refais une analyse ce soir et le cas échéant je poste mon fichier de test.

Bonne journée
Denis

Bonjour Denis,
Je ne sais pas comment tu as effectué ton test mais voici un classeur avec la procédure que j'ai déposée dans une de mes dernières réponses.
J'ai ajouté le code pour un ComboBox ActiveX

Codes placés dans le module de la feuille nommée db
Procédure d'initialisation du contrôle ActiveX

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ComboBox1_DropButtonClick() ' Procédure pour le contrôle ActiveX With Me.ComboBox1 .ColumnCount = 5: .ColumnWidths = "0;50;0;0;50" ' Affiche les colonnes B & E ' .ColumnCount = 2 ' Affiche les colonnes A & B .ColumnHeads = True .ListFillRange = "db!A2:M15": .LinkedCell = "B19" End With End Sub

---

Procédure lançant le formulaire nommé UserForm1

Code:

---

1 2 3

Private Sub cmdRun_Click() UserForm1.Show ' Lance le formulaire End Sub

---

Code placé dans le module UserForm1
Le formulaire ne contient qu'un contrôle nommé ComboBox1

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Initialize() With Me.ComboBox1 .ColumnCount = 5: .ColumnWidths = "0;50;0;0;50" ' Affiche les colonnes B & E ' .ColumnCount = 2 ' Affiche les colonnes A & B .ColumnHeads = True .RowSource = "db!A2:M15" End With End Sub

---

Citation:

---

Envoyé par Denis_67

je souhaite avoir en première colonne les valeur F1 à ZZ1 et en colonne 2 Fmaligne à ZZmaligne.

---

Je vous ai donnée la solution plus haut
ce code met les valeur F1 à ZZ1 et en colonne 2 Fmaligne à ZZmaligne
la revoici

Code:

---

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

Avancement.ColumnHeads = True Avancement.ColumnCount = 2   Dim tbl(2, 697) '2 pour 2 colonne, 697 = Colonne F à ZZ   Sheets("Feuil1").select Lig = ActiveCell.Row 'reste à voir ligne = -1   For i = 6 To 702 '6 pour Colonne F, 702 pour Colonne ZZ ligne = ligne + 1 tbl(0, ligne) = Cells(1, i).Value'1 pour la ligne 1 tbl(1, ligne) = Cells(Lig, i).Value Next Avancement.Column = tbl

---

Merci à Philippe et à Parmi.
--> je vous rassure par correction, je teste toujours les suggestions, c'est la moindre des choses.

D'ailleurs on est proche de la solution complète.

Philippe: J'ai incorporé ton code et chargé ton exemple qui fonctionnent mais, je veux afficher deux lignes de la feuille dans ma combo, et dans ton exemple on renvoie le contenu de deux colonnes. Mon explication était sûrement confuse.

Parmi: j'avais bien testé ton code, mais il me tombait en erreur 1004 !
Je m'y suis repenché et en ajustant les valeurs du tableau ça marche yes !

Code:

---

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

Colo = Sheets("Feuil1").Range("F1").End(xlToRight).Column Me.Avancement.ColumnHeads = True Me.Avancement.ColumnCount = 2   Dim tbl(2, 100) '2 pour 2 colonne, colo = nbre de colonnes remplies   Sheets("Feuil1").Select Lig = ActiveCell.Row 'reste à voir ligne = -1   For I = 6 To Colo + 6 '6 pour Colonne F, colo + 6 nbre colonnes du titre ligne = ligne + 1 tbl(0, ligne) = Cells(1, I).Value '1 pour la ligne 1 tbl(1, ligne) = Cells(Lig, I).Value Next Me.Avancement.Column = tbl

---

Il me reste trois question pour mettre le sceau résolu :
1 puis-je personnaliser le contenu du colomnhead avec un texte ? sinon je mettrai simplement deux label au dessus du combo.
2 j'ai voulu dimensionner mon tbl avec la valeur de colo qui récupère le nombre de colonnes du titre , mais apparemment il n'accepte pas bien que j'ai déclaré <colo> as integer dans un module. Il me dit constante requise !
3 la liste ne s'affiche pas dans la combo mais en bas de la combo, voir image
Pièce jointe 172959

En tout cas merci encore pour le temps consacré à me répondre.
Denis

Bonjour,
Je ne sais pas comment tu es arrivé a avoir un résultat pareil. Es-tu certain que ta liste de données commence bien en ligne 1 de ta feuille ?

Citation:

---

1 puis-je personnaliser le contenu du colomnhead avec un texte ? sinon je mettrai simplement deux label au dessus du combo.

---

Le titre qui apparaît dans un ListBox ou ComboBox ne s'affiche que si l'on a mis comme valeur True à la propriété ColumnHeads du contrôle. Cette propriété ne fonctionne que si l'on utilise conjointement la propriété RowSource du même contrôle.
Cette ligne de titre n'est pas personnalisable, elle reproduit les étiquettes de la ligne qui précède la ligne de début de la propriété RowSource

Citation:

---

2 j'ai voulu dimensionner mon tbl avec la valeur de colo qui récupère le nombre de colonnes du titre

---

Si tu as défini la plage de données, tu peux retrouver le nombre de colonnes en utilisant la propriété Count de la collection Columns de l'objet Range (objRange.Columns.Count)

Bonjour Philippe

Je sais retrouver le nombre de colonnes (ma variable colo)

C'est quand je fais dim MonTableau (2, colo) que ma variable colo est rejetee

Merci

Bonjour,
L'instruction Dim comme te l'a indiqué le message d'erreur attend comme dimensions de la variable tableau une ou plusieurs constantes. Si tu souhaites dimensionner avec des variables, utilise l'instruction ReDim
Voir Utiliser les variables tableaux en VBA Excel

Merci Philippe,

Je connaissais Redim pour redéfinir le tableau, maintenant je sais que cela permet d'utiliser les variables.

Reste le mystère de la liste qui s'affiche en dehors de la combobox.
En plus quand je sélectionne une ligne il ne m'affiche que la première colonne.

Je me permets de joindre mon fichier de test au cas où vous auriez la patience de voir.
Pour afficher le USF il faut cliquer dans la colonne A
(pour info: à la maison je suis en 2003 l'appli ira ensuite en 2010.)

Merci
Denis
Pièce jointe 173049

Bonjour,
Et bien c'est tout bête, c'est la hauteur du ComboBox qui est trop grande.
Il ne faut pas confondre Combobox et ListBox.
Un ComboBox est une liste déroulante qui s'affiche lorsque l'on clique sur la flèche et n'a pas de "ScrolBar". Les deux contrôles que tu as au-dessus avec comme titre Statut et Commentaires sont des ListBox.
Si tu fais un clic droit Format de Cellules et que dans l'onglet [Nombre] tu sélectionnes Monétaires La liste devant Symbole, c'est un ComboBox alors que la liste Nombres négatifs, c'est un ListBox

Evident !!!

Je viens de comprendre (mieux vaut tard que jamais),
- La Combo box sert à sélectionner donc en général on lui donne une ligne de hauteur.
- La listbox affiche directement la liste.

Dernier point peut-être.

Quand je sélectionne une entrée de mon tableau il n'affiche que la première colonne.
ici la date et pas la deuxième colonne la valeur de la deuxième colonne du tableau (toto2)
Pièce jointe 173104


Merci
Denis

Bonjour,

Citation:

---

Quand je sélectionne une entrée de mon tableau il n'affiche que la première colonne.
ici la date et pas la deuxième colonne la valeur de la deuxième colonne du tableau (toto2)

---

Je n'en connais pas la raison car tu utilises la propriété Column que je n'utilise jamais et pas envie de m'investir en recherche pour l'instant.
J'emploie par priorité la propriété RowSource qui est bien plus simple à utiliser et qui offre l'avantage de permettre l'affichage des lignes d'en-tête de la iste des données.
J'utilise la méthode AddItem si je ne dois pas afficher toutes les données ou encore la propriété List pour certain cas.

Bonsoir Philippe,

Bon j'y suis presque, je sélectionne, je modifie et j'enregistre sur ma feuille.
Par contre si je puis me permettre dans ton exemple avec combobox et la propriété RowSource, tu as le même soucis que moi à savoir quand tu cliques sur la flèche tu as la liste avec les deux colonnes remplies
par contre si tu sélectionne une valeur n'apparait plus que le nom ?

Idéalement j'aurais aimé avoir le salaire qui s'affiche, le modifier et le sauvegarder.
Pièce jointe 173196

Denis