Case à cocher + farmat conditionnel

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Tatanka
Le #5232881
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"
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



Tatanka
Le #5232861
Ou plus simplement :

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

Serge
JB
Le #5232841
Bonsoir,

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

JB

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

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

Serge


Tatanka
Le #5232831
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" Bonsoir,

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

JB

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

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

Serge


Tatanka
Le #5232821
Pff... Trois caractères de moins ;-)

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

Serge


"JB" Bonsoir,

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

JB

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

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

Serge


JB
Le #5232601
Bonjour,

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

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

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

Serge

"JB" Bonsoir,

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

JB

On 7 mar, 20:08, "Tatanka"


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 -



Minnies
Le #5231031
Merci!

Vous ne pouvez imaginer le nombre d'heure que vous me faites sauver
Publicité
Poster une réponse
Anonyme