XL 2010 Déclique

[FCMLE44]

Bonjour

J'ai le code suivant qui doit doubler une cellule lorsque je clique dessus
Cela fonctionne mais quand je déclique, ca ne me mets pas le montant initial

'Doublement Indemnité de Licenciement Légale
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
   If InStr(Range("H63").FormulaLocal, "=") <> 0 Then Range("H63").Value = 2 * Range("H63").Value
End If
End Sub

Ou est mon erreur selon vous ?

Merci

 

[Robert]

BonjouR FCMLE, bonjour le forum,

Quelle est la formule contenue dans H63 ? Car si tu cliques tu la perds et si tu décliques il faudrait la remettre...

 

[FCMLE44]

SOMME(H58+H59)
Merci

 

[chris]

Bonjour à tous

Manifestement FCLE44, tu es en train de construire un formulaire

Il serait peut-être plus simple de tout poster dans un même fil afin que les réponses soient dans la même logique... sinon soit tu n'avanceras pas soit les bouts de réponse ne pourront se coordonner pour un formulaire efficace...

 

[FCMLE44]

Oui tu as raison mais je fais par étape et les idées me viennent au fil de l'eau Seul ma conversation Import tri et recherche est différent.

j'essaie aussi en recherchant moi même certaines chose de mon côté sans vous solliciter

 

[Robert]

Bonjour Chris, le fil, le forum,
Essaie comme ça :

Private Sub CheckBox1_Click()
If InStr(Range("H63").FormulaLocal, "=") <> 0 Then
    Range("H63").FormulaLocal = IIf(CheckBox1.Value = True, "=(H58+H59)*2", "=H58+H59")
End If
End Sub

 

[GALOUGALOU]

bonjour fmle44 bonjour le fil bonjour le forum
une proposition
dans le code modifier avec else

 Range("H63").Value = 2 * Range("H63").Value
    Else
  Range("H63").Value = Range("H63").Value / 2

cordialement galougalou

 

[Robert]

RE,

bonjour fmle44 bonjour le fil bonjour le forum
une proposition
dans le code modifier avec else

 Range("H63").Value = 2 * Range("H63").Value
    Else
  Range("H63").Value = Range("H63").Value / 2

cordialement galougalou

Mais il n'y a plus de formule !... Et si tu changes H58 ou H59 ?!...

 

[FCMLE44]

Bonjour Chris, le fil, le forum,
Essaie comme ça :

Private Sub CheckBox1_Click()
If InStr(Range("H63").FormulaLocal, "=") <> 0 Then
    Range("H63").FormulaLocal = IIf(CheckBox1.Value = True, "=(H58+H59)*2", "=H58+H59")
End If
End Sub

Ca marche. Merci beaucoup
Je continue

 

[GALOUGALOU]

re robert
tu as raison je n'ai pas été assez attentif
@+