Mettre en gras une cellule active Excel VBA

Résolu/Fermé
johannes30 Messages postés 1 Date d'inscription mardi 21 décembre 2010 Statut Membre Dernière intervention 21 décembre 2010 - 21 déc. 2010 à 19:44
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 21 déc. 2010 à 22:04
Bonjour,

je vous sollicite pour une petite manipulation qui me rendrait un fière service, je m'explique:

j'ai un tableau excel avec beaucoup de données du style grosse base de données fournisseurs.
Je souhaiterais récupérer un peu de lisibilité lors de l'utilisation de ce tableau et je souhaiterais donc que chaque fois que je me déplace dans ce tableau la cellule sur laquelle je me trouve passe en gras pour qu'elle puisse se démarquer du reste du tableau.

J'ai excel 2007 et après quelques recherches sur le net je ne trouve rien qui corresponde a ma demande ...

Merci d'avance
Cordialement

3 réponses

Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
21 déc. 2010 à 20:33
Bonjour,

Essayer ce code :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static Gras As String
  
  If Gras <> "" Then Range(Gras).Font.Bold = False
  Gras = Target.Address
  Range(Gras).Font.Bold = True

End Sub

Pour cela : copier le code ci-dessus, Faire un clic droit sur l'onglet de la feuille concernée, Visualiser le Code, et Copier le code.
0
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 1 776
Modifié par Patrice33740 le 21/12/2010 à 22:25
PS : Ce code fonctionne aussi lors de la sélection de plusieurs cellules et quelle que soit la taille du fichier
0