ElRagondindo
XLDnaute Nouveau
Re bonjour a tous j'ai realiser un petit bouton qui me lance une macro qui me permet d'appliquer dans certaine plages une police et un saut de page tous les X cellules
Sub boutonformat_Cliquer()
Dim n1 As Long
Dim n2 As Long
n1 = 3
n2 = 16
Do While n1 < 2500
Range(Cells(n1, 1), Cells(n1, 6)).Font.FontStyle = "EanT30Rfz"
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=Rows(n2)
n1 = n1 + 3
n2 = n2 + 15
Loop
End Sub
cependant je n'ai aucune police qui s'applique ???
La police etant installeé dans windows de type truetype ( police de code barre)
Qui aurait une idée car je n'ai pas de retour d'erreur...
Merci bien
Sub boutonformat_Cliquer()
Dim n1 As Long
Dim n2 As Long
n1 = 3
n2 = 16
Do While n1 < 2500
Range(Cells(n1, 1), Cells(n1, 6)).Font.FontStyle = "EanT30Rfz"
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=Rows(n2)
n1 = n1 + 3
n2 = n2 + 15
Loop
End Sub
cependant je n'ai aucune police qui s'applique ???
La police etant installeé dans windows de type truetype ( police de code barre)
Qui aurait une idée car je n'ai pas de retour d'erreur...
Merci bien