Bonjour le forum,
Pour appliquer un formatage de ligne (griser une ligne sur deux) j'utilise ce bout de code qui marche bien
Sub FormaterLigne()
Dim i%
Dim j%
With Sheets("Recap")
For i = 4 To .Range("B65536").End(xlUp).Row Step 2
.Range("B" & i & ":G" & i).Interior.ColorIndex = 15
Next i
For j = 3 To .Range("B65536").End(xlUp).Row Step 2
.Range("B" & j & ":G" & j).Interior.ColorIndex = 2
Next j
End With
End Sub
En même temps pour appliquer un quadrillage de ligne (ou de plage c'est selon) j'utilise une MFC avec cette fonction trouvée sur Excelabo
Function NbLignesMaxiChamp(C As Range)
' Excelabo : Les astuces excel VBA du Disciplus.simplex
m = 0
For Each i In C
m = IIf(Cells(65536, i.Column).End(xlUp).Row > m, Cells(65536, i.Column).End(xlUp).Row, m)
Next i
NbLignesMaxiChamp = m - C.Row + 1
End Function
Il marche sauf que la MFC allourdit considérablement mon fichier, le faisant passer de 600 ko à 3 330 Ko. Une situation embettante pour moi.
Donc pour contourner la MFC je souhaite passer par la solution VBA. Quelqu'un (ou une) aurait-il un debut de reponse pour moi?
Merci par avance
Pour appliquer un formatage de ligne (griser une ligne sur deux) j'utilise ce bout de code qui marche bien
Sub FormaterLigne()
Dim i%
Dim j%
With Sheets("Recap")
For i = 4 To .Range("B65536").End(xlUp).Row Step 2
.Range("B" & i & ":G" & i).Interior.ColorIndex = 15
Next i
For j = 3 To .Range("B65536").End(xlUp).Row Step 2
.Range("B" & j & ":G" & j).Interior.ColorIndex = 2
Next j
End With
End Sub
En même temps pour appliquer un quadrillage de ligne (ou de plage c'est selon) j'utilise une MFC avec cette fonction trouvée sur Excelabo
Function NbLignesMaxiChamp(C As Range)
' Excelabo : Les astuces excel VBA du Disciplus.simplex
m = 0
For Each i In C
m = IIf(Cells(65536, i.Column).End(xlUp).Row > m, Cells(65536, i.Column).End(xlUp).Row, m)
Next i
NbLignesMaxiChamp = m - C.Row + 1
End Function
Il marche sauf que la MFC allourdit considérablement mon fichier, le faisant passer de 600 ko à 3 330 Ko. Une situation embettante pour moi.
Donc pour contourner la MFC je souhaite passer par la solution VBA. Quelqu'un (ou une) aurait-il un debut de reponse pour moi?
Merci par avance