Autres Simplifier un code

chaelie2015 · 29 Mai 2020

Bonsoir forum
je souhaite simplifier ce code
si AP12 = 1 alors afficher l'image nommée"A1_attention" sinon si AP12=0 alors Masquer l'image nommée"A1_attention"

VB:

If [AP12] = 1 Then ActiveSheet.Shapes("A1_attention").Visible = True
If [AP12] = 0 Then ActiveSheet.Shapes("A1_attention").Visible = False

Merci par avance

jmfmarques · 29 Mai 2020

Bonjour

Code:

ActiveSheet.Shapes("A1_attention").Visible = cbool(range("AP12").value)

jmfmarques · 29 Mai 2020

Bonjour

Code:

ActiveSheet.Shapes("A1_attention").Visible = cbool(range("AP12").value)

chaelie2015 · 29 Mai 2020

Bonsoir jmfmarques
Merci c'est parfait.
a+

Autres Simplifier un code

chaelie2015

XLDnaute Accro

jmfmarques

jmfmarques

XLDnaute Accro

chaelie2015

XLDnaute Accro

Discussions similaires