onglet complement excel 2007

Version imprimable

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:

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

bonjour,

en faisant comme ceci ça fonctionne??

Code:

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

22/12/2010, 17h40
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

bonjour,

effectivement

voici le code corrigé.

Code:

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