Afficher cellules invisible

Résolu/Fermé
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 12235 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 5 février 2025 1 456
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 10907 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 janvier 2025 2 429
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 937 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 29 janvier 2025 178
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