XL 2010 bordures

[Fgg]

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

 

[sylvanu]

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 :

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

 

[sylvanu]

En plus complet avec les mises en forme :

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]

Ok merci j'essaie

 

[Fgg]

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

 

[sylvanu]

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

 

[Staple1600]

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)

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]

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