Mettre la dernière ligne d'un tableau en gras
RésoluBourrique66 Messages postés 166 Statut Membre -
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
6 réponses
-
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
-
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
-
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
-
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.
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Merci via55 superbe solution.
-
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