XL 2010 bordures

Fgg · 1 Janvier 2020

Après avoir rechercher la dernière ligne vide, dans une UserForm, en VBA, avec:
'no_ligne = n° de ligne de la dernière cellule non vide de la colonne +1
no_ligne = Range("A65536").End(xlUp).Row + 1

je voudrais, sur cette ligne mettre des bordures, entre les colonnes A et W:
- droite et gauche en ligne continu( x1Continuous)
- intermédiaire et inférieure en pointillé (x1Hairline)

Mon problème est surtout, non pas de définir le style de ligne mais la zone ou mettre ces bordures avec la variable "no_ligne" entre la colonne A et W.
je cherche donc la ligne de langage pour définir la zone ("An°ligne:Wn°ligne").
Merci à qui peut me répondre.

Fgg

Staple1600 · 11 Janvier 2020

Bonjour le fil,

Il reste juste à résoudre le problème du premier message...
(But who cares...)
Et puisque que je suis là, ci-dessous une variante d'écriture de la macro de sylvanu (salute)

VB:

Sub Test3()
no_ligne = 8
With Cells(no_ligne, 1).Resize(, 23)
.Borders.Weight = 2: .Borders(8).LineStyle = xlDash: .Borders(9).LineStyle = xlDash
End With
End Sub

sylvanu · 1 Janvier 2020

Bonjour Fgg,
Il faut reconstituer la chaine : Range("A2:W2").Select avec 2 pour le numéro de ligne.
Comme ça, ça devrait marcher :
Range("A" & no_ligne & ":W" & no_ligne)
On peut tester avec :

VB:

Sub essai()
    no_ligne = 17
    Range("A" & no_ligne & ":W" & no_ligne).Select
End Sub

sylvanu · 1 Janvier 2020

En plus complet avec les mises en forme :

VB:

Sub Test2()
    no_ligne = 5
    Range("A" & no_ligne & ":W" & no_ligne).Select
    With Selection
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        .Borders(xlEdgeTop).LineStyle = xlDash
        .Borders(xlEdgeBottom).LineStyle = xlDash
    End With
    [A1].Select
End Sub

Fgg · 1 Janvier 2020

Ok merci j'essaie

Fgg · 11 Janvier 2020

merci, avec tes conseils, j'ai résolu le problème

.

sylvanu · 11 Janvier 2020

C'est l'avantage d'XL, chaque jour on apprend !

Staple1600 · 11 Janvier 2020

Bonjour le fil,

Il reste juste à résoudre le problème du premier message...
(But who cares...)
Et puisque que je suis là, ci-dessous une variante d'écriture de la macro de sylvanu (salute)

VB:

Sub Test3()
no_ligne = 8
With Cells(no_ligne, 1).Resize(, 23)
.Borders.Weight = 2: .Borders(8).LineStyle = xlDash: .Borders(9).LineStyle = xlDash
End With
End Sub

Fgg · 12 Février 2020

Merci à tous, le problème est résolu

XL 2010 bordures

Fgg

XLDnaute Nouveau

Staple1600

sylvanu

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Fgg

XLDnaute Nouveau

Fgg

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Fgg

XLDnaute Nouveau

Discussions similaires