nommé des cellules par code de SI...

grisan29 · 11 Janvier 2015

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

Code:

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 · 11 Janvier 2015

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

Bonsoir Pascal,

Si j'ai bien compris

Code:

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 · 11 Janvier 2015

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

nommé des cellules par code de SI...

grisan29

XLDnaute Accro

camarchepas

XLDnaute Barbatruc

grisan29

XLDnaute Accro

Discussions similaires

nommé des cellules par code de SI...

grisan29

XLDnaute Accro

camarchepas

XLDnaute Barbatruc

grisan29

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency