Discussion :

[pauline5459]

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!

[Daniel.C]

Bonjour,

Essaie :

Code :

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

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

[pauline5459]

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

[Mr Poulpe]

Bonjour,

Une solution similaire :

Code :

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

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

[Daniel.C]

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 ?

[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

[Daniel.C]

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 :

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

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

[Daniel.C]

Bizarre.. Tu n'as pas de userform affiché ?

[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