macro et case a cocher

T

Temjeh

Guest

• 27 Décembre 2004

• #2

Bonsoir surforio

Ptêtre un début:

If CheckBox1 = True Then
Range("B11").Select
With Selection.Interior
'met fond en rouge
.ColorIndex = 3
.Pattern = xlSolid
End With
Range("A1").Select
Else
If CheckBox1 = False Then
Range("B11").Select
With Selection.Interior
'met fond en blanc
.ColorIndex = 2
.Pattern = xlSolid
End With
Range("A1").Select
End If
End If

A++

Temjeh

 

Vote positif 0 Vote négatif

S

surforio

Guest

• 27 Décembre 2004

• #3

merci pour ton aide
je vais essayer et je te dirais si ça fonctionne
@+

 

Vote positif 0 Vote négatif

M

Michel_M

Guest

• 27 Décembre 2004

• #4

Bonjour Surforio, Temjeh, Forum

Pour compléter la solution de notre ami Temjeh

La case à cocher doit être réalisée avec la barre d'outils "Visual basic" (et non "formulaires")

dans le module feuille1

Option Explicit

Private Sub CheckBox1_Click()

If CheckBox1 Then
Range("C14").Interior.ColorIndex = 4 '4=vert
Else
Range("C14").Interior.ColorIndex = xlNone
End If

End Sub

A+
Michel

 

Vote positif 0 Vote négatif

S

surforio

Guest

• 27 Décembre 2004

• #5

ola
j ai un gros mal de tete
j ai essaye les deux formules
rien ne marche si ce n est que je bloque excel
j avais oublie de dire que je debute vraiment dans les macros
merci quand meme

 

Vote positif 0 Vote négatif

M

Michel

Guest

• 25 Janvier 2005

• #6

Bonjour,

je souhaiterais insérer des cases à cocher sur des graphiques excel afin de ne faire apparaître qu'une deux voire toutes les courbes de données
Pouuriez-vous m'aider.
Merci

 

Vote positif 0 Vote négatif