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