Flaggare check box da VBA ad EXCEL

Grazie del tuo riscontro @Sgrubak; non è sempre così scontato anche se dedicare un minuto a chi ha cercato di aiutarti non dovrebbe essere un grosso impegno magari per dire "La soluzione che hai proposto non soddisfa la mia necessità." opzionale "Grazie comunque."



Alla prossima.

Buona serata.

Giuseppe

Buona giornata @Sgrubak;
rileggendo la tua cortese risposta #10 non mi è chiaro questo passaggio:

Se è vero che ad ogni click corrisponda un cambio di stato, non è sempre vero il contrario. In effetti, continuando a cercare in rete, si trovano un sacco di post che, per gestire i due eventi separatamente, usano i flag.

Potresti chiarirmi questo concetto. Grazie del tempo che potrai dedicarmi.


Giuseppe

Ciao Giuseppe!

Intendo dire che è vero che ad ogni click sul controllo, avviene il cambio del valore, ma al contrario no. Se io cambio da codice il Value con

CheckBox1.Value=True

di fatto il click non è mai avvenuto. Nel caso in cui volessi gestire separatamente i due concetti ("cambio da click"/"cambio da codice") il trucco che ho trovato in rete è quello di dichiarare una variabile booleana accessibile da tutta la Form, che possa essere valutata in una If per instradare il codice. Una cosa del tipo:

Dim nonDaClick As Boolean

Private Sub CheckBox1_Click()
If nonDaClick Then
    'cosa fare se il valore cambia senza aver clickato sulla CheckBox
Else
    'cosa fare se ho clickato sulla CheckBox
End Sub

Private Sub CommandButton1_Click()
nonDaClick = True
CheckBox1.Value = Not CheckBox1.Value
nonDaClick = False
End Sub

Questo ovviamente nel caso in cui si vogliano gestire i due eventi in modo separato. Onestamente lo trovo un po' troppo complicato... Se mi dimentico di utilizzare la variabile booleana, rischio di avere comportamenti inaspettati e solo perché due eventi che non sono necessariamente collegati, si sovrappongono.

Spero di aver reso meglio l'idea.

Buona sera @Sgrubak.
Tutto molto chiaro, difficilmente utilizzerò questi Eventi ma almeno so come gestirli. Grazie


A disposizione.

Buona serata.

Giuseppe

Originariamente inviato da Sgrubak

Ciao Giuseppe!

Intendo dire che è vero che ad ogni click sul controllo, avviene il cambio del valore, ma al contrario no. Se io cambio da codice il Value con

CheckBox1.Value=True

di fatto il click non è mai avvenuto. Nel caso in cui volessi gestire separatamente i due concetti ("cambio da click"/"cambio da codice") il trucco che ho trovato in rete è quello di dichiarare una variabile booleana accessibile da tutta la Form, che possa essere valutata in una If per instradare il codice. Una cosa del tipo:

Dim nonDaClick As Boolean

Private Sub CheckBox1_Click()
If nonDaClick Then
    'cosa fare se il valore cambia senza aver clickato sulla CheckBox
Else
    'cosa fare se ho clickato sulla CheckBox
End Sub

Private Sub CommandButton1_Click()
nonDaClick = True
CheckBox1.Value = Not CheckBox1.Value
nonDaClick = False
End Sub

Questo ovviamente nel caso in cui si vogliano gestire i due eventi in modo separato. Onestamente lo trovo un po' troppo complicato... Se mi dimentico di utilizzare la variabile booleana, rischio di avere comportamenti inaspettati e solo perché due eventi che non sono necessariamente collegati, si sovrappongono.

Spero di aver reso meglio l'idea.

