CODE Impression défilement liste déroulante EXCEL

Version imprimable

03/07/2014, 10h20
pauline5459

1 pièce(s) jointe(s)

CODE Impression défilement liste déroulante EXCEL

Bonjour à tous,

J'ai un pb avec mon fichier excel, que je voudrais coder mais je ne trouve nulle part la solution. Je vous ai mis un imprim'écran du fichier sur lequel je travaille. Je souhaiterais coder pour que je puisse imprimer ma feuille en cours ("Bon d'intervention"), à chaque combinaison possible de la case "Nom du Client", comme c'est une liste déroulante. Si par exemple, il y a 5 clients hebdomadaires, je voudrais pouvoir créer une macro qui choisisse les 5 noms du clients de la liste déroulante en H3, et qui imprime à chaque fois.

J'ai déjà entré toutes les formules pour que toutes les infos sur les clients s'affichent automatiquement, en allant chercher les infos dans les feuilles correspondantes à la fréquence choisie (il y a aussi une liste déroulante pour la fréquence).

Quelqu'un pourrait m'aider ?

Merci bcp d'avance!

Bonjour,

Essaie :

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Impression()
    Dim Liste As String, C As Range
    With Sheets("Bon d'intervention")
        Liste = .Range("H3").Validation.Formula1
        Liste = Right(Liste, Len(Liste) - 1)
        For Each C In Range(Liste)
            .[H3] = C.Value
            .PrintOut
        Next C
    End With
End Sub

03/07/2014, 10h53
pauline5459

Merci pour ta réponse rapide Daniel. J'ai inscrit ton code, et lancé la macro mais il me met Erreur 400

Bonjour,

Une solution similaire :

Code:

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim c As Range
Dim Valid_Cell As Range
Set Valid_Cell = ActiveSheet.Range("h3")
    For Each c In Range(Mid(Valid_Cell.Validation.Formula1, 2))
        Valid_Cell = c
        ActiveSheet.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Next c
End Sub

Poulpe

03/07/2014, 11h11
Daniel.C

Citation:

Envoyé par pauline5459

Merci pour ta réponse rapide Daniel. J'ai inscrit ton code, et lancé la macro mais il me met Erreur 400

Génial ! mais sur quelle ligne ?
03/07/2014, 11h19
pauline5459

C'est juste marqué Erreur 400 :/

N'est-ce pas à cause du fait que j'ai plusieurs feuilles dans mon classeur ? Car je souhaiterais juste imprimer la première feuille "Bon d'intervention", les autres feuilles servent juste à remplir toutes les infos par client, qui seront renvoyées direct sur la feuille1
03/07/2014, 11h21
Daniel.C

Bizarre.. Tu n'as pas de userform affiché ?
03/07/2014, 11h24
pauline5459

Non, en fait je clique dans Développeur sur Macros, puis Exécuter la macro que j'ai créée, et il ne se passe rien, juste une boite de dialogue avec marqué Erreur 400

Citation:

Envoyé par pauline5459

N'est-ce pas à cause du fait que j'ai plusieurs feuilles dans mon classeur ? Car je souhaiterais juste imprimer la première feuille "Bon d'intervention", les autres feuilles servent juste à remplir toutes les infos par client, qui seront renvoyées direct sur la feuille1

Je ne pense pas. Si tu n'as pas de userform affiché, peux-tu poster un classeur exemple - sans données confidentielles - en pièce jointe ?

Comme tu utilises INDIRECT pour définir ta liste déroulante, utilise :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub Impression() Dim Liste As String, C As Range With Sheets("Bon d'intervention") Liste = .Range("H3").Validation.Formula1 Liste = Right(Liste, Len(Liste) - 1) Liste = Mid(Liste, Application.Find("!", Liste) + 1, 9 ^ 9) Liste = Left(Liste, Len(Liste) - 2) For Each C In Sheets([H2].Value).Range(Liste) .[H3] = C.Value .PrintOut Next C End With End Sub

03/07/2014, 13h42
pauline5459

MERCI Ca marche c'est génial :)