quadri

[guima1642]

Bonjour à tous,

Je charge un fichier plat dans une feuille excel je ne sais pas à l'avance le nb de ligne.
par défaut j'ai fait une presentation de 50 lignes - 31 colonnes bien présenté au niveau du quadrillage.
Mais quand le fichier fait plus de 50 lignes là je ne sais plus le quadriller en automatique (ligne horizontale, verticale, droite, gauche).

j'espère avoir était claire🙄
Merci pour votre aide

 

[Excel-lent]

Re : quadri

Slt Guima1642,

Qu'entends tu par "un fichier plat"?

Pour la mise en forme, c'est comme avec Word, il faut la faire à la fin.
Avantage : lorsque tu fais des "copier/coller", cela évite de ruiner tes belles bordures.

Comment veux-tu faire le quadrillage? A la main? Automatiquement (via VBA)?

Dans l'attente de te lire.

P.S : si tu choisis la solution VBA, merci de joindre ton fichier (pas la peine de mettre celui qui fait 400 lignes 😉 - seulement 10 suffirons largement).

 

[CB60]

Re : quadri

Bonsoir
peut être de cette façon:
Sub Macro5()
'
' Macro5 Macro
' Macro enregistrée le 27/08/2007 par Bruno
'
'
ActiveSheet.UsedRange.Select
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
End Sub

 

[CB60]

Re : quadri

re
en plus court:
Sub Macro5()
'
' Macro5 Macro
' Macro enregistrée le 27/08/2007 par Bruno
'l'un ou l'autre
'ActiveSheet.UsedRange.Select
ActiveSheet.Range("a1").CurrentRegion.Select
With Selection.Borders()
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With


End Sub

 

[guima1642]

Re : quadri

Bonjour,

Long déplacement, je n'ai pas pu répondre avant, mais j'ai résolu mon pb par ça, c'est pas génial mais ça marche.

For i = 50 To Rows.Count
If Cells(i, 3) = "gb" Then Exit For
If Rows(i).Cells(3) <> "" Then Rows("49:49").Select
Selection.Copy
Rows(i).Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Next i

Merci encore pour votre aide