Afficher cellules invisible

Résolu
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 11 déc. 2023 à 10:30
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 11 déc. 2023 à 12:22

Bonjour a tous

J'ai crée  dans une feuille Excel 16 cellules de F3 a M4 avec un tirage aléatoire de 90 numéros. Dans chaque cellule remplie par le tirage j'ai mis les polices de couleur blanche de façon a ce qu'elles soit invisibles.

Pourriez-vous m'aider quand l'on clique sur une cellule elle devient avec la couleur de police noire ainsi de suite jusqu'à la dernière cellule cliquée  si possible en vba, et quand je refais un nouveau tirage tout redeviens comme avant.

https://www.cjoint.com/c/MLljDu7pM6D

Merci beaucoup


Windows / Chrome 119.0.0.0

4 réponses

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
Modifié le 11 déc. 2023 à 12:03

Bonjour,

Une proposition, insérer le code suivant dans le module de la feuille concernée.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F3:M4")) Is Nothing Then
    Application.EnableEvents = False
    Range("F3:M4").Font.ThemeColor = xlThemeColorDark1
    Range(Target.Address).Font.ThemeColor = xlThemeColorLight1
    Application.EnableEvents = True
Else
    Range("F3:M4").Font.ThemeColor = xlThemeColorDark1
End If
End Sub

1
ccm81 Messages postés 10854 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 26 avril 2024 2 404
11 déc. 2023 à 11:53

Bonjour

quand l'on clique sur une cellule elle devient avec la couleur de police noire ainsi de suite jusqu'à la dernière cellule cliquée

Pas très clair. Exemple, clic sur H3, quelles sont les cellules qui vont passer en noir ?

Cdlmnt

0
The_boss_68 Messages postés 925 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 23 avril 2024 174
11 déc. 2023 à 12:01

Bonjour,

A tout hasard voir si ce code fait son job

Il faut double cliquer pour faire apparaître le chiffre

Clic ICI 

Slts

0
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 1
11 déc. 2023 à 12:22

The_Bosx a trouvé le problème et pour moi il es résolu

Merci a ccm81,Le Pingou et The_Boss pour vous êtes penché sur le sujet

bonnes fêtes de fin d'année

Cordialement

0