Afficher cellules invisible
Résolumic6259 Messages postés 371 Statut Membre -
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
-
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
-
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
-
Bonjour,
A tout hasard voir si ce code fait son job
Il faut double cliquer pour faire apparaître le chiffre
Slts
-
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
