mise en forme tableau vba

[didier]

Bonjour
J'ai creer une macro automatique dans excell pour metre en forme un tableau.
j'aimerais l'adapter

Sub borduretableau()
'
' bordure du tableau résultat
'
Dim VAR As Integer
VAR = cells(2 , 1).value
Range("B5:I230").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlHairline
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("G1").Select
End Sub

la ou le bas blésse c'est sur :
Range("B5:I230").Select

en fait 230 est une variable (appeler VAR qui peut prendre plusieurs valeurs de 1 a 230

j'ai essayé plusieurs solutions, mais cela me met une erreur a chaque fois.
apparament c'est un bug sur la maniére d'écrire avec range. et select

merci pour votre aide
Ðidier

 

[Dan]

Bonjour,

J'ai testé ta macro mais je n'ai aucun problème elle fonctionne parfaitement.

Essaie peut - être en plaçant Range("A1").select juste avant VAR = Cells mais logiquement c'est une instruction de trop.

Sinon je te suggère de placer un fichier exemple avec ta macro afin que l'on puisse mieux analyser ce qui se passe.

Bonne journée

@+ Dan

 

[Hervé]

Bonjour

Idem que dan, Si tu veux faire référence à une plage contenant une variable, utilise

valeur=230
Range("B5:I" & valeur).Select

Salut
Hervé

 

[didier]

Merci a tout les deux ,
la réponse a ma question est fournit par Hervé
Range("B5:I" & valeur).Select

J'avais tésté cela comme cela
Range("B5:I & valeur").Select

vive les guillemets

a bientôt
Ðidier