Discussion :

[Chris171717]

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

[Philippe Tulliez]

Bonjour,
Pour ma part, je n'ai pas compris la question.

[Chris171717]

Ah

je précise alors...

J'ai un listbox à imprimer. Je passe donc par une feuille temporaire. Mais je dois ajouter à l'impression deux colonnes qui ne figurent ni dans la listbox, ni dans la feuille de données de mon classeur... je dois "créer" ces deux colonnes au moment de la feuille temporaire... (c'est pour réaliser un contrôle manuel après impression)

ça c'est bon !

Ce que je n'arrive pas à faire en revanche, c'est que ces deux colonnes, je souhaiterai qu'il apparaissent dans leurs cellules un carré (comme une case à cocher)... de plus, je souhaiterai que ce carré n’apparaisse que pour les lignes dont la cellule A1 est non-vide...

Est-ce plus clair !?

[Chris171717]

Non ben c'est bon, je viens de trouver à l'instant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
            If Not IsEmpty(Range("A" & i)) Then Range("G" & i) = "[ ]"
        Next