Command button et forme sélectionnée

Version imprimable

10/03/2017, 18h28
Daniel.C

Command button et forme sélectionnée

Bonjour,

XL2007 et postérieures

Un interlocuteur attire mon attention sur un comportement surprenant (pour moi) des command buttons. Le but est de modifier la couleur de la forme sélectionnée en appuyant sur un command button. Le code va donc :

Code:

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10

sauf que, à l'exécution ligne à ligne, avant d'exécuter celle-ci (qui est la première ligne), dans la fenêtre d'exécution,

Code:

?selection.address

renvoie $B$14

donc un range et l'exécution de la ligne citée provoque une erreur 438 (logique). Apparemment toujours B14, même si on déplace le command button, mais variable d'un classeur à l'autre.
Le bouton des contrôles de formulaire, lui, fonctionne.

Quelqu'un a-t-il un début d'explication ? Merci d'avance.

1 pièce(s) jointe(s)

Bonjour,

Le contrôle ActiveX nécessite qu'on lui fournisse la Shape à traiter. Ce n'est donc pas la sélection de la Shape qui va le renseigner alors que c'est ce qu'il faut faire avec un contrôle de Formulaire. Voir l'exemple fourni qui comporte ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub aa() Dim A$ Dim SH As Shape '--- On Error Resume Next A$ = Application.Caller If Err = 0 Then '--- Contrôle de formulaire --- Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10 Else '--- Contrôle ActiveX --- 'il faut identifier la Shape (ce n'est pas la sélection qui compte)' Set SH = ActiveSheet.Shapes("Ellipse 1") 'OU PAR SON INDEX ActiveSheet.Shapes(1) SH.Fill.ForeColor.SchemeColor = 30 End If On Error GoTo 0 '''suite du traitement End Sub

11/03/2017, 13h04
Daniel.C

Bonjour,

Merci de ta réponse. Ca confirme ce que je constate. Est-ce que tu as une idée de pourquoi une cellule est sélectionnée ? Parce qu'il en faut une ? Sinon, merci pour l'exemple. Mon interlocuteur,, ayant beaucoup de shapes, a opté pour un bouton dans la barre d'outils accès rapide.

Citation:

Pourquoi une cellule est sélectionnée ?

L'ActiveX considère comme Selection la dernière cellule (ou plage) qui a été sélectionnée.

On peut toutefois sélectionner la Shape tout en exécutant le code de l'ActiveX mais je ne vois pas l'intérêt, pour ce faire remplacer le code de mon exemple par celui-ci :

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
28
29
30
31
Option Explicit
 
Sub aa()
Dim A$
Dim SH As Shape
'---
On Error Resume Next
A$ = Application.Caller
If Err = 0 Then
  '--- Contrôle de formulaire ---
  Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
Else
  '--- Contrôle ActiveX ---
  'il faut identifier la Shape (ce n'est pas la sélection qui compte)'
  Set SH = ActiveSheet.Shapes("Ellipse 1")  'OU PAR SON INDEX ActiveSheet.Shapes(1)
  SH.Fill.ForeColor.SchemeColor = 30
 
'###
Dim i&
For i& = 1 To 20: DoEvents: Next i&   'boucle pour le rafraîchissement
SH.Select
MsgBox "On sélectionne maintenant la Shape par code"
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 20  'l'instruction se réfère à l'objet Selection
'###
 
End If
On Error GoTo 0
 
'''suite du traitement
 
End Sub

11/03/2017, 18h07
Daniel.C

Merci, ma problématique est de ne pas utiliser le nom ou l'index de la forme.