Mettre la dernière ligne d'un tableau en gras

Résolu/Fermé
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 - 21 août 2022 à 21:09
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 - 24 août 2022 à 18:45

J’aimerais mettre en gras la dernière ligne d’un tableau Excel structuré, sur votre forum j’ai trouvé sur internet une ligne de code . Celui-ci fonctionne parfaitement mais il faudrait en même temps remettre l’avant-dernière ligne en écriture normale sinon au bout d’un moment tout mon tableau sera en gras, je mets le code que j’ai trouvé sur internet.

Range("A65536").End(xlUp).EntireRow.Font.Bold = True

Je ne sais pas si ma demande et réalisable par avance merci

A voir également:

6 réponses

via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
23 août 2022 à 15:56

Re

C'est peut être moi qui me suis mal exprimé, il faut sélectionner les colonnes entières et baser la formule de MFC sur le 2eme ligne

exemple : https://www.cjoint.com/c/LHxnV46y6Yu

Cdlmnt

Via


2
via55 Messages postés 14495 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 7 novembre 2024 2 735
21 août 2022 à 21:30

Bonsoir

Pas besoin de passer par du VBA

Par hypothèse les cellules en dessous de la dernière ligne de ton tableau sont vides

Donc il est possible de mettre en gras la dernière ligne par mise en forme conditionnelle

si le tableau commence en A1 après avoir sélectionné les colonnes du tableau Mise en forme conditionnelle - Nouvelle règle - Appliquer une formule et entrer la formule =A2="" avant de choisir police en gras

Cdlmnt

Via


1
Le Pingou Messages postés 12198 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 21 novembre 2024 1 450
23 août 2022 à 11:58

Bonjour,

Juste au passage, essayer ceci:

Sub DerniereLigneGras()
deli = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
Rows("" & deli - 1 & ":" & deli - 1).Font.Bold = False
Rows("" & deli & ":" & deli).Font.Bold = True
End Sub

1
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 2
23 août 2022 à 08:57

Bonjour via

 Désolé pour ma réponse tardive. Je viens de tester votre solution pour mettre en gras la dernière ligne d'un tableau et rien ne se passe. je sélectionne tout mon tableau puis MFC nouvelle règle et je colle votre solution puis format gras je valide .A l'aide d'un formulaire j'ajoute une nouvelle ligne et celle-ci reste normale peut-être que je fais pas se qui faut. 

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Le Pingou Messages postés 12198 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 21 novembre 2024 1 450
23 août 2022 à 16:00

Merci via55 superbe solution.


0
Bourrique66 Messages postés 158 Date d'inscription mardi 2 juin 2015 Statut Membre Dernière intervention 25 septembre 2023 2
24 août 2022 à 18:45

Bonjour Le Pingou;

Merci pour votre réponse qui correspond parfaitement à mes attentes, j’ai mis votre code dans Initialize et tout fonctionne. Encore merci de votre aide

0