Mise en forme de tableaux avec derniere ligne variable

  • Initiateur de la discussion Initiateur de la discussion walyddu59
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

walyddu59

XLDnaute Nouveau
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
Code:
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 .
 
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 :
Code:
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
 
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 .
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
250
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
497
Réponses
7
Affichages
165
Retour