Non ho seguito attentamente il 3D ma fatico a comprendere ...
Dubito che l'utilizzatore sia così veloce da riuscire a 'cliccare' sulla CheckBox mentre è ancora in esecuzione l'evento Click del CommandButton (che di fatto esegue, almeno in questo banale esempio, solo un'istruzione).
L'approccio proposto ha senso solo se l'esecuzione dell'evento Click del CommandButton è sensibilmente lunga (quel tanto che basta) da permettere lo scatenarsi dell'evento click della CheckBox mentre è ancora in esecuzione.

Se il problema del 3D è quello che l'evento Click del CheckBox avvenga anche quando si cambia il suo valore da codice allora :

Private Sub CommandButton1_Click()
CheckBox1.Value = Not CheckBox1.Value
' Scateno da codice l'evento
Call CheckBox1_Click()
End Sub

Ciao Max! Con Giuseppe ci si confrontava sulla gestione degli eventi Click e Change.

Originariamente inviato da Max.Riservo

...Se il problema del 3D è quello che l'evento Click del CheckBox avvenga anche quando si cambia il suo valore da codice allora...

No, il problema era collegare tra loro due CheckBox; una sulla form e l'altra sul foglio. Giuseppe ha proposto una soluzione molto semplice ed estremamente efficace che non conoscevo. Ma mentre provavo, per testare una mia interpretazione (errata) della sua proposta, ho notato un comportamento per me strano in merito ai due eventi. Da li è scaturita la discussione.
In breve:
Se sul Click eseguo le istruzioni A, e sul Change eseguo le istruzioni B (immaginando A e B completamente scollegati tra loro a livello di logica), allora in Excel mi pare impossibile separare l'esecuzione di A e B, a meno dell'utilizzo di un flag opportunamente gestito.

Dalle prove che ho fatto, ho riscontrato che i due eventi vengano scatenati sempre uno a seguito dell'altro. Ora: se è vero che ad ogni Click modifico il valore, non è vero che ad ogni modifica di valore io eseguo un Click... Quindi se Clicko, mi aspetto che vengano eseguiti si A che B, ma se modifico il valore da codice, mi aspetto che venga eseguito solo B e non A (perché di fatto non ho clickato sul controllo).

Se non sono stato chiaro, fammi sapere che riprovo a spiegarmi.

Originariamente inviato da Sgrubak

In breve:
Se sul Click eseguo le istruzioni A, e sul Change eseguo le istruzioni B (immaginando A e B completamente scollegati tra loro a livello di logica), allora in Excel mi pare impossibile separare l'esecuzione di A e B, a meno dell'utilizzo di un flag opportunamente gestito.

Dalle prove che ho fatto, ho riscontrato che i due eventi vengano scatenati sempre uno a seguito dell'altro. Ora: se è vero che ad ogni Click modifico il valore, non è vero che ad ogni modifica di valore io eseguo un Click... Quindi se Clicko, mi aspetto che vengano eseguiti si A che B, ma se modifico il valore da codice, mi aspetto che venga eseguito solo B e non A (perché di fatto non ho clickato sul controllo).

Ciao Sgrubak,
quello che scrivi è coerente con la gestione/sequenza degli eventi.
In fondo se due eventi fossero completamente sovrapponibili uno dei due sarebbe ridondante.

Originariamente inviato da Max.Riservo

In fondo se due eventi fossero completamente sovrapponibili uno dei due sarebbe ridondante.

È questa la questione... Non capisco quando si distinguano!

Ripropongo un nuovo esempio per approfondire. Se in una Form di un file Excel nuovo e completamente vuoto, creo una Form e inserisco una CheckBox ed un CommanButton e poi inserisco il codice:

Private Sub CheckBox1_Change()
MsgBox "Change"
End Sub

Private Sub CheckBox1_Click()
MsgBox "Click"
End Sub

Private Sub CommandButton1_Click()
CheckBox1.Value = Not CheckBox1.Value
End Sub

ottengo che:
- al click sulla CheckBox mi compaiono le due MsgBox (e fino qui ok... è quel che cerco)
- al click sul bottone mi compaiono le due MsgBox (e qui casca l'asino... Dovrei ottenere solo il Change e non il Click)

Davvero non capisco...

Originariamente inviato da Sgrubak

È questa la questione... Non capisco quando si distinguano!

- al click sulla CheckBox mi compaiono le due MsgBox (e fino qui ok... è quel che cerco)
- al click sul bottone mi compaiono le due MsgBox (e qui casca l'asino... Dovrei ottenere solo il Change e non il Click)

Davvero non capisco...

Prova a sostituire la Checkbox con una TextBox :
- se il comportamento cambia, allora è una peculiarità della CheckBox
- se il comportamento rimane uguale, oggettivamente rimango perplesso anch'io

Buongiorno a tutti
Vorrei proporre un piccolo trucco.
Atteso che gli eventi della CheckBox avvengono in sequenza in qualsiasi modo sia stato dato l'ordine di variazione (direttamente nell'oggetto o tramite VBA - pulsante di comando), intercetto l'ordine nell'evento Click della CheckBox e, tramite un flag, bypasso l'evento.
Questo il codice

Option Explicit
Dim flag As Boolean

Private Sub CheckBox1_Change()
MsgBox "Change"
End Sub

Private Sub CheckBox1_Click()
If flag Then Exit Sub
MsgBox "Click"
End Sub

Private Sub CommandButton1_Click()
flag = True
CheckBox1.Value = Not CheckBox1.Value
End Sub

Comunque anch'io resto perplesso per questo strano comportamento.
Ciao a tutti,
Mario