XL 2016 vba + formes

sousou

XLDnaute Barbatruc

• 6 Mai 2020

• #2

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? 😉

 

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 6 Mai 2020

• #3

Ok

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 6 Mai 2020

• #4

Pour le fun

Document sans titre

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Mai 2020

• #5

Bonjour lynyrd, sousou,

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

VB:

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+

 

Pièces jointes

• maths(1).xlsm

  19.4 KB · Affichages: 9

Vote positif 0 Vote négatif

lynyrd

XLDnaute Impliqué

• 7 Mai 2020

• #6

Merci job75.

 

Vote positif 0 Vote négatif