XL 2016 vba + formes

[lynyrd]

Bonjour le forum
Est t'il possible en VBA de trouver la solution?
J'aimerai qu'en déplacant la forme rectangle en colonne "B" on me dise si c'est une bonne réponse ou pas.
Merci.

 

[sousou]

Bonjour
En dehors d'un click sur la réponse qui déplace l'image et contrôle la réponse,
mais la forme me semble bien compliqué
Ne crois-tu pas qu'il y a plus simple?

 

[lynyrd]

Ok

 

[sousou]

Pour le fun

Document sans titre

 

[job75]

Bonjour lynyrd, sousou,

Pourquoi vouloir déplacer la forme ? Une simple MsgBox suffit :

Sub Juste()
With ActiveSheet.DrawingObjects(Application.Caller)
    MsgBox IIf(Evaluate(Mid(Cells(.TopLeftCell.Row, 1), 13)) = Val(.Text), "Juste", "Pas juste"), , "Résultat"
End With
End Sub

La macro est à affecter à chaque forme.

A+

 

[lynyrd]

Merci job75.