Magic_Doctor
XLDnaute Barbatruc
Bonjour,
J’ai plusieurs cellules qui, quand on clique dessus, déclenchent automatiquement une macro paramétrée : ActionCellBouton (x As Byte).
Toutes ces cellules sont nommées : CellBouton1, CellBouton2…
Le « x » de la macro n’est ni plus ni moins que le suffixe numérique du nom de chaque cellule nommée.
Voici ma routine qui marche correctement :
Supposons maintenant qu’il y ait, pourquoi pas, 250 cellules nommées selon le même principe. Existerait-il un moyen d’éviter de réécrire à chaque fois :
Jusqu’à :
En écrivant un truc du genre :
C’est essentiellement par curiosité que je pose la question.
J’ai plusieurs cellules qui, quand on clique dessus, déclenchent automatiquement une macro paramétrée : ActionCellBouton (x As Byte).
Toutes ces cellules sont nommées : CellBouton1, CellBouton2…
Le « x » de la macro n’est ni plus ni moins que le suffixe numérique du nom de chaque cellule nommée.
Voici ma routine qui marche correctement :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [CellBouton1]) Is Nothing Then
ActionCellBouton (1)
End If
If Not Intersect(Target, [CellBouton2]) Is Nothing Then
ActionCellBouton (2)
End If
If Not Intersect(Target, [CellBouton3]) Is Nothing Then
ActionCellBouton (3)
End If
If Not Intersect(Target, [CellBouton4]) Is Nothing Then
ActionCellBouton (4)
End If
End Sub
Code:
If Not Intersect(Target, [CellBouton1]) Is Nothing Then
ActionCellBouton (1)
End If
Code:
If Not Intersect(Target, [CellBouton250]) Is Nothing Then
ActionCellBouton (250)
End If
Code:
If Not Intersect(Target, Range("CellBouton" & x)) Is Nothing Then
ActionCellBouton (x)
End IfC’est essentiellement par curiosité que je pose la question.
