Bonjour,
Bonjour Phlaurent55,A ces nouveaux
Généralement on se présente pour son premier message et il est de règle de dire bonjour,
Merci de lire la charte
1: pas de code pour ce bouton toupie. Pour modifier faire clic droit puis format de contrôle
2: Juste définir une zone imprimable (fait: voir aperçu)
3: Juste mettre une condition pour le zéro
Option Explicit
Sub Impression()
Dim Lig&
[R4].Font.ThemeColor = xlThemeColorDark1
For Lig = 1 To 10
[Q4] = Lig
ActiveSheet.PrintPreview
'ActiveSheet.PrintOut
Next Lig
[R4].Font.ColorIndex = xlAutomatic
End Sub
Bonjour à tous,
Salut Philippe,
Salut Patrick,
Au plus simple :
VB:Option Explicit Sub Impression() Dim Lig& [R4].Font.ThemeColor = xlThemeColorDark1 For Lig = 1 To 10 [Q4] = Lig ActiveSheet.PrintPreview 'ActiveSheet.PrintOut Next Lig [R4].Font.ColorIndex = xlAutomatic End Sub
A+ à tous