VBA Bordures sur ligne si cellule non vide

Staple1600

XLDnaute Barbatruc

• 11 Mars 2020

• #2

Bonsoir le fil, Fredox

Si j'ai bien compris

VB:

Sub Bordures()
With Range(Cells(8, "C"), Cells(8, "C").End(xlDown)).Borders
.Weight = 3: .Color = RGB(128, 128, 128)
End With
End Sub

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 11 Mars 2020

• #3

Bonsoir Staple1600
Presque, il faut que cela s'applique (la mise en forme) de la colonne A à Q de chaque ligne.
Dans ton exemple cela fonctionne unique sur C.

Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Mars 2020

• #4

Re

Moi, je fais ce que je lis dans la question du demandeur

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)

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Mars 2020

• #5

Re

Et comme ceci, c'est mieux?

VB:

Sub Bordures_II()
Application.ScreenUpdating = False
With [A8:Q1008].SpecialCells(xlCellTypeConstants, 3).Borders
.Weight = 3: .Color = RGB(128, 128, 128)
End With
End Sub

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 11 Mars 2020

• #6

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Mars 2020

• #7

Re

Tu connais les boucles?

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 11 Mars 2020

• #8

Loop ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Mars 2020

• #9

Re

bah oui, c'est une solution possible.
Boucler sur les cellules de la colonne C.
Tu as désormais tout ce qu'il faut pour résoudre ta question
A toi désormais de mouiller un peu le maillot, camarade

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 11 Mars 2020

• #10

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 11 Mars 2020

• #11

Bonjour,

Est-ce que ceci pourrait fonctionner :

VB:

With Range("A8:Q" & Range("C8").End(xlDown).Row).Borders
.Weight = 3: .Color = RGB(128, 128, 128)
End With

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 11 Mars 2020

• #12

Bonjour Marcel32
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 ?

Merci

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Mars 2020

• #13

Bonjour Marcel32

Merci d'avoir mouillé le maillot à la place du demandeur
Je te laisse le relais

PS: Merci pour le Range("C8").End(xlDown).Row auquel je n'ai point songé

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 11 Mars 2020

• #14

Staple1600 à dit:

Je te laisse le relais

Cliquez pour agrandir...

Mais euh... J'y connais pas grand chose moi, et du coup je ne sais pas si j'arriverais à l'aider.

Fredox à dit:

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Fredox

XLDnaute Occasionnel

• 11 Mars 2020

• #15

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

 

Vote positif 0 Vote négatif