XL 2016 soucis avec userform et macro

gsx-air · 26 Août 2021

salut a tous
j'ai un fichier dans lequel j'ai plusieurs images j'ai fais une macro permettant de positionner de redimensionner les images en fonction de leurs nombres et de leurs position
je sélectionnes l'image je lance la macro et cela fonctionne
je décides d'ajouter une userform pour renseigner le nombre d'image
puis la position de l'image puis je lance la macro

Je suis confronté a un problème
lorsque que j'ouvre la userform je perds la sélection de l'image que je veux redimensionner et par conséquent la macro ne fonctionne pas (puisque plus d'image sélectionnée)
j'ai cherché a créer une variable qui serait l'image juste avant d'ouvrir la userform de façon a pouvoir récupérer cette variable lors de l'exécution de la macro
mais je ne trouve pas
peut être y aurait t-il un autre moyen comme ouvrir la userform durant l'exécution de la macro mais je ne trouve pas non plus
je m'en remets a vous
j'ai l'impression d'être assez proche de la solution mais sans y parvenir

Dranreb · 27 Août 2021

En fait As Shape n'a pas l'air d'aller. Ceci mieux :

VB:

Dim Pic As Excel.Picture
Set Pic = Selection
MsgBox Pic.Name

Dranreb · 26 Août 2021

Bonsoir.
La première chose à faire c'est, en mode création, passer à False la propriété TakeFocusOnClick du CommandButton1. Après ben à vous de voir. Je n'aime pas travailler avec Selection. Je m'arrangerais pour avoir l'objet concerné dans une variable …

gsx-air · 27 Août 2021

Dranreb à dit:
Bonsoir.
La première chose à faire c'est, en mode création, passer à False la propriété TakeFocusOnClick du CommandButton1. Après ben à vous de voir. Je n'aime pas travailler avec Selection. Je m'arrangerais pour avoir l'objet concerné dans une variable …

bonjour
merci pour votre réponse je vais essayer votre solution
la question peut paraitre simple mais comment mettre l'objet dans une variable a partir du moment ou je l'ai sélectionné
je ne trouve pas !

Dranreb · 27 Août 2021

Bonjour.
Par un Set en tout cas.
Dim Shp As Shape
Set Shp = Selection
(Toujours une fois que la sélection n'aura plus été détruite par le CommandButton1 prenant le focus.)

gsx-air · 27 Août 2021

Dranreb à dit:
Bonsoir.
La première chose à faire c'est, en mode création, passer à False la propriété TakeFocusOnClick du CommandButton1. Après ben à vous de voir. Je n'aime pas travailler avec Selection. Je m'arrangerais pour avoir l'objet concerné dans une variable …

super je viens de faire la manip sur le commandbutton1 ça marche nickel
je vais regarder pour déclarer la variable
encore merci

Dranreb · 27 Août 2021

En fait As Shape n'a pas l'air d'aller. Ceci mieux :

VB:

Dim Pic As Excel.Picture
Set Pic = Selection
MsgBox Pic.Name

gsx-air · 27 Août 2021

Dranreb à dit:
En fait As Shape n'a pas l'air d'aller. Ceci mieux :

VB:

Dim Pic As Excel.Picture Set Pic = Selection MsgBox Pic.Name

parfait tout fonctionne j'ai réussi a déclarer la variable image
je remet le fichier qui fonctionne
merci

XL 2016 soucis avec userform et macro

gsx-air

XLDnaute Nouveau

Pièces jointes

Dranreb

Dranreb

XLDnaute Barbatruc

gsx-air

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

gsx-air

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

gsx-air

XLDnaute Nouveau

Pièces jointes

Discussions similaires