Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Problème de case à cocher

Problème de case à cocher

4 réponses
Avatar
Philippe
Bonjour,

Voilà mon but : Lorsque je sélectionne la case à cocher, j'aimerais qu'une
cellule devienne rouge dans une autre feuille du même classeur.
Voici mon code et ça ne fonctionne pas.

Sub Amont()
If CheckBox6.Value = 1 Then
Sheets("Synthèse").Range("A9").Font.Color = 255
End If
End Sub

Merci de votre éclairage,

Philippe
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
C'est ColorIndex qu'il faut utiliser.
Ensuite utilise plutôt le contrôle Case à cocher de la BO Contrôles.
Et si la case est cochée puis décochée ? Ta couleur restera à rouge !
Voilà ce que je te suggère avec donc une CAC de la BO Contrôles :

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Worksheets("Synthèse").Range("A9").Font.ColorIndex = 3
Else
Worksheets("Synthèse").Range("A9").Font.ColorIndex = 1
End If
End Sub

Cordialement
Pascal

"Philippe" a écrit dans le message de
news:
Bonjour,

Voilà mon but : Lorsque je sélectionne la case à cocher, j'aimerais qu'une
cellule devienne rouge dans une autre feuille du même classeur.
Voici mon code et ça ne fonctionne pas.

Sub Amont()
If CheckBox6.Value = 1 Then
Sheets("Synthèse").Range("A9").Font.Color = 255
End If
End Sub

Merci de votre éclairage,

Philippe


Avatar
fafa
Bonjour

If CheckBox6.value=true then
Sheets("Synthèse").range("A9").interior.colorindex = 3
end if

Bon courage

"Philippe" a écrit dans le message de
news:
Bonjour,

Voilà mon but : Lorsque je sélectionne la case à cocher, j'aimerais qu'une
cellule devienne rouge dans une autre feuille du même classeur.
Voici mon code et ça ne fonctionne pas.

Sub Amont()
If CheckBox6.Value = 1 Then
Sheets("Synthèse").Range("A9").Font.Color = 255
End If
End Sub

Merci de votre éclairage,

Philippe


Avatar
Philippe
Ca ne fonctionne pas. C'est la case à cocher de la boite à outils Commandes
car je n'ai pas de boite à outils Contrôles?

Philippe


Bonjour
C'est ColorIndex qu'il faut utiliser.
Ensuite utilise plutôt le contrôle Case à cocher de la BO Contrôles.
Et si la case est cochée puis décochée ? Ta couleur restera à rouge !
Voilà ce que je te suggère avec donc une CAC de la BO Contrôles :

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Worksheets("Synthèse").Range("A9").Font.ColorIndex = 3
Else
Worksheets("Synthèse").Range("A9").Font.ColorIndex = 1
End If
End Sub

Cordialement
Pascal

"Philippe" a écrit dans le message de
news:
Bonjour,

Voilà mon but : Lorsque je sélectionne la case à cocher, j'aimerais qu'une
cellule devienne rouge dans une autre feuille du même classeur.
Voici mon code et ça ne fonctionne pas.

Sub Amont()
If CheckBox6.Value = 1 Then
Sheets("Synthèse").Range("A9").Font.Color = 255
End If
End Sub

Merci de votre éclairage,

Philippe







Avatar
Philippe
Comment connaître le nom de mes différentes checkbox?

Philippe


Bonjour

If CheckBox6.value=true then
Sheets("Synthèse").range("A9").interior.colorindex = 3
end if

Bon courage

"Philippe" a écrit dans le message de
news:
Bonjour,

Voilà mon but : Lorsque je sélectionne la case à cocher, j'aimerais qu'une
cellule devienne rouge dans une autre feuille du même classeur.
Voici mon code et ça ne fonctionne pas.

Sub Amont()
If CheckBox6.Value = 1 Then
Sheets("Synthèse").Range("A9").Font.Color = 255
End If
End Sub

Merci de votre éclairage,

Philippe