Discussion :

[lebeniste]

bon je ne sais pas comment on appele ca , mais j'essais d'expliquer:

je veux creer une boite de selection dans mon classeur un peu comme dans excel exemple : quand on clic dans la barre doutils menu , si je clic sur fichier il ouvre une liste d'option , si je choisi envoyer vers ... il y a d'autre option ... c'est une boite comme ca que j'aimerais faire dans mon classeur .

en clicant cette boite j'aurai des option par exemple des clous, en clicant sur clous j'aurai l'option de finition ou charpente , en selectionnant finition j'aurai le choix des longeur et grosseur .... et ainsi de suite pour tout les option de ma bd .

est-ce possible ?
me faut-il une bd par section ???

bien des questionnements pour ma petite tete...
et en plus je ne sais meme pas comment peux s'appeler cette commande ...

merci pour vos info

[kilimanjaro]

Une réponse ici

[lebeniste]

merci
ce que j'aimerais c'est comme le #3, menu popup
qui est integrer au classeur (fixe a une cellule)
j'ai essayer la procedure mais sans resultat , en fait je comprend rien
je ne sais pas comment la relier a ma bd , si je dois sectionner ma bd je suis perdu
y a t'il un site ou autre avec une marche a suivre

je veux peut-etre aller trop vite , je ne ferme pas cette discution je prendrai du temps pour lire et relire et peut-etre encore rerelire


merci

[ouskel'n'or]

Tu as lu jusqu'au chapitre 1.1 ?
Tu ne voudrais tout de même pas qu'on le fasse pour toi

[lebeniste]

non quand meme ,
si vous le faites , je ne comprendrai pas plus ,,, j'y travail , j'y travail et j'ai hate de clicer resolue

j'y arrive pas , toujours des erreurs , y manque ceci manque cela , je ne me retrouve plus dans les chemins.

mais merci quand meme

[ouskel'n'or]

Montre ce que tu as fait, on ne sait jamais, des fois qu'on ait le bon chemin

[lebeniste]

au depart je sais meme pas quel chose je dois changer ,
valeur = la liste de donner ???
le nom commande bar = le nom de quoi???

en faite je comprend pas , que veux tu . en plus j'ai sur 2 feuille differente a faire une recherche de donner , c'est la raison d'une liste de choix popup, un clic sur client et j'ai la liste ou click sur materiels et j'ai l'autre liste .

mais voila ce que j'ai comme code la premiere erreur est

Code :

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

1
2
3
Sub Affiche_barre_popup()
CommandBars("MaBarrePopup").ShowPopup
End Sub

je suis peut-etre nul
le code total :

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
33
34
35
36
37
38
Sub Affiche_barre_popup()
CommandBars("MaBarrePopup").ShowPopup
End Sub
 
Sub Creation_barre_popup()
'déclaration des variables
Dim Cbar As CommandBar, Clist As CommandBarComboBox, x As Byte
 
'création de la barre de menu de type Popup
Set Cbar = CommandBars.Add(Name:="recherche", Position:=msoBarPopup, temporary:=True)
 
'insertion d'une zone de liste
Set Clist = Cbar.Controls.Add(msoControlDropdown)
With Clist
    .TooltipText = "materiels (b21;b26)" '<-- info-bulle
    .DropDownLines = 10 '<-- limitation de l'affichage à 10 lignes
    .OnAction = "Macro1" '<-- procédure à exécuter
    For x = 1 To 20
        .AddItem ("v" & x) '<-- ajout de 20 Items
    Next x
End With
End Sub
 
Sub Supp_barre_popup()
On Error Resume Next
CommandBars("MaBarrePopup").Delete
End Sub
 
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 2009-03-06 par André
'
 
'
    Range("B14:D24").Select
    Range("B15").Activate
End Sub

j'ai meme essayer le demo sur le lien que tu ma indiquer,
a l'ouverture y a deja erreur

il y a un probleme ? si le demo est ouvert ,je peux dans mon dossier faire un clic droit et une boite ouvre , mais si je ferme le demo , plus rien ne marche


???? ya une raison

[nicht]

Salut le forum
Ton code est pas mal mais j' ai fait juste quelques modifs.

Essai comme ça

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
33
34
35
36
37
38
Sub Affiche_barre_popup()
CommandBars("MaBarrePopup").ShowPopup
End Sub
 
Sub Creation_barre_popup()
'déclaration des variables
Dim Cbar As CommandBar, Clist As CommandBarComboBox, x As Integer
 
'création de la barre de menu de type Popup
Set Cbar = CommandBars.Add(Name:="MaBarrePopup", Position:=msoBarPopup, temporary:=True)
 
'insertion d'une zone de liste
Set Clist = Cbar.Controls.Add(msoControlDropdown)
With Clist
    .TooltipText = "materiels (b21;b26)" '<-- info-bulle
    .DropDownLines = 10 '<-- limitation de l'affichage à 10 lignes
    .OnAction = "Macro1" '<-- procédure à exécuter
    For x = 1 To 20
        .AddItem ("v" & x) '<-- ajout de 20 Items
    Next x
End With
End Sub
 
Sub Supp_barre_popup()
On Error Resume Next
CommandBars("MaBarrePopup").Delete
End Sub
 
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 2009-03-06 par André
'
 MsgBox "salut"
'
'    Range("B14:D24").Select
'    Range("B15").Activate
End Sub

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Affiche_barre_popup
 
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
End Sub

[lebeniste]

Une réponse ici

si j'ouvre le demo , je l'essais et ca fonctionne . si le demo est ouvret et que mon dossier est ouvert aussi , tout fonctionne dans le mien et dans le demo . aussitot que le demo est fermer , plus rien fonctionne ?????

ca me donne erreur d'execusion "5" ???

si je dis debogage, l'erreur se situe au debut commande bar ...... comme l'image jointe. et ce n'est pas fini je croix qu'il va en avoir bien d'autre