Création d'une listbox

**azerty1956** · 10/05/2009, 19h52

Bonjour,

Je me permet de vous solliciter car je ne sais pas comment faire pour coder des listes box.

J'ai des feuilles où j ai des tableaux où pour chaque activité ou sous activités des valeurs correspondent suivant les catégories(voir sheet 1 fichier joint).

Je souhaite à l'aide d'un menu dans ma feuille "Home" préciser le type d'activité ou périmetre,le nom de l'activité, le nom de la feuille dans laquelle on effectue la recherche, le type de la valeur (code couleur, ou commentaire) et ainsi pouvoir avoir accès aux données relative à cette activité toute seule ( pour cela il me semble judicieux de faire un find dans le tableau de la feuille choisi par le menu, de chercher l'élément grace a un find et de faire un copier coller dans une nouvelle feuille créée par le code)...

Je ne sais pas comment je pourrais réaliser tout ça...J'ai essayé avec l'enregistreur des macros pour créer la listbox dans un premier temps, mais ça ne marche pas car la plage de recherche de la liste box doit se situer dans la même feuille. ( je veux créer la liste box au niveau de la feuille Home pour Perimeter,Name,sheet,type...les éléments de ces 4 catégories se trouvant dans la sheet1, je n'arrive pas à créer une listebox à ce niveau la, puisse que les éléments constitutifs se trouve sur une autre feuille à savoir la sheet1)

Je ne sais pas si mon problème est clair, en tout cas, je suis à votre disposition pour toutes précisions complémentaires.

Merci d'avance pour l'aide

**casefayere** · 10/05/2009, 20h04

Bonsoir azerty,

avant de voir ton problème actuel, j'aimerai que tu me dises où tu en es avec ton probleme de definition de nom, je t'avais envoyé un fichier repensé,

Pour ton problème actuel, ne peux-tu pas mettre ta listbox dans un USF ? ça serait plus facile à gérer

Bonne soirée

**azerty1956** · 10/05/2009, 23h04

Bonsoir Casefayere,

Tu auras la réponse demain, une fois que j'aurais adapter le code à mon vrai Tableau....(J'attends d'avoir vraiment vérifié comme il faut avant de te donner une réponse).

Pour l'USF c'est quoi au juste ?

Bonne soirée

**casefayere** · 11/05/2009, 07h13

Bonjour Azerty,

Ne t'en fais pas au sujet de l'autre discussion, je croyais que tu l'avais plus ou moins abandonnée. (en tout cas, quand j'ai testé ma dernière proposition, ça fonctionnait)
Pour ta listbox :
1 - Il doit etre possible pour un combobox (je parle bien d'une zone de liste modifiable) ou d'une listbox (zone de liste non modifiable) de lui attribuer ses propriétés rowsource en dehors de la feuille avec l'évenement activate de la feuille où est situé le fameux combobox ou listbox mais je n'ai jamais testé.

2 - Un USF est un userform que tu crées à l'aide de l'éditeur VBA, sur lequel tu pourras insérer toutes les boites de dialogues que tu veux et les mettre en relation comme tu veux, voir le lien
http://silkyroad.developpez.com/VBA/UserForm/

je pense que la 2eme solution sera mieux adaptée pour toi, mais c'est toi qui vois....

Bonne journée

**azerty1956** · 14/05/2009, 16h49

Je t'avoue que je suis un peu perdu...
Pour ta première proposition j'ai essayé ça ne marche pas...
Pour le USF, je suis en train de voir ca, ca a pas l'air évident...
Je te tiens au courant.
Merci pour les pistes Casefayere

@+

**azerty1956** · 15/05/2009, 11h33

Re casefayere,

Pour le USF, j’ai lu le tutorial, mais je ne vois pas concrètement comment je pourrais faire.
Sinon, d’après ce que j’ai lu sur le net, on peut créer une listbox assez simplement à partir d’une plage donnée (dans mon cas c’est A2 : C Dernière ligne renseignée) pour la listbox Name qui dépendra du périmètre choisi. Le gros problème c’est que au niveau de cette plage il y a des trous donc ça ne va pas marcher. En plus de ça, il faut que la listbox Name prenne en compte la listbox Perimètre (qui est fixe) et qui détermine le type de l’activité (activité, sous activité, entité.)….
Pour la list sheet (elle sera fixe) et pour la liste Type (fixe aussi/PS : le type est différentié par les couleurs des valeurs insérer dans le tableau)…

Une fois les choix fait au niveau de cette box, on devra appuyer sur un boutton « Générer Fichier »
(Ceci reviendra à faire un find =>Seléctionner=>Copier et coller dans une nouvelle feuille la partie du tableau qui correspond au choix prédéfini au niveau de la listbox)

Voila voila
Dis moi ce que tu pense de tout ça.

@+ et Merci d'avance pour les conseils

**azerty1956** · 18/05/2009, 18h47

Re,

J'ai résolu une grande partie du problème sur Excel seulement

avec la formule magique qui me permet de prendre que le nom de l’activité à parti de la colonne 4 « cachée» de la sheet1 nommé ici sheet résultat : =IF(LEFT(Resultat!R[-29]C,LEN(R21C3)+4)="Main"&R21C3,RIGHT(Resultat!R[-29]C,LEN(Resultat!R[-29]C)-LEN(R21C3)-4),"")

elle me permet d’avoir mes activités dans la sheet où j'ai fais mes listes déroulentes...(pour éviter le problème des vides j’ai créer un tableau pivot et nommer cette liste Name_List pour pouvoir faire une liste déroulante par la suite…
J’ai mis en place des Onchange ( si le perimeter change, si le nom change et si la feuille change)
En effet j’ai plusieurs feuilles, pour faire un seul code je veux faire un copier coller au niveau de la feuille résultat que je vais exploiter tout le temps.
C'est à ce niveau la que ca ne marche pas et je ne comprends aps pourquoi le code n'arrive pas à copier coller la nouvelle feuille.....?

Voila mon code qui marche pas :

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
23
24
25
26
27
28
29
30
31
32
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
'If Target = Range("perim") Then
'    ActiveSheet.Calculate
'    ActiveSheet.PivotTables("PivotTable2").RefreshTable
'End If
Application.ScreenUpdating = False
If Target.Column = 2 And Target.Row = 21 Then
    Sheets("Resultat").Select
    Application.DisplayAlerts = False
    Sheets("Resultat").Delete
    ActiveWorkbook.Worksheets.Add
    ActiveSheet.Name = "Resultat"
    Worksheets(Target.Value).Select
    Selection.Copy
    'Sheets(Target.Value).Copy
    Sheets("Resultat").Select
    Sheets("Resultat").Paste
    Sheets("Menu").Activate
    ActiveSheet.Calculate
    ActiveSheet.PivotTables("PivotTable2").RefreshTable
 
 
ElseIf Target.Column = 3 And Target.Row = 21 Then
ActiveSheet.Calculate
ActiveSheet.PivotTables("PivotTable2").RefreshTable
 
'ElseIf Target.Column = 4 And Target.Row = 21  Then
'
End If
 
End Sub

Si ce n'est pas clair c'est pas grave je continuerais mes recherches

Merci casefayere pour ton aide

@+

**casefayere** · 18/05/2009, 19h59

Bonsoir Azerty,

j'essaie de comprendre en decortiquant ton code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If Target.Column = 2 And Target.Row = 21 Then 'donc target = b21, ok?
    Sheets("Resultat").Select
    Application.DisplayAlerts = False 'pense à remettre à true en fin de code
    Sheets("Resultat").Delete 'tu supprimes ta feuille "resultat
    ActiveWorkbook.Worksheets.Add 'tu ajoutes une feuil "resultat"
    ActiveSheet.Name = "Resultat"
    Worksheets(Target.Value).Select 'il existe une feuille du nom de la cellule b21
    Selection.Copy 'tu la copie
    Sheets("Resultat").Select
    Sheets("Resultat").Paste 'dans la feuille resultat
    Sheets("Menu").Activate
    ActiveSheet.Calculate

C'est bien ça ?

**azerty1956** · 19/05/2009, 09h29

oui c'est bien ca, j'ai écris ce code dans la feuille "Menu", tout me parait logik pourtant ca marche pas, il ne me copie pas les feuilles dans la sheet "resultat"

En fait dès que je clique sur la liste déroulante de la cellule (21,2) je n'ai meme pas le temps de choisir la feuille que je veux copier, le code s'active automatiquement et il me colle la même sheet....
En plus de ca ma formule "magique" devient :

Code :

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

=IF(LEFT(#REF!R[-29]C,LEN(R21C3)+4)="Main"&R21C3,RIGHT(#REF!R[-29]C,LEN(#REF!R[-29]C)-LEN(R21C3)-4),"")

donc je n'ai que des #REF au lieu d'avoir des noms d'activités

voila les 2 problèmes

**casefayere** · 19/05/2009, 12h40

Bonjour Azerty, re le forum,

Si ton fichier n'est pas trop lourd, pourrais-tu l'envoyer ? (en changeant les données si tu le souhaites

Je ne peux pas donner des conseils ou des alternatives éventuelles, à l'aveugle

**azerty1956** · 22/05/2009, 11h19

Bonjour Casefayere,

Désolé pour le retard, j'ai essayé tout mon possible pour m'en sortir mais je n'ai pas réussi à résoudre le problème....

J'ai des feuilles où j ai des tableaux où pour chaque activité ou sous activités des valeurs correspondent suivant les catégories(voir fichier joint).

Je souhaite à l'aide d'un « menu » préciser le type d'activité ou périmetre,le nom de l'activité, le nom de la feuille dans laquelle on effectue la recherche, et ainsi pouvoir avoir accès aux données relative à cette activité toute seule ( pour cela j’ai mis en place un find, je cherche l'élément grâce au find et je le fait copier coller la row correpondante dans une nouvelle feuille nommée « SousNotif »)...

J'ai travaillé par la suite sur Excel seulement

avec la formule magique qui me permet de prendre que le nom de l’activité à parti de la colonne 4 « cachée» de la sheet «Resultat »: =IF(LEFT(Resultat!#REF!,LEN(R21C3)+LEN(shit))=shit&R21C3,RIGHT(Resultat!#REF!,LEN(Resultat!#REF!)-LEN(R21C3)-LEN(shit)),"") cette formule est entrée à partir de la cells(33,4) jusqu’à (1000,4) de la sheet Menu…..Cette formule tronque les noms des activités, SA1 et SA2 (sous activités) de la sheet « Resultat » colonne 4. Pour faire une liste mieux ordonnée (sans trous) j’ai créer une pivot Table où j’ai défini la liste comme « Name_List » pour pouvoir faire une liste déroulante par la suite au niveau de Name. J’ai mis en place des Onchange ( si le perimeter change, si le nom change et si la feuille change) cf code ci-dessous (disponible aussi au niveau de la sheet 27)

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
23
24
25
26
27
28
29
30
31
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target = Range("perim") Then
    ActiveSheet.Calculate
    ActiveSheet.PivotTables("PivotTable2").RefreshTable
End If
Application.ScreenUpdating = False
If Target.Column = 2 And Target.Row = 21 Then
    Sheets("Resultat").Select
    Application.DisplayAlerts = False
    Sheets("Resultat").Select
    Cells.Delete
    Worksheets(Target.Value).Select
    Selection.Copy
    Sheets(Target.Value).Copy
    Sheets("Resultat").Select
    Sheets("Resultat").Paste
    Sheets("Menu").Activate
    ActiveSheet.Calculate
    ActiveSheet.PivotTables("PivotTable2").RefreshTable
 
 
ElseIf Target.Column = 3 And Target.Row = 21 Then
ActiveSheet.Calculate
ActiveSheet.PivotTables("PivotTable2").RefreshTable
 
ElseIf Target.Column = 4 And Target.Row = 21 Then
 
End If
 
End Sub

J’ai plusieurs feuilles, pour faire un seul code je veux faire un copier coller au niveau de la feuille résultat que je vais exploiter tout le temps. Et ainsi faire mes recherches ciblées au niveau de ma feuille « Menu »
C'est à ce niveau la que ça ne marche pas, en effet ma formule n’est pas généraliste : (la présence d’une référence perturbe le copier coller au niveau de la sheet Resultat)

=IF(LEFT(Resultat!#REF!,LEN(R21C3)+LEN(shit))=shit&R21C3,RIGHT(Resultat!#REF!,LEN(Resultat!#REF!)-LEN(R21C3)-LEN(shit)),"")

Finalement, je pense peut etre qu’il faudra passer par une macro…..??

Le fichier est très gros pour etre envoyé j'ai essayé ca ne marche pas (même quand c'est zipper), est ce que ca te derrange si tu me donne ton email comme ca je te l'envoie (tu peux m'envoyer ton email par MP si tu le souhaite).
Le problème sera très clair, une fois que tu aura le fichier sous les yeux...

Merci d'avance pour ton aide précieuse

**casefayere** · 22/05/2009, 11h49

Bonjour Azerty, re le forum,

tu as oublié le fichier joint

important pour moi

Bonne journée

**azerty1956** · 22/05/2009, 12h41

Re Casefayere, le forum,

Le fichier est très gros pour etre envoyé j'ai essayé ca ne marche pas (même quand c'est zipper), est ce que ca te derrange si tu me donne ton email comme ca je te l'envoie (tu peux m'envoyer ton email par MP si tu le souhaite).
Le problème sera très clair, une fois que tu aura le fichier sous les yeux...

Merci d'avance pour ton aide précieuse

**azerty1956** · 23/05/2009, 11h17

Re casefayere,

Pour la colonne 4 de "Main" elle est cachée, c'est sur cette colonne que j'applique ma formule magique

pour tronquer les noms....
A noter que sur la sheet Menu : les NAMES dépendent du perimeter et de la sheet choisi....

Voila voila

@+

**PUARAI** · 24/05/2009, 00h56

Essaie de le déposer la ton fichier et renvoie nous l'adresse

http://www.cijoint.fr/

A +++

**azerty1956** · 25/05/2009, 09h32

Bonjour PUARAI, casefayere, le forum

je le mettrai bientôt en ligne PUARAI...
Je te remercie pour l'intéret pour le sujet....
sinon j'attends tes conseils casefayere

Merci d'avance
@+

**casefayere** · 25/05/2009, 14h43

Bonjour Azerty, Puarai, le forum,
J'ai téléchargé ton fichier, en l'ouvrant, il me demande des liaisons avec un autre classeur que je n'ai pas.

Quand bien même, je crois que ton problème me demande trop de temps et d'énergie avant d'avoir une idée précise de ta finalité, c'est dommage mais je préfère etre honnete avec toi et te dire que je n'aurai jamais le temps de m'investir comme il faut avant de tout comprendre, peut-etre faut'il que tu orientes ta question sur un seul problème car là j'avoue que je suis largué

, j'espère sincèrement que tu pourras t'en sortir avec ce programme qui me parait bien compliqué, continues à poster, tu trouveras certainement de bonnes ames compétentes et plus éclairées que moi pour t'aider.

Excuses-moi encore, bonne journée, bon courage,

PS : j'ai tendance à relacher avec le forum car j'habite en campagne et, avec ce temps, je suis plus souvent dehors quand je ne suis pas au boulot (qui m'accapare beaucoup malgré la criiiiiiise)

**azerty1956** · 25/05/2009, 15h17

Bonjour casefayere, Puarai, le forum,

Le pbm des liaisons est tout à fait normal...je n'ai pas ce pbm sur mon pc où j'ai toutes les librairies....le problème ne se situe pas la du tout...

Ma question est simple c'est juste comment créer un menu déroulant (Sheet, Perimeter, Name) c'est tout...

C'est deja fait pour la feuille "Main" et ca marche....Pour les autres feuilles ca ne marche pas car ma formule n'est pas généraliste...(il suffit seulement de voir la feuille Menu C tout)

Je te remercie casefayere pour ton aide qui m'a bcp apporté jusqu'à présent...
Profite bien du beau temps...

Moi de mon coté je vais continuer à chercher...

@ la prochaine

**PUARAI** · 25/05/2009, 16h40

Bonsoir Azerty 1956, l'ami Casefeyere et le forum

Tu vois je suis vraiment désolé, même moi je ne pourais pas te répondre j'ai suivie la conversation mais j'ai essayé de trouver un truck mais un moment cela dépasse mes compétences ou peut etre comme le dis ci bien casefeyere,
faire petit a petit,

Je te souhaite bon courage pour la suite mais affaire a suivre

A +++

**azerty1956** · 27/05/2009, 15h02

Merci pour tes encouragements PUARAI, finalement j'ai réussi à débloqué mais il me reste beaucoup d'améliorations à faire sur mon code.
Si tu es toujours interessé je peux te tenir au courant

Bonne journée!
@+

Création d'une listbox

Macros et VBA Excel

Discussions similaires

Partager

Partager