Mettre en forme les cellules non vides VBA Résolu/Fermé

Question

Bonjour, 
 
Alors voila, j'ai une macro qui récapitule plusieurs classeurs. Mon classeur récapitulatif se nomme RECAP. 
Ce RECAP évolue tous les jours. Potentiellement, à chaque fois que la macro tourne, des lignes se rajoutent. 

Je voudrais que la macro effectue une mise en forme (bordures noires fines) sur toutes les lignes qui contiennent des données.  (seulement entre les colonnes B et J) 

Le problème c'est qu'avec mon code actuel, je n'ai des bordures que sur les cellules non vides. Ce qui fait que sur une même ligne je peux avoir des cases avec des bordures et d'autres non.

Voici mon code : 

   'Mise en forme du tableau
    Dim cellule As Range
For Each cellule In Range("B:J")
   If cellule <> "" Then cellule.Borders.Weight = xlThin
Next


Auriez-vous une solution pour m'aider svp ? 

Merci de votre attention :)

Patrice33740 · Answer

Bonjour,

Essaies :
Option Explicit
Sub test()
'Mise en forme du tableau
Dim r As Range
  With ActiveSheet 'ou autre
    Set r = Intersect(.UsedRange.EntireRow, .Columns("B:J"))
    r.Borders.LineStyle = xlContinuous
    r.Borders.Weight = xlThin
  End With
End Sub

Mettre en forme les cellules non vides VBA

1 réponse

Discussions similaires