Test de selection objet VBA

[Vashh50]

Bonjour,

Je souhaiterais savoir s'il est possible de réaliser une macro Excel qui permettrait d'attendre que l'utilisateur clique sur une shape. Une fois qu'il a cliqué sur cette shape, le nom de la shape est utilisé pour consulter une BDD pour aller chercher une longueur associée à ce nom.

Le but serait aussi de savoir s'il est possible de pouvoir faire cela tant que l'utilisateur n'a pas cliqué sur le bouton "Fin".

Une fois le bouton fin cliqué, une longueur totale est calculée et donnée à l'utilisateur.

Merci d'avance.

 

[gilbert_RGI]

Bonjour, bienvenue
avec un petit fichier exemple ça serait plus facile de connaître votre demande

 

[Vashh50]

Ok je viens de faire un exemple.

En gros, lorsque je clique sur le shape Parcours, la macro se lance. Une fois la macro lancé, à chaque fois que l'utilisateur clique sur un des shapes traits, le nom de ce trait va chercher dans la BDD une longueur associée et le stock dans une variable. Et je veux que ça fasse cela tant que l'utilisateur ne clique pas sur la macro "Fin de la macro". A la fin, le total est affiché dans la case M9.

J’espère que c'est plus clair comme ça.

Cordialement.

 

[Vashh50]

J'arrive à repérer le clique sur une forme avec ce code tout simple :

Sub Connecteurdroit85_QuandClic()
Range("A1") = Range("A1") + 1
End Sub

Le problème est que je souhaiterais que l’exécution de cette macro ne soit possible que lorsque j'ai cliqué sur le bouton Parcours au préalable...

Merci d'avance.

 

[gilbert_RGI]

un truc dans ce genre ???

 

[Vashh50]

C'est en effet très approchant de ce que je souhaite. J'aurais juste une question, est il possible de rendre in-cliquable les objets tant que la macro n'est pas lancé ?

Merci d'avance.

 

[gilbert_RGI]

comme ceci ?
pour le calcul il faudra dire la longueur attribuée aux boutons

 

[gilbert_RGI]

voilà avec une attribution de longueur

 

[Vashh50]

C'est parfait merci.

 

[gilbert_RGI]

Pour changer les valeurs il faut aller dans le VBE pour modifier le code
pas compliqué ;-))