Discussion :

[Harkneys]

Bonjour à tous !

Voilà j'ai un problème avec une macro dans un de mes documents excel

Il s'agit d'afficher une fenêtre popup permettant de sélectionner le nom d'une couleur à afficher dans la cellule.
Cette macro fonctionne pour les cellules D7 à D16 mais j'aimerais étendre son action aux cellules D7 à J16 le problème c'est que je ne sais pas où apporter des modifications dans la macro ...

Merci d'avance à tous ceux qui pourront m'aider un peu !

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
Public cb As CommandBar
Sub popupselectioncouleur()
    Dim liste As Range
    Set liste = Range("liste")
    If liste.Column > 1 Then Exit Sub
 
    Dim i As Long, nbl As Long
 
    On Error Resume Next
    CommandBars("Menu_Gw").Delete
    On Error GoTo 0
 
    Set cb = Application.CommandBars.Add("Menu_Gw", msoBarPopup)
    nbl = liste.Count
    For i = 1 To nbl
        With cb.Controls.Add(msoControlButton, 1, , , True)
            .Caption = liste(i)
            .OnAction = "gw_lance(" & i & ")"
        End With
    Next i
    cb.ShowPopup
End Sub
Sub gw_lance(index As Long)
    ActiveCell = cb.Controls(index).Caption
End Sub

[defluc]

Salut,

Pour le peu que je comprenne ce que tu veux, la seule chose qui semble définie, c'est la plage "liste".
J'imagine donc que c'est sur celle-ci qu'il faut agir