OVH Cloud OVH Cloud

Syntaxe(s) bordures de cellules ou plage

4 réponses
Avatar
Pollux
Bonjours Excellent(e)s Excellien(ne)s,
mon problème est double avec ces bordures :
en first je sais écrire, pour faire mon tableau :
Range("A26:I36").Borders(xlEdgeLeft).Weight = xlThin
Range("A26:I36").Borders(xlEdgeTop).Weight = xlThin
Range("A26:I36").Borders(xlEdgeBottom).Weight = xlThin
Range("A26:I36").Borders(xlEdgeRight).Weight = xlThin
Range("A26:I36").Borders(xlInsideVertical).Weight = xlThin
Range("A26:I36").Borders(xlInsideHorizontal).Weight = xlThin
LA question : n'y a-t-il pas plus discret que de devoir répéter à toute les
lignes
Range("A26:I36")

La seconde (question) :
je sais également écrire :
Range("E27:E36,G27:G36,F39:F39").Borders(xlEdgeLeft).Weight = xlThin
mais dès que je remplace le numéro de ligne par une variable,
With Range("E" & ligneTableau + 2 & ":E" & ligneTableau + 11, "G" &
ligneTableau + 2 & ":G" & ligneTableau + 11, "F" & ligneTableau + 14 & ":F"
& ligneTableau + 14)
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With
VBA n'accepte pas plus de 2 plages dans la même instruction avec le message
:
"Nombre d'arguments incorrects ou affectation de propriété incorrecte"
existe-t-il une parade ou bien écris-je très mal?

Merci par avance pour votre aide

Pollux

4 réponses

Avatar
ru-th
Salut

pour le 1
Range("A26:I36").Borders.Weight = xlThin

pour le 2
With Union(Range("E" & lignetableau + 2 & ":E" & lignetableau + 11),
Range("G" & lignetableau + 2 & ":G" & lignetableau + 11), Range("F" &
lignetableau + 14 & ":g" & lignetableau + 14))
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With

a+
rural thierry

"Pollux" a écrit dans le message de
news:
Bonjours Excellent(e)s Excellien(ne)s,
mon problème est double avec ces bordures :
en first je sais écrire, pour faire mon tableau :
Range("A26:I36").Borders(xlEdgeLeft).Weight = xlThin
Range("A26:I36").Borders(xlEdgeTop).Weight = xlThin
Range("A26:I36").Borders(xlEdgeBottom).Weight = xlThin
Range("A26:I36").Borders(xlEdgeRight).Weight = xlThin
Range("A26:I36").Borders(xlInsideVertical).Weight = xlThin
Range("A26:I36").Borders(xlInsideHorizontal).Weight = xlThin
LA question : n'y a-t-il pas plus discret que de devoir répéter à toute
les

lignes
Range("A26:I36")

La seconde (question) :
je sais également écrire :
Range("E27:E36,G27:G36,F39:F39").Borders(xlEdgeLeft).Weight = xlThin
mais dès que je remplace le numéro de ligne par une variable,
With Range("E" & ligneTableau + 2 & ":E" & ligneTableau + 11, "G" &
ligneTableau + 2 & ":G" & ligneTableau + 11, "F" & ligneTableau + 14 &
":F"

& ligneTableau + 14)
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With
VBA n'accepte pas plus de 2 plages dans la même instruction avec le
message

:
"Nombre d'arguments incorrects ou affectation de propriété incorrecte"
existe-t-il une parade ou bien écris-je très mal?

Merci par avance pour votre aide

Pollux







Avatar
anonymousA
bonjour,

For I = 7 To 12
Range("A26:I36").Borders(I).Weight = xlThin
Next

et

With Range("E" & ligneTableau + 2 & ":E" & ligneTableau + 11 & ", G" &
ligneTableau + 2 & ":G" & ligneTableau + 11 & ", F" & ligneTableau + 14 &
":F" & ligneTableau + 14)
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With

A+


Bonjours Excellent(e)s Excellien(ne)s,
mon problème est double avec ces bordures :
en first je sais écrire, pour faire mon tableau :
Range("A26:I36").Borders(xlEdgeLeft).Weight = xlThin
Range("A26:I36").Borders(xlEdgeTop).Weight = xlThin
Range("A26:I36").Borders(xlEdgeBottom).Weight = xlThin
Range("A26:I36").Borders(xlEdgeRight).Weight = xlThin
Range("A26:I36").Borders(xlInsideVertical).Weight = xlThin
Range("A26:I36").Borders(xlInsideHorizontal).Weight = xlThin
LA question : n'y a-t-il pas plus discret que de devoir répéter à toute les
lignes
Range("A26:I36")

