Formule et case à cocher

[micky01]

Bonjour à tous,

J'ai un petit problème sur des cases à cocher...

Comment peut on dire :
Si la case est cochée, mettre telle formule dans telle case et telle formule dans telle case... et si elle est décochée, mettre les cellules vides?

Private Sub CheckBox1_Click()
If CheckBox1 Then
Range("B17").Formula = "=SI(C17="";"";INDEX('PM, PC, SO'!$BE$8:$BI$399;EQUIV('Bon de Commande'!C17;'PM, PC, SO'!$BE$8:$BE$399;);2))"
Else
Range("B17").Formula = ""
End If
End Sub

Je ne suis pas très doué en Vba alors je galère un peu lol

Merci de votre aide

 

[RENAUDER]

Re : Formule et case à cocher

Bonjour,
Essaies ceci

Private Sub CheckBox1_Click()
    If CheckBox1.Value = "Vrai" Then
        Range("B17").Formula = "=SI(C17="";"";INDEX('PM, PC, SO'!$BE$8:$BI$399;EQUIV('Bon de Commande'!C17;'PM, PC, SO'!$BE$8:$BE$399;);2))"
    Else
        Range("B17").Formula = ""
    End If
End Sub

 

[kjin]

Re : Formule et case à cocher

Bonjour,
Une autre syntaxe

Private Sub CheckBox1_Click()
Range("B17").FormulaLocal = IIf(CheckBox1, "=SI(C17="""";"""";INDEX('PM, PC, SO'!$BE$8:$BI$399;EQUIV('Bon de Commande'!C17;'PM, PC, SO'!$BE$8:$BE$399;);2))", "")

End Sub

A+
kjin

 

[micky01]

Re : Formule et case à cocher

Merci a vous deux pour vos réponse 🙂

La solution de kjin fonctionne parfaitement, c'est cool 😀

A bientot tout le monde