Discussion :

[amarchal]

bonjour
j'ai ajouté dans les complements une liste de 33 items avec le code suivant
ce code fonctionne parfaitement
la seule chose c'est que j'obtiens une liste de 33 lignes
je voudrais savoir s'il existe une possibilité d"avoir cette liste sous forme de tableau (par ex. au lieu de 33 lignes 4 colonnes et 10 lignes)

merci d'avance de votre réponse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Set maBarp = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
maBarp.TooltipText = "Poules"
maBarp.Caption = "Poules"
For Z = 1 To 33
With maBarp.Controls.Add(msoControlButton)
.Caption = "Poules_" & Z
.OnAction = "'ppoules " & Z & "'"
.FaceId = 49 '49=?
End With
Next

[mayekeul]

bonjour,

en faisant comme ceci ça fonctionne??

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
Dim maBarP
Dim maBarP2
Dim FL As Integer, SL As Integer, Ida As Integer
 
Ida = 1
 
For FL = 1 To 4
    Set maBarP = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
    maBarP.TooltipText = "Poules " & FL
    maBarP.Caption = "Poules " & FL
        For SL = 1 To 10
            If Ida > 33 Then Exit Sub
            Set maBarP2 = Application.CommandBars(maBarP.Index).Controls.Add(msoControlPopup, , , , True)
            With maBarP.Controls.Add(msoControlButton)
                .Caption = "Poules_" & Ida
                .OnAction = "'ppoules " & Ida & "'"
                .FaceId = 49 '49=?
                Ida = Ida + 1
            End With
        Next SL
Next FL

[amarchal]

Bonjour

Merci pour votre réponse rapide
Votre code fonctionne hormis qu'il crée 4 controles (poule 1, poule 2, poule 3 et poule4) ainsi que 3 autres controls nommé "-----------"
j'aurais voulu avoir un seul controle "Poules" qui en s'ouvrant m'aurait présenté un tableau style
poule 1 poule 11 poule 21 poule 31
poule 2 poule 12 poule 22 poule 32
etc ...........

encore merci

AM

[mayekeul]

bonjour,

effectivement

voici le code corrigé.

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
Sub ADBAR()
Dim maBarP As CommandBarPopup
Dim maBarP2 As CommandBarPopup
Dim FL As Integer, SL As Integer, Ida As Integer
 
Ida = 1
 
Set maBarP = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
maBarP.TooltipText = "Poules"
maBarP.Caption = "Poules"
 
For FL = 1 To 4
    Set maBarP2 = maBarP.Controls.Add(msoControlPopup, , , , True)
    maBarP2.TooltipText = "Poules " & FL
    maBarP2.Caption = "Poules " & FL
        For SL = 1 To 10
            If Ida > 33 Then Exit Sub
            With maBarP2.Controls.Add(msoControlButton)
                .Caption = "Poules_" & Ida
                .OnAction = "'ppoules " & Ida & "'"
                .FaceId = 49 '49=?
                Ida = Ida + 1
            End With
        Next SL
Next FL
 
End Sub