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