Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Case à cocher + farmat conditionnel

Case à cocher + farmat conditionnel

7 réponses
Avatar
Minnies
Bonjour
Je sollicite encore votre aide.

J'ai une case à cocher ex: CheckBox23.
Je veux que le texte de la cellule A18 soit rouge si la case est coché . Par
défaut le texte sera bleu.

Je suis certaine qu'il y une façon de faire avec "conditionnal formating".

Merci
Signaler un problème avec ce contenu

7 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
Tatanka
Bonsoir Minnies,

Pour une case à cocher apparaissant sur une feuille
de calcul et provenant de la boîte à outils Contrôles,
cette macro devrait convenir :

Private Sub CheckBox23_Click()
If CheckBox23 = True Then [a18].Font.ColorIndex = 3 _
Else [a18].Font.ColorIndex = 5
End Sub

Serge

"Minnies" a écrit dans le message de news:
Bonjour
Je sollicite encore votre aide.

J'ai une case à cocher ex: CheckBox23.
Je veux que le texte de la cellule A18 soit rouge si la case est coché . Par
défaut le texte sera bleu.

Je suis certaine qu'il y une façon de faire avec "conditionnal formating".

Merci



Avatar
Tatanka
Ou plus simplement :

Private Sub CheckBox23_Click()
If CheckBox23 Then [a18].Font.ColorIndex = 3 Else [a18].Font.ColorIndex = 5
End Sub

Serge
Avatar
JB
Bonsoir,

Private Sub CheckBox23_Click()
[a18].Font.ColorIndex = IIf(checkbox23, 3, 5)
End Sub

JB

On 7 mar, 20:08, "Tatanka" wrote:
Ou plus simplement :

Private Sub CheckBox23_Click()
    If CheckBox23 Then [a18].Font.ColorIndex = 3 Else [a18].Font.Col orIndex = 5
End Sub

Serge


Avatar
Tatanka
Salut JB,

Merde alors, il a encore trouvé plus court ;-)
J'avais pensé au IIf mais sans savoir comment l'utiliser ;-(
Maintenant je sais ;-)

Serge


"JB" a écrit dans le message de news:
Bonsoir,

Private Sub CheckBox23_Click()
[a18].Font.ColorIndex = IIf(checkbox23, 3, 5)
End Sub

JB

On 7 mar, 20:08, "Tatanka" wrote:
Ou plus simplement :

Private Sub CheckBox23_Click()
If CheckBox23 Then [a18].Font.ColorIndex = 3 Else [a18].Font.ColorIndex = 5
End Sub

Serge


Avatar
Tatanka
Pff... Trois caractères de moins ;-)

Private Sub CheckBox23_Click()
[a18].Font.ColorIndex = 2 * CheckBox23 + 5
End Sub

Serge


"JB" a écrit dans le message de news:
Bonsoir,

Private Sub CheckBox23_Click()
[a18].Font.ColorIndex = IIf(checkbox23, 3, 5)
End Sub

JB

On 7 mar, 20:08, "Tatanka" wrote:
Ou plus simplement :

Private Sub CheckBox23_Click()
If CheckBox23 Then [a18].Font.ColorIndex = 3 Else [a18].Font.ColorIndex = 5
End Sub

Serge


Avatar
JB
Bonjour,

La compréhension immédiate de l'instruction me semble prioritaire sur
le nb de car;-)

JB
On 7 mar, 20:41, "Tatanka" wrote:
Pff... Trois caractères de moins ;-)

Private Sub CheckBox23_Click()
    [a18].Font.ColorIndex = 2 * CheckBox23 + 5
End Sub

Serge

"JB" a écrit dans le message de news: 749b0eff
Bonsoir,

Private Sub CheckBox23_Click()
    [a18].Font.ColorIndex = IIf(checkbox23, 3, 5)
End Sub

JB

On 7 mar, 20:08, "Tatanka" wrote:



Ou plus simplement :

Private Sub CheckBox23_Click()
If CheckBox23 Then [a18].Font.ColorIndex = 3 Else [a18].Font.ColorInde x = 5
End Sub

Serge- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
Minnies
Merci!

Vous ne pouvez imaginer le nombre d'heure que vous me faites sauver