Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 vba + formes

lynyrd

XLDnaute Impliqué
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.
 

Pièces jointes

  • maths.xlsx
    12.5 KB · Affichages: 17

sousou

XLDnaute Barbatruc
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?
 

job75

XLDnaute Barbatruc
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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…