Discussion :

[Grimlands]

Bonjour,

J'essaie d'extraire le texte sélectionné d'une dropdown afin de le comparer ultérieurement. A priori ce que j'appelle dropdown serait une combobox ou une listobx. Elle est intégrée directement à me feuille de calcul et ne fait pas partie d'un userform (ce qui me ferme environ 99% des infos sur les combobox/listbox dispo sur le net). Le souci est que je ne sis absoluement pas comment faire, j'ai déjà essayé plusieurs méthodes, et aucune ne semble fonctionner.

Voici où j'en suis (bout de code ciblé) Ligne 74, module 3

Code :

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

1
2
3
4
5
6
Set champ = ActiveSheet.DropDowns("Zone combinée 45")
num = champ.Value
Choix = champ.ListEntries(num).Name
 
For Each c In Feuil3.Range("e1:e" & nligne)
    If Cells(i, 2).Value = Choix Then

Je vous joint la feuille entière si vous voulez voir le contexte global, je bute sur le module 3, qui fonctionne dans la feuille 3.

Merci d'avance

[patricktoulon]

bonjour
pour les composants formulaire et non activX
un exemple pour ta zone combinée(nom que exel donne au combobox qui ne sont pas des activX

met dans un module standard ceci:

Code :

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

1
2
3
4
5
Sub click()
nom = Application.Caller
MsgBox Feuil1.Shapes(nom).ControlFormat.Value 'pour la valeur
MsgBox Feuil1.Shapes(nom).ControlFormat.ListIndex 'pour l'index de ligne
End Sub

ensuite clic droit sur ta combo et affecter une macro puis choisi la sub click
adapte ton sheet bien sur
c'est presque pareil que les activX sauf que pour les propriété tu ajoute".controlformat"

[riaolle]

Bonjour,
Tu peux définir une cellule liée au controle (dans les propriétés), puis récupérer la valeur de la cellule liée.

[Grimlands]

Premièrement, merci pour ta réponse Patrick.

Toutefois, elle ne m'aide pas beaucoup en effet, bien que je puisse obtenir maintenant (grâce à toi) mes index de ma zone combinée, mes deux message box me donnent la même chose : l'indice sous forme numérique. Hors j'aimerai pouvoir extraire le texte, afin de le comparer. Le but est de choisir un fournisseur, et à partir d'une liste de l'ensemble des livraisons compter les retards de ce fournisseur. Ma macro analyse la liste des livraisons, en extrait les différents fournisseurs (et les stocks via un array) et remplie la zone combinée avec. On choisi ensuite le fournisseur dans la liste, et le compte des retards se fait,via une boucle for avec un test if comparant le fournisseur choisi et le fournisseur de la commande. C'est sur cette partie que je butte.

Maintenant que j'ai expliqué plus en détail, espérons que tu aperçoive mon erreur (de conception peut être).

Merci d'avance

[Grimlands]

Bonjour,
Tu peux définir une cellule liée au controle (dans les propriétés), puis récupérer la valeur de la cellule liée.

Bonjour riaolle,

Comment accède-t-on aux propriétés ? (Je suis TRES débutant sur excel )
Je précise qu'il ne s'agit pas de contrôle activX

Merci d'avance

[riaolle]

C'est quoi comme type de controle ?

[patricktoulon]

riaolle c'est une zone combinée pas une combobox

comme je l'ai dis précédemment c'est controlformat.propriétévoulu

tu a

1. .value (valeur (text))
2. .listindex (l'index)
3. .list(donne un tableau)
4. .list(X) ( donne la valeur (texte) de l'index (x)

mais perso j'aurais utiliser des combobox activX c'est tellement plus simple a manipuler par VBA

par contre si vous savez comment la remplir autrement qu'avec une plage de cellule(listfillrange) je prends !!!

[patricktoulon]

re
je suppose que tu veux comparer ta colonne "e" dans feuille 3 si ca correspond a ce que tu a choisi dans la zone combinée c'est bien ca ?
dans ce cas la c'est

Code :

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

1
2
3
4
5
6
7
8
9
Set champ = ActiveSheet.Shapes("Zone combinée 45")
With champ.ControlFormat: Choix = .List(.ListIndex): End With
 
For Each c In Feuil3.Range("e1:e" & nligne)
    If Cells(i, 2).Value = Choix Then
MsgBox "youpi!!!"
'....
'reste du code
End If

sauf que visiblement tu ne metrise pas non plus les boucle et leur type
ceci: n'a ni queue ni tete

Code :

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

1
2
For Each c In Feuil3.Range("e1:e" & nligne)
    If Cells(i, 2).Value = Choix Then

ce serait plutôt cela

Code :

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

1
2
For Each c In Feuil3.Range("e1:e" & nligne)
    If c.Value = Choix Then

cours accéléré:
boucle for each= boucle sur des object (l'argument de l'enoncé en l'occurrence ici "c" est l'object
boucle avec iteration numerique
la l'argument d'iteration n'est pas l'object mais un indice qui va nous servir a déterminer l'index de la ligne de cellule qui est elle l'object (cells(i,X))

Code :

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

for i= 1 to nligne

Code :

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

1
2
'facon 1 
if cells(i,"e")=choix then

Code :

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

1
2
'facon 2
if cells(i,5)=choix then

conclusion pour toi et ta boucle for each
ce sera

Code :

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

1
2
3
4
5
6
7
8
9
Set champ = ActiveSheet.Shapes("Zone combinée 45")
With champ.ControlFormat: Choix = .List(.ListIndex): End With
 
For Each c In Feuil3.Range("e1:e" & nligne)
    If c.Value = Choix Then
MsgBox "youpi!!!"
'....
'reste du code
End If

bonne route

[Grimlands]

Merci beaucoup ! ça marche niquel.

Pour ce qui est de remplir ma zone combinée moi j'ai utilisé un array avec simplement

Code :

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

Selection.AddItem fourn()

Avec fourn() comme array.

Problème résolu !

[patricktoulon]

et c'est la encore une erreur additem visiblement ne fonctionne pas avec ce composant

tout du mois si je fait un add item avec un array ca ajoute seulement le premier et ca efface ce qu'il y avait dedans avant dans la zone combinée