Bonsoir,

J'imprime le contenu d'un listbox en ajoutant deux colonnes pour des controles manuels après impressions...

est-il possible, en vba, de faire écrire dans la colonne les cellules uniquement pour les lignes dont la cellule A1 est rempli !?

J'ai le code suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Tableau() = ListBox1.List
j = ListBox1.ColumnCount
i = ListBox1.ListCount
Range(Cells(1, sc), Cells(Me.ListBox1.ListCount, sc + nc - 1)) = Tableau()
 
    Columns("A:A").ColumnWidth = 20
    Range("A:A").VerticalAlignment = xlTop
    Columns("B:B").ColumnWidth = 20
    Range("B:B").VerticalAlignment = xlTop
    Columns("C:C").ColumnWidth = 8
    Range("C:C").VerticalAlignment = xlTop
    Columns("D:D").ColumnWidth = 50
    Columns("D:D").WrapText = True
    Range("D:D").VerticalAlignment = xlTop
    Columns("E:E").ColumnWidth = 20
    Range("E:E").VerticalAlignment = xlTop
    Columns("F:F").ColumnWidth = 0
    Range("F:F").VerticalAlignment = xlTop
    Columns("G:G").ColumnWidth = 8
    Range("G:G").VerticalAlignment = xlTop
    Columns("H:H").ColumnWidth = 8
    Range("H:H").VerticalAlignment = xlTop