XL 2010 Déclique

FCMLE44 · 31 Mars 2020

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

VB:

'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 · 31 Mars 2020

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 · 31 Mars 2020

SOMME(H58+H59)
Merci

chris · 31 Mars 2020

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 · 31 Mars 2020

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 · 31 Mars 2020

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

VB:

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 · 31 Mars 2020

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

Enrichi (BBcode):

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

cordialement galougalou

Robert · 31 Mars 2020

RE,

GALOUGALOU à dit:
bonjour fmle44 bonjour le fil bonjour le forum
une proposition
dans le code modifier avec else

Enrichi (BBcode):

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 · 31 Mars 2020

Robert à dit:
Bonjour Chris, le fil, le forum,
Essaie comme ça :

VB:

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 · 31 Mars 2020

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

XL 2010 Déclique

FCMLE44

XLDnaute Impliqué

Robert

XLDnaute Barbatruc

FCMLE44

XLDnaute Impliqué

chris

XLDnaute Barbatruc

FCMLE44

XLDnaute Impliqué

Robert

XLDnaute Barbatruc

GALOUGALOU

XLDnaute Accro

Robert

XLDnaute Barbatruc

FCMLE44

XLDnaute Impliqué

GALOUGALOU

XLDnaute Accro

Discussions similaires