Discussion :

[Denis_67]

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 :

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

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

[gnain]

Bonjour,
essayer comme ceci

Code :

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

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

[geogeo70]

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 :

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

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

[Philippe Tulliez]

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 :

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

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 :

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

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 :

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

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 ?

[Denis_67]

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

[Philippe Tulliez]

Bonjour,

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.

[Denis_67]

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

[Philippe Tulliez]

Bonjour,

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 ?

[Denis_67]

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

[Philippe Tulliez]

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 :

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

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 :

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

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 :

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

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

[gnain]

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 :

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

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

[Denis_67]

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 :

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

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


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

[Philippe Tulliez]

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 ?

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

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)

[Denis_67]

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

[Philippe Tulliez]

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

[Denis_67]

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
Mon_test2 - Copie.xls

[Philippe Tulliez]

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

[Denis_67]

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)



Merci
Denis

[Philippe Tulliez]

Bonjour,

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.

[Denis_67]

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.


Denis