Bonjour,

Débutante, je m'appuie sur des codes existants (merci de vos contributions) pour apprendre et pour egalement m'en servir voire ameliorer; J'ai déclarer une Dim pour mettre. Celle-ci faite J'aimerai que ma Dim fasse un aperçu avant impression. Or je ne sais pas faire. Voir la dernière ligne qui ne fonctionne pas :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ccc()
'
' ccc Macro
'
 
'
    Dim liste, Cptr As Byte
    liste = Array("Liste B -", "Liste A -", "Liste HL -")
    For Cptr = 0 To UBound(liste)
    MsgBox (Cptr)
    Next
    liste.PrintPreview
 
End Sub
Merci de votre aide