nommé des cellules par code de SI...

[grisan29]

Bonsoir a tous
dans le code que SI.... a créer dans ce post et qui fonctionne très bien, comment puis-je nommer des cellules qui se trouvent 2 lignes en dessous de la bordure, j'ai bien essayer ceci mais ce n'est pas concluant

Sub bordure()
Dim L As Long, n As Byte
  L = [A65000].End(xlUp).Row + 1
  Range("A19:N" & L).Borders.LineStyle = xlNone
  For n = 0 To 3
   Union(Range("A19:K" & L), Range("M19:N" & L)).Borders(Array(7, 8, 10, 11)(n)).LineStyle = 1
  Next
  Range("A19:F" & L).Borders(11).LineStyle = xlNone
  Range("A" & L & ":N" & L).Borders.LineStyle = xlNone
  Union(Range("A" & L & ":k" & L), Range("M" & L & ":N" & L)).Borders(8).LineStyle = 1
  Range("A19:F" & L + 2).Name = "Poirier" 'essai peu concluant
End Sub

Pascal

 

[camarchepas]

Re : nommé des cellules par code de SI...

Bonsoir Pascal,

Si j'ai bien compris

Private Sub CommandButton1_Click()
  Dim L As Long, n As Byte
  L = [A65000].End(xlUp).Row + 1
  Range("A19:N" & L).Borders.LineStyle = xlNone
  For n = 0 To 3
   Union(Range("A19:K" & L), Range("M19:N" & L)).Borders(Array(7, 8, 10, 11)(n)).LineStyle = 1
  Next
  Range("B19:F" & L).Borders(11).LineStyle = xlNone
  Range("A" & L & ":N" & L).Borders.LineStyle = xlNone
  Union(Range("A" & L & ":k" & L), Range("M" & L & ":N" & L)).Borders(8).LineStyle = 1
 Range("A" & L + 2 & ":F" & L + 2).Name = "Poirier"

 

[grisan29]

Re : nommé des cellules par code de SI...

bonsoir camarchepas 😎
merci beaucoup de ta solution qui est parfaite😎 je n'en étais pas loin mais il me fallait une aide professionnelle que tu as su donner😎

Pascal