VBA Bordures sur ligne si cellule non vide

Fredox

XLDnaute Occasionnel
Bonjour,

Je souhaiterais avoir des bordures de cellules tans que la cellule CX n'est pas vide, sinon la macro s'arrête.

Ma plage de colonnes lignes est A8:Q1008, la valeur de référence est contenu en celulle C8 (puis C9, C10 et ainsi de suite tant que le contenu n'est pas différent de rien)

Pour le format des bordures sur la ligne tant qu'en C il y a du contenu:
Code:
     .borders(xlInsideVertical).LineStyle = 1
     .borders(xlInsideVertical).Color = RGB(128, 128, 128)
     .borders(xlEdgeLeft).Weight = 3
     .borders(xlEdgeLeft).Color = RGB(128, 128, 128)
     .borders(xlEdgeRight).Weight = 3
     .borders(xlEdgeRight).Color = RGB(128, 128, 128)

Possible d'avoir un coup de main pour la macro ?

Merci
 

Fredox

XLDnaute Occasionnel
C'est mieux mais...
Il a bien travailler sur la zone A8:Q1008, mais a mis des bordures à chacune des cellules tant que chaque contenu en différent de rien.

En fait ce que je souhaite:
Sur la zone A8:A1008, pour chaque ligne, la seule référence c'est en C, si C est différent de rien alors toute la ligne se voit appliquer les bordures, et ainsi de suite pour les lignes suivantes.

J'essais d’être clair mais je me complique la vie dans mes propos.

Merci encore.
 

TooFatBoy

XLDnaute Barbatruc
Je te laisse le relais
Mais euh... J'y connais pas grand chose moi, et du coup je ne sais pas si j'arriverais à l'aider. :(


Oui, cela fonctionne très bien.
J'ai besoin d'avoir à droite et à gauche des bordures différentes des intérieurs (plus épaisses), comment faire ?
Essaye de remplacer la ligne entre le With et le End with par ce que tu as écrit dans ton premier message.

VB:
With Range("A8:Q" & Range("C8").End(xlDown).Row)
     .borders(xlInsideVertical).LineStyle = 1
     .borders(xlInsideVertical).Color = RGB(128, 128, 128)
     .borders(xlEdgeLeft).Weight = 3
     .borders(xlEdgeLeft).Color = RGB(128, 128, 128)
     .borders(xlEdgeRight).Weight = 3
     .borders(xlEdgeRight).Color = RGB(128, 128, 128)
End With
 

Fredox

XLDnaute Occasionnel
Voici:
VB:
Sub Bordures()
With Range("A8:Q" & Range("C8").End(xlDown).Row)
     .Borders(xlInsideVertical).LineStyle = 1
     .Borders(xlInsideVertical).Color = RGB(128, 128, 128)
     .Borders(xlEdgeLeft).Weight = 3
     .Borders(xlEdgeLeft).Color = RGB(128, 128, 128)
     .Borders(xlEdgeRight).Weight = 3
     .Borders(xlEdgeRight).Color = RGB(128, 128, 128)

End With
End Sub

Merci du coup de main Staple1600 et Marcel32

Bonne soirée
 

Discussions similaires

Réponses
8
Affichages
615