Discussion :

[patricktoulon]

bonjour

mon soucis:
j'ai 2 shapes que je selectionne et auclic droit je selection le bouton "remplissage" dans la commandbar et je change la couleur des 2 shapes

par vba
je sélectionne mes 2 shapes comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes.Range(Array("toto", "titi")).Select

les shapes sont bien sélectionnés mais je n'ai pas la vision de la sélection comme cecil'encadrement avec les points)
Pièce jointe 174997
étant donné que l'état n'est pas le même que celui quand on sélectionne manuellement
mon bouton remplissage dans ma commandbar perso qui l'exacte copie de celui d'origine ne semble pas fonctionner correctement
a la place du remplissage avec la couleur choisie il me colore la bordure des shapes

quelqu'un a une idée

je sais c'est encore une question tordue mais j'en suis plus a une près

[antonysansh]

Bonjour patricktoulon,

En testant je ne rencontre pas ton problème, les 2 shapes sont bien sélectionnés comme si je le faisais manuellement.

Tu as bien ça :

Dans le Volet Sélection ?

[patricktoulon]

Re

qué volet section qui césuila!!!!!!!

[antonysansh]

Onglet "Mise en Page" -> Sous Onglet "Organiser" (à droite nativement) -> Volet Sélection
Tu auras une fenêtre à droite avec tous les objets de ta feuille active avec leurs noms et la possibilité de les masquer/afficher

[patricktoulon]

re
oui Antony j'ai bien les shapes selectionnées on le voit bien dans le volet selection
mais on ne le voit pas directement sur le sheets

c'est pour cela que je parlais d'etat quand on le fait manuellement l'etat se voit directement sur le sheet

regarde ces 2 capture d'ecran
la premiere c'est le resultat avec ma commandbar
la 2 avec la commandbar normale d'origine
j'utilise le meme control et pourtant ca ne fait pas le meme resultat
capture1:
Pièce jointe 175005

capture2:
Pièce jointe 175012

[antonysansh]

Pour le coup je ne comprends pas tout, avec ton premier code que j'ai testé, la sélection ce fait bien comme lors d'une sélection manuelle.

Et de fait le problème d'état je ne le comprend pas non plus

[patricktoulon]

re

du fait que quand je sélectionne manuellement ou par vba ce que j'ai a l'écran est différent donc il y a forcement un état différent

peut etre le focus ou quelque chose de ce genre

je ne parle pas de l'affichage dans le volet sélection ca c'est bon

je te parle de l'affichage sur le sheets qui ne m'encadre pas la sélection quand sélection par vba
c'est plus clair la

merci pour le coup de main au fait

[PMO2017]

Bonjour,

A tout hasard, ne faudrait-il pas utiliser un DoEvents quelque part pour refiler la main à l'application ???

[patricktoulon]

bonsoir pmo

non j'en ai mis partout ca ne change rien

mais je pense que la on atteint les limites d'inter communications des control avec vba

en effet même si le bouton remplissage ne remplit pas son rôle correctement des que je le sélection (donc change de couleur )
la sélection est visible hors quand je sélectionne par vba les objects sont bien sélectionnés mais pas visiblement a l'écran

c'est un casse tète chinois ce truc

je pense que quand je survole le popup ca sélectionne et ensuite développe les sub menus et c'est la que le bas blesse la commandbar popup perso doit prendre le focus et des que je clique sur une des couleur du boutons ,la command bar disparait (elle a fait son travail) et seulement la le sheets reprend le focus

c'est vraiment un casse tète chinois turc javanoaffricanopaqistané ce truc

[gnain]

Bonjour Patrick,
je viens d'essayé aussi et que ce soit à la main ou par vba la sélection à l'écran est identique.
mais bon peut-être que je n'ai pas les même shape que toi.

si tu veux attaché un fichier excel je l'essayerai.

[antonysansh]

Bonjour à tous,

Tout comme gnain, je ne vois pas différence entre une sélection avec clic sur le Shape et sa sélection via VB.

Avec le code Ci-dessous en pas à pas, je vois bien mes shapes se sélectionner successivement.
Puis à la fin les deux nommés toto et titi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
 
Dim Shs As Shapes
Set Shs = ActiveSheet.Shapes
 
Dim Sh As Shape
For Each Sh In Shs
    Sh.Select
Next
 
ActiveSheet.Shapes.Range(Array("toto", "titi")).Select
 
End Sub

[patricktoulon]

Bonjour a tous

voila le fichier
je n'ai laissé que le stricte nécessaire a l'examen du soucis

dans un premier temps
cliquez sur la bande violette le popup s'affiche:
allez sur bandeau1 les enfant du menu s'affiche

l'enfant qui nous intéresse c'est "couleur de remplissage "(le petit sot de peinture )
cliquez dessus une couleur
et regardez l'effet sur le shapes
ca n'est évidement pas l'effet recherché

maintenant sélectionnez un ou les deux shapes
cliquez droit dessus ensuite
sélectionnez le même bouton (le petit sot de peinture ) de la barre d'origine et choisissez une couleur
regardez l'effet
et bien c'est celui la que je veut

[gnain]

Bonjour,
piste: le code confond la couleur de trait avec la couleur de remplissage

après avoir fait ton code, fait la même chose à la main sur seulement toto
ensuite fait le bouton de droit avec ta souris sur toto et click sur format de la forme
regarde dans remplissage et couleur de trait

puis fait la même exercice avec titi.

on voie que le code confond la couleur de trait avec la couleur de remplissage

je continue de chercher

[gnain]

Pourtant si on change ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Shapes.Range(Array("toto", "titi")).Select

pour ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 1).Select

tout fonctionne bien ???

[patricktoulon]

Re
bonjour Gnain
et oui !! je sais mais ca ne résout pas mon soucis

pourtant tu conviendra que ca devrait fonctionner ou pas mais pas l'effet que ca donne c'est incompréhensible!!!!

[antonysansh]

Avec la réflexion de gnain j'ai l'impression que ça marche très bien. (je sais, ça doit t'énerver de lire ça )

On peut même supposer qu'en fait lorsque tu sélectionnes un shape c'est sa bordure qui est sélectionné.
Il suffit peut être de trouver un moyen d'en sélectionner l'intérieur directement par exemple son TextFrame

[gnain]

j'ai l'impression qu'il y une erreur d'inversion de la part de Microsoft
mais quel est le ID pour le contour de forme?

[patricktoulon]

salut Antony
tu pense bien que c'est la première idée qui m'est venue (sélectionner le textframe)

et bien non!!! ca marche pas non plus

si je persiste c'est que vraiment j'ai essayer presque tout et je dis presque parce que peut être la solution ne m'a pas traverser l'esprit

j'ai même essayer une sorte de callback

dans la sub de sélection je met set myobject= activesheet.shapes.range.........

cette sub étant appelée au survol ou au click du sous menu bandeau1

ensuite en fin de code de construction de barrepopup
je remet myobject.select
au cas ou le fait de développer les sub menus perdrait le focus du/des shapes a l'avantages des sub menus

mais non ca marche pas rien a faire
je Pete les plombs avec cette co........

[patricktoulon]

j'ai l'impression qu'il y une erreur d'inversion de la part de Microsoft
mais quel est le ID pour le contour de forme?

pour les contour de la forme c'est une sorte de xldialog(fenêtre avec tout le toin toin) je ne l'ai pas trouvé celle la non plus

mais c'est pas le but
le but c'est d'avoir le tout dans le popup
en recopiant le control ca devrait fonctionner
je cherche et je continu jusqu'à la dépression

[gnain]

oui, mai quand on fait un right click sur la shape et on va dans format de la forme on s'aperçoit que c'est le contour de forme qui a la
couleur choisi.
C'est pour cela que je pense qu'il y une erreur d'inversion de la part de Microsoft
entre le remplissage et le contour de forme.

J'aimerais bien essayé avec ID de contour de forme pour voir si ma théorie est bonne.