problème de repérage de ligne

[jpdestetienne!]

Bonjour tout le monde.
Je vous écrit car j'ai un petit problème de repérage de dernière ligne.
Voila, j'ai un tableau dont le nombre de colonnes est fixe, mais dont le nombre de lignes est variable.

Pour repérer la dernière ligne, j'utilise la variable "l", dont le code est le suivant :

Dim l As Integer
l = Sheets("Feuil3").Range("C65536").End(xlUp).Row + 1

Le but est de faire une mise en forme automatique du tableau.
Je pense avoir bien écrit le code pour désigner les bordures, le problème est juste pour repérer la plage du tableau.

Les bordures doivent commencer de la cellule A6 jusqu'à le cellule O"l", "l" étant les numéro de ma dernière ligne.
J'ai donc écrit le code suivant :

Range("A6:Ol").Select

Mais il ne marche pas.(il écrit " la méthode 'Range de l'objet '_Global' a echouée").

M'avez-vous compris?
Quelqu'un pourrait-il me dire ce qu'il faut écrire?
En vous remerciant par avance.
Cordialement, JP

 

[CBernardT]

Bonjour Jpdestetienne

C'est normal que ça bugge !

Une syntaxe correcte est :

Range("A6:O"& l).Select

Cordialement

CBernardT

 

[jpdestetienne!]

IMPECCABLE, ça marche du tonnerre!
Merçi beaucoup pour ce coup de pouce.
Cordialement, JP

 

[jpdestetienne!]

Juste une dernière petite question, après c'est tout!
Quel pourrait etre le code pour quà chaque re-initialisation, toutes les cellules à partir du rang A6 se mettent sans bordures?
Merçi d'avance.
JP

 

[jpdestetienne!]

Problème finalement résolu, il fallait juste écrire, avant le code que vous m'avez donné, :


Range("A6:O35635").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

 

[CBernardT]

Re Jpdestetienne

Une syntaxe possible :

Condition à mettre en place :

'Si la ligne est < ou = à 6 alors mise en forme sinon fin soit le code :

If ActiveCell.Row <= 6 Then
ActiveCell......'Mise en forme
End If

Cordialement

CBernardT

 

[jpdestetienne!]

Ok, merçi pour ce petit plus.
A bientôt
JP