vba écrire une cellule pour chaque ligne écrite

Version imprimable

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:

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

14/03/2013, 11h40
Philippe Tulliez

Bonjour,
Pour ma part, je n'ai pas compris la question.
14/03/2013, 11h46
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 !?

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

Code:

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