étendre la "zone d'action" d'une macro VBA sur excel
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:
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 |
