Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Remplir ComboBox à partir d'un tableau 2D

Remplir ComboBox à partir d'un tableau 2D

25 réponses
Avatar
danielos
Bonjour,

Je souhaiterai donner =E0 une Combobox les valeurs obtenues =E0 partir d=
'un=20
tableau 2 dimensions (n lignes, p colonnes), mais o=F9 toutes les=20
cellules ne seraient pas =E0 prendre.
Les cellules =E0 utiliser seraient vides et les autres ne le seraient pas=
=2E
Les valeurs =E0 recueillir seraient les coordonn=E9es des cellules valide=
s.

Ma premi=E8re id=E9e serait dans un premier temps au moyen d'une macro de=

lister les cellules valides dans une colonne (mais =E7a je ne sais pas
faire) et dans un second temps d'utiliser les valeurs de la colonne pour
remplir la CB.

Mais peut-=EAtre y a t-il une autre possibilit=E9 plus jolie que =E7a ?

N'=E9tant pas s=FBr que mon probl=E8me est bien exprim=E9, j'ai mis un ex=
emple
du tableau que je pourrai avoir et de la liste attendue dans la CB.
http://cjoint.com/?0Egp3FtGi1B

Merci =E0 toutes et =E0 tous pour votre aide ou un d=E9but de piste.

Daniel
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Jacquouille
Je lui ai mis cela (issu de l'enregistreur)
Range("A1:A" & n).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("A1").Select

Et cela trie ....

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacquouille" a écrit dans le message de groupe de discussion :
migbgn$md0$

Re
Chez moi, la macro indique bien les cel vides du tableau en A1:A10, mais ne
les trie pas ....
-(


Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
mig7m5$bd5$

ok je vient juste de voir
A-2
A-3
A-4
B-1
B-4
C-1
C-3
D-1
D-2
D-3


Sub liste_Coordonnées()
Dim n As Integer, c
For Each c In Range("c4:f8") ' ton tableau dans ton exemple
If c.Value = "" Then
n = n + 1
Range("a" & n).Value = Cells(4, c.Column) & "-" & Cells(c.Row, 2)
End If
Next
'trie
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:A21")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub

isabelle


---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
danielos
Bonsoir,

Merci Isabelle. C'est super.
Le tri n'était pas indispensable (j'avais noté les cellules dans l'or dre
sans le faire exprès).
Je profite de ce post pour remercier l'ensemble des contributeurs et
contributrices sur le forum qui non seulement apportent des solutions
ou des pistes à nos pb mais aussi nous permettent ainsi d'apprendre de
nouvelles choses.
Un merci particulier à Isabelle, Jacquouille (tombé du lit) et MichD
aujourd'hui.

Daniel



isabelle a écrit :
ok je vient juste de voir
A-2
A-3
A-4
B-1
B-4
C-1
C-3
D-1
D-2
D-3


Sub liste_Coordonnées()
Dim n As Integer, c
For Each c In Range("c4:f8") ' ton tableau dans ton exemple
If c.Value = "" Then
n = n + 1
Range("a" & n).Value = Cells(4, c.Column) & "-" & Cells(c.Row, 2)
End If
Next
'trie
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:A21")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A1").Select
End Sub

isabelle

Avatar
Jacky
Bonsoir,
Une possibilité pour remplir le combobox sans liste intermédiaire sur la feuille
Et sélection de la cellule après sélection dans le CB
Exemple ici:
http://cjoint.com/?EEhxGZzq3bI
--
Salutations
JJ
Avatar
isabelle
super Jacques, merci pour ce code xl2003 et <
isabelle

Le 2015-05-07 14:43, Jacquouille a écrit :
Je lui ai mis cela (issu de l'enregistreur)
Range("A1:A" & n).Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:úlse, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Range("A1").Select

Et cela trie ....

Jacquouille
Avatar
Jacquouille
Choli ...

9/10 et si tu nous mets la cel sélectionnée en vert tendre, tu auras 10/10.



Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
migktv$gd2$

Bonsoir,
Une possibilité pour remplir le combobox sans liste intermédiaire sur la
feuille
Et sélection de la cellule après sélection dans le CB
Exemple ici:
http://cjoint.com/?EEhxGZzq3bI
--
Salutations
JJ





---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
Jacky
Allez donc, rien que pour toi
+1 point pour la cellule en vert.
+1 point parce qu'elle retourne à sa couleur d'origine quand elle est remplie.
+2 points & 1 tablette de chocolat pour le combobox qui se met à jour quand la cellule est non vide.
;o)))
http://cjoint.com/?EEit4pzAl0k
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news: miipfg$c64$
Choli ...

9/10 et si tu nous mets la cel sélectionnée en vert tendre, tu auras 10/10.



Avatar
Jacquouille
Waw, choli, choli.
Tu le veux à quoi, le chocolat?

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
miispc$lcb$

Allez donc, rien que pour toi
+1 point pour la cellule en vert.
+1 point parce qu'elle retourne à sa couleur d'origine quand elle est
remplie.
+2 points & 1 tablette de chocolat pour le combobox qui se met à jour quand
la cellule est non vide.
;o)))
http://cjoint.com/?EEit4pzAl0k
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
miipfg$c64$
Choli ...

9/10 et si tu nous mets la cel sélectionnée en vert tendre, tu auras
10/10.








---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
Jacky
Tu le veux à quoi, le chocolat?


En train...:o)))))
https://www.youtube.com/watch?v=EtkkLgZ_BLI
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news: miit94$mev$
Waw, choli, choli.
Tu le veux à quoi, le chocolat?

Jacquouille


"Jacquouille" a écrit dans le message de news: miipfg$c64$
Choli ...

9/10 et si tu nous mets la cel sélectionnée en vert tendre, tu auras 10/10.
Avatar
Jacquouille
Ah, ces Belges....qu'est-c e qu'ils sont bons !

Jacquouille

" Le vin est au repas ce que le parfum est à la femme."
"Jacky" a écrit dans le message de groupe de discussion :
miivso$sv2$

Tu le veux à quoi, le chocolat?


En train...:o)))))
https://www.youtube.com/watch?v=EtkkLgZ_BLI
--
Salutations
JJ


"Jacquouille" a écrit dans le message de news:
miit94$mev$
Waw, choli, choli.
Tu le veux à quoi, le chocolat?

Jacquouille


"Jacquouille" a écrit dans le message de news:
miipfg$c64$
Choli ...

9/10 et si tu nous mets la cel sélectionnée en vert tendre, tu auras
10/10.







---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com
Avatar
isabelle
bonjour Daniel,

une dernière pour mettre la liste dans un combobox (ActiveX) sur la "Feuil1",

Sub liste_Coordonnées()
Dim AL1 As Object
Dim xItem
Set AL1 = CreateObject("System.Collections.ArrayList")
For Each c In Range("C5:F8")
If c.Value = "" Then AL1.Add Cells(4, c.Column) & "-" & Cells(c.Row, 2)
Next
AL1.Sort
With Sheets("Feuil1").ComboBox1
.Clear
.List() = AL1.ToArray() ' sur une cellule -->Join(AL1.ToArray(), vbNewLine)
End With
End Sub

isabelle
1 2 3