Mise en forme de tableaux avec derniere ligne variable

[walyddu59]

Bonjour , le forum

Je pense que tout et dit dans le titre je recherche a faire la mise en page d'un tableaux , avec lequel la derniere ligne et variable donc j'ai trouver la fonction pour connaitre la derniere ligne et realiser la macro pour la mise en forme du tableaux mais comprends pas comment compiler les deux , voici les deux macro j'ai indiquer ou je devrez normalement les compilez ,
Code pour trouvez la dernière ligne

Range("c" & Range("c8").End(xlDown).Row + 1).Select

Code pour la mise en forme
Range("A8:je pense que c'est ici que je devrais intégré le code avec la dernière ligne").Select
[/CODE] Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With[/CODE]

Merci d'avance pour votre aide .

 

[Pierrot93]

Re : Mise en forme de tableaux avec derniere ligne variable

Bonjour,

peut être ceci :

Range("A8", Range("A65536").End(xlUp)).Select

bonne journée
@+

 

[walyddu59]

Re : Mise en forme de tableaux avec derniere ligne variable

Salut ,cela fonctionne mais j'ai des cellules ou il ya des formules mais rien n'est afficher je voudrez qu'elle ne soit pas comprise dans le tableaux , cela et il possible ?.

 

[walyddu59]

Re : Mise en forme de tableaux avec derniere ligne variable

Re-salut,

J'ai trouver une autre solution mais je n'arrive pas a écrire la variable dans le code , çà me fait toujours erreur :

Sub Macro31()



Dim lol As Integer

Range("c" & Range("c8").End(xlDown).Row + 1).Select
lol = ActiveCell.Offset(-4, 5).Select

   
  Range("A8" : & lol).Select
   
   
End Sub

 

[WUTED]

Re : Mise en forme de tableaux avec derniere ligne variable

Bonjour walyddu59, Pierrot93,

Range("A8 :" & lol).Select

 

[Pierrot93]

Re : Mise en forme de tableaux avec derniere ligne variable

Re, bonjour Wuted

essaye ainsi :

Range("A8", Columns(1).Find("*", Cells(Rows.Count, 1), xlValues, , 1, 2, 0)).Select

bon après midi
@+

 

[walyddu59]

Re : Mise en forme de tableaux avec derniere ligne variable

Salut,

Merci a toi pierrot93 tout et fonctionnel ca marche du tonner , jai juste eu a inserer ton code 😎 ca me fait tout se que je voulais , par contre Wuted je voulais te dire que le code que tu ma passer ne fonctionne pas il bloque je ne sais pourquoi, je pense que du faite que tu et en excel 2010 et moi 2003 a part sa je vois pas d'autre problème .

Amicalement .