La seconde (question) :
je sais également écrire :
Range("E27:E36,G27:G36,F39:F39").Borders(xlEdgeLeft).Weight = xlThin
mais dès que je remplace le numéro de ligne par une variable,
With Range("E" & ligneTableau + 2 & ":E" & ligneTableau + 11, "G" &
ligneTableau + 2 & ":G" & ligneTableau + 11, "F" & ligneTableau + 14 & ":F"
& ligneTableau + 14)
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With
VBA n'accepte pas plus de 2 plages dans la même instruction avec le message
:
"Nombre d'arguments incorrects ou affectation de propriété incorrecte"
existe-t-il une parade ou bien écris-je très mal?

Merci par avance pour votre aide

Pollux








Avatar
Pollux
Whahou, très fin le placement des "".
Fallait y penser

Merci
"anonymousA" a écrit dans le message
de news:
bonjour,

For I = 7 To 12
Range("A26:I36").Borders(I).Weight = xlThin
Next

et

With Range("E" & ligneTableau + 2 & ":E" & ligneTableau + 11 & ", G" &
ligneTableau + 2 & ":G" & ligneTableau + 11 & ", F" & ligneTableau + 14 &
":F" & ligneTableau + 14)
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With

A+


Bonjours Excellent(e)s Excellien(ne)s,
mon problème est double avec ces bordures :
en first je sais écrire, pour faire mon tableau :
Range("A26:I36").Borders(xlEdgeLeft).Weight = xlThin
Range("A26:I36").Borders(xlEdgeTop).Weight = xlThin
Range("A26:I36").Borders(xlEdgeBottom).Weight = xlThin
Range("A26:I36").Borders(xlEdgeRight).Weight = xlThin
Range("A26:I36").Borders(xlInsideVertical).Weight = xlThin
Range("A26:I36").Borders(xlInsideHorizontal).Weight = xlThin
LA question : n'y a-t-il pas plus discret que de devoir répéter à toute
les


lignes
Range("A26:I36")

La seconde (question) :
je sais également écrire :
Range("E27:E36,G27:G36,F39:F39").Borders(xlEdgeLeft).Weight = xlThin
mais dès que je remplace le numéro de ligne par une variable,
With Range("E" & ligneTableau + 2 & ":E" & ligneTableau + 11, "G" &
ligneTableau + 2 & ":G" & ligneTableau + 11, "F" & ligneTableau + 14 &
":F"


& ligneTableau + 14)
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With
VBA n'accepte pas plus de 2 plages dans la même instruction avec le
message


:
"Nombre d'arguments incorrects ou affectation de propriété incorrecte"
existe-t-il une parade ou bien écris-je très mal?

Merci par avance pour votre aide

Pollux










Avatar
Pollux
Tout comme pour anonymousA, merci
"ru-th" a écrit dans le message de
news:
Salut

pour le 1
Range("A26:I36").Borders.Weight = xlThin

pour le 2
With Union(Range("E" & lignetableau + 2 & ":E" & lignetableau + 11),
Range("G" & lignetableau + 2 & ":G" & lignetableau + 11), Range("F" &
lignetableau + 14 & ":g" & lignetableau + 14))
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With

a+
rural thierry

"Pollux" a écrit dans le message de
news:
Bonjours Excellent(e)s Excellien(ne)s,
mon problème est double avec ces bordures :
en first je sais écrire, pour faire mon tableau :
Range("A26:I36").Borders(xlEdgeLeft).Weight = xlThin
Range("A26:I36").Borders(xlEdgeTop).Weight = xlThin
Range("A26:I36").Borders(xlEdgeBottom).Weight = xlThin
Range("A26:I36").Borders(xlEdgeRight).Weight = xlThin
Range("A26:I36").Borders(xlInsideVertical).Weight = xlThin
Range("A26:I36").Borders(xlInsideHorizontal).Weight = xlThin
LA question : n'y a-t-il pas plus discret que de devoir répéter à toute
les

lignes
Range("A26:I36")

La seconde (question) :
je sais également écrire :
Range("E27:E36,G27:G36,F39:F39").Borders(xlEdgeLeft).Weight = xlThin
mais dès que je remplace le numéro de ligne par une variable,
With Range("E" & ligneTableau + 2 & ":E" & ligneTableau + 11, "G" &
ligneTableau + 2 & ":G" & ligneTableau + 11, "F" & ligneTableau + 14 &
":F"

& ligneTableau + 14)
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
End With
VBA n'accepte pas plus de 2 plages dans la même instruction avec le
message

:
"Nombre d'arguments incorrects ou affectation de propriété incorrecte"
existe-t-il une parade ou bien écris-je très mal?

Merci par avance pour votre aide

Pollux