Coloriage de cellules en fct de l'etat du bouton a basule

Bonjour a tous.

J'aimerais realiser une plateform qui permette de calculer 2 grandeurs physiques . Pour cela j'ai mis un bouton a bascule qui me permet , en fonction de son etat true/false de colorier en noir les cellules inutiles au calcul de la 1ere grandeur et vice versa.

je souhaiterais donc à l'aide d'un bouton a bascule colorier certaines cellules (par exemple ; A2,K4, I8) quand il est enfoncé , et dautres cellules (par exemple A8, J5, S8, E4 ) qd il est en position relaché.

jai commencé mon programmme ainsi ;

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then

ToggleButton1.Caption = "MARGE" 'qd le bouton est enfonce sa affiche marge

Else

ToggleButton1.Caption = "DISTANCE" 'qd le bouton est relache sa affiche distance

End If

For Each Cell In Selection

If ToggleButton1.Value = True Then 'Si le bouton est enfonce sa color en noir les cases inutile au calcul de la marge

Range("K17,K19,U18").Select

Cell.Interior.ColorIndex = 1

End If

If ToggleButton1.Value = False Then 'Si le bouton est enfonce sa colore remet en blanc les case precedentes et

Cell.Interior.ColorIndex = 2

End If

Next

End Sub

Ce programme ne fonctionne pas tres bien...

Bonjour

Avec ton fichier et un exemple de réalisation cela serait mieux pour t'aider

En attendant

Private Sub ToggleButton1_Click()
  If ToggleButton1.Value = True Then
    ToggleButton1.Caption = "MARGE" 'qd le bouton est enfonce sa affiche marge
    Range("K17,K19,U18").Interior.ColorIndex = 1
  Else
    ToggleButton1.Caption = "DISTANCE" 'qd le bouton est relache sa affiche distance
    Range("K17,K19,U18").Interior.ColorIndex = 2
  End If
End Sub

Bonsoir à tous,

Pour donner un peu plus de souplesse à ton projet je sélectionnerai les cellules sur la feuille pour nommer la plage.

Dans la macro remplacer les Range("Axx,Axx,Axx") par le nom. Ex : [plage1]

En cas d'évolution tu n'as que la définition des noms à changer, et ça se fait visuellement à la souris.

eric

Je vous remercie pour votre aide mais je suis decidement bonne a jetée :/

J'ai realisé sur mn interface (feuille "budget link") un bouton à bascule qui me permet de noircir ( un element qui montre que les cases sont pas utilisable :s) . En position enfoncé , les cases K17,K19,U18 sont bien noircies.

Mais je n'arrive pas a noircir les cases K10 ,K13, U16 qd le bouton est en position relaché

J'espere avoir été claire .

Je vous remercie d'avance

Bonjour,

Un cas de Schizophrénie aigue ou, c'est un devoir de la même classe ?

Même sujet (donc même proposition de réponse) que dans ce sujet :

https://forum.excel-pratique.com/excel/bouton-a-bascule-et-verrouillage-de-cellule-t35048.html

Cordialement,

Bonjour,

à tester :

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value Then
        ToggleButton1.Caption = "MARGE"   'qd le bouton est enfonce sa affiche marge
        Range("K17,K19,U18").Interior.ColorIndex = 1
        Range("K10,K13,U16").Interior.ColorIndex = xlNone
    Else
        ToggleButton1.Caption = "DISTANCE"    'qd le bouton est relache sa affiche distance
        Range("K17,K19,U18").Interior.ColorIndex = xlNone
        Range("K10,K13,U16").Interior.ColorIndex = 1
    End If
    Range("K10,K13,U16").Locked = Not ToggleButton1
    Range("K17,K19,U18").Locked = ToggleButton1
End Sub

eric