Discussion :

[julien_hh]

Bonjour,

Je souhaiterais développer une macro me permettant d'imprimer toutes les options d'une combo box.

J'ai un tableau de bord qui se met à jour en fonction de ma sélection dans la combo box.

Pensez vous qu'il est possible d'imprimer ce tableau de bord avec chacune des options de la combo box?

Imprimer sélection 1, puis sélection 2, et ainsi de suite...

Je suis plutôt débutant sur VBA mais je serai très attentif à vos réponses

Merci

[Daniel.C]

Bonjour,

Est-ce que la combobox se trouve sur un userform ou sur une feuille ?

[Marc-L]

Attention, voir ici ‼

[julien_hh]

Ma combo box est un bouton que l'on peut déplacer, ce n'est pas une liste implémentée dans une cellule via Data Validation

[Daniel.C]

C'est pas bien de cross-poster. Ceci dit, une combobox n'est pas un bouton.

[julien_hh]

Toutes mes excuses dans ce cas, je pensais m'adresser à deux communautés différentes via deux forums différents

Daniel, je dirais alors que c'est un "Form control". Mais ai-je répondu à votre 1ère interrogation?

Merci de votre aide

[Daniel.C]

Toutes mes excuses dans ce cas, je pensais m'adresser à deux communautés différentes via deux forums différents

C'est bien ce qu'on te reproche.

Adapte cette macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
    Dim Plage As Range, C As Range
    With ActiveSheet.Shapes("Drop Down 2")   '*** nom à modifier
        Set Plage = Range(.ControlFormat.ListFillRange)
        For i = 1 To Plage.Count
            .ControlFormat.Value = i
            '*****ici, ton impression
        Next i
    End With
End Sub

[julien_hh]

Merci Daniel,

Voici donc ma macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub MacroPrint()
Dim Plage As Range, C As Range
    With ActiveSheet.Shapes("Drop Down 187")
        Set Plage = Range(.ControlFormat.ListFillRange)
        For i = 1 To Plage.Count
            .ControlFormat.Value = i
            Range("A30:Q69").Select
            Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        Next i
    End With
End Sub

Elle résulte en Run-time error 1004 : application defined or object-defined error

Comme tu peux le voir, je cherche à imprimer une plage spécifique.
Aussi, je travaille sur deux feuilles distinctes :
une base qui alimente ma combobox (sheet "DATABASE")
une feuille où j'ai mon tableau de bord et ma combobox ("Sales Analysis")

[Daniel.C]

Essaie comme ça. Si tu as une erreur, dis sur quelle ligne.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub MacroPrint()
Dim Plage As Range, C As Range
    With Sheets("Sales Analysis").Shapes("Drop Down 187")
        Set Plage = Sheets("DATABASE").Range(.ControlFormat.ListFillRange)
        For i = 1 To Plage.Count
            .ControlFormat.Value = i
            .Range("A30:Q69").PrintOut Copies:=1, Collate:=True
        Next i
    End With
End Sub

[julien_hh]

J'ai une erreur sur cette ligne :

Code :

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

.Range("A30:Q69").PrintOut Copies:=1, Collate:=True

Object doesnt support this property or method" (error 438)

[Daniel.C]

Au temps pour moi; mets à la place :

Code :

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

Sheets("Sales Analysis").Range("A30:Q69").PrintOut Copies:=1, Collate:=True

[julien_hh]

Super, cela fonctionne.

Penses-tu qu'il est possible de créer une légère pause suite au changement d'options? J'ai une macro (SortData) qui s'active suite à une sélection dans la combobox donc je souhaiterais laisser le temps à la macro de s'enclencher avant de lancer l'impression.

[Daniel.C]

Essaie comme ça. La ligne :

Code :

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

Public Var As Boolean

doit être en tête du module.

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
Public Var As Boolean
Sub MacroPrint()
Dim Plage As Range, C As Range
    With Sheets("Sales Analysis").Shapes("Drop Down 187")
        Set Plage = Sheets("DATABASE").Range(.ControlFormat.ListFillRange)
        For i = 1 To Plage.Count
            .ControlFormat.Value = i
            Application.OnTime Now + TimeValue("0:00:5"), "FaireUnePause"
            Var = False
            Do Until Var = True
                DoEvents
            Loop
        Next i
    End With
End Sub
Sub FaireUnePause()
    DoEvents
    Sheets("Sales Analysis").Range("A30:Q69").PrintOut Copies:=1, Collate:=True
    Var = True
End Sub