Re impression en rafale

[Sarmat31]

Bonjour,

Je reviens ici car j'ai un autre soucis (et oui encore un!!!).
Je voulais en fonction de la valeur d'une cellule de ma feuille "presence" qu'une image apparaisse, sinon une autre image appaitra à sa place.

Avec ce code j'y suis arrivée à l'ecran. Mais lorsque je lance l'impression en rafale il n'en tiens pas compte et imprime toujours la meme image quelle que soit la valeur dans la cellule.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("I15") = "CReg" Then
Shapes("Picture 82").Visible = True
Shapes("Picture 83").Visible = False
Else
Shapes("Picture 82").Visible = False
Shapes("Picture 83").Visible = True
End If
End Sub


En resumé il faudrait avant d'imprimer chacune des feuilles, il l'affiche à l'ecran l'imprime, affiche la suivante, l'imprime, etc, etc.

Quelqu'un a-t-il une solution??
Merci d'avance.

 

[kjin]

Re : Re impression en rafale

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("I15") = "CReg" Then
Shapes("Picture 82").Visible = True
Shapes("Picture 83").Visible = False
Else
Shapes("Picture 82").Visible = False
Shapes("Picture 83").Visible = True
End If
End Sub

Encore faut-il que tu tires plus vite que ton ombre
Et la macro d'impression est où ?
A+
kjin

 

[Sarmat31]

Re : Re impression en rafale

Oups en effet ça peut aider  la voici. Elle marche bien sans l'histoire de l'image a afficher.


Sub Rafale
'
' Impression en rafale de toute les feuilles comportant un nom
' Macro enregistrée le 30/08/2011 par Sarah
'
Dim Lig As Long, Listes As String
For Lig = 13 To 43
Listes = Sheets("Listes").Range("C" & Lig).Value
With Sheets("presence")
.Range("A11").Value = Listes
If .Range("A11") <> "" then .PrintOut
End With
Next Lig
End Sub

Voilà si il vous faut autre chose n'hésitez pas
Merci

 

[kjin]

Re : Re impression en rafale

Bonsoir,
Il y a forcément une interaction entre la valeur d'une cellule particulière et l'affichage d'une image, je suppose par formule, mais seul ton fichier pourrait nous éclairer
A+
kjin

 

[Sarmat31]

Re : Re impression en rafale

Bonjour,
Non c'est dans la 1er macro (If Range("I15") = "CReg" Then) ou je lui dit si la cellule i15 contient "CReg" il affiche une image sinon il en affiche une autre.
La cellue i15 elle est conditionnée en fonction d'une recherche dans une liste de noms.
Comment puis je faire pour envoyer mon fichier pour que tu vois mieux de quoi je parle?
Merci encore.

 

[kjin]

Re : Re impression en rafale

Bonsoir,

La cellue i15 elle est conditionnée en fonction d'une recherche dans une liste de noms.
Comment puis je faire pour envoyer mon fichier pour que tu vois mieux de quoi je parle?
Merci encore.

Il y a donc bien ou une formule ou une macro pour ça
Ne serait-il pas temps que tu fasses passer un fichier exemple ?
A+
kjin

 

[Sarmat31]

Re : Re impression en rafale

Voila mon fichier.
Merci

 

[kjin]

Re : Re impression en rafale

Bonsoir,
Modifies ta macro evenementielle...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("I15") = "CReg" Then
'...

...par

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("I15") = "CReg" Then
'...

A+
kjin

 

[Sarmat31]

Re : Re impression en rafale

Si je suis ton conseil ma macro d'impression en rafale ne marche plus. Elle plante à :

.Range("A11").Value = Listes

Je cherche en faite une soluce pour qu'excel si il y a un nom dans ma liste de nom il affiche la feuille à l'ecran et ensuite imprime ce qu'il y a d'affiché, puis passe à la ligne suivante de ma liste de nom et ainsi de suite.... Est-ce possible?

A moins que tu ais une meilleure idée?
Merci

 

[kjin]

Re : Re impression en rafale

Bonjour,
Je ne vois pas d'où vient cette macro ?!
Moi je vois dans le module2...

Sub Impression_rafale()
Dim Lig As Long, Listes As String
For Lig = 13 To 49
    Listes = Sheets("Listes").Range("c" & Lig).Value
    With Sheets("Feuille presence")
        .Range("b13").Value = Listes
        If .Range("b13") <> "" Then .PrintOut
    End With
Next Lig
End Sub

...que j'ai légèrement transformé

Sub Impression_rafale()
Dim Lig&, Nom$
For Lig = 13 To 49
    Nom = Sheets("Listes").Range("c" & Lig).Value
    If Nom <> "" Then
        With Sheets("Feuille presence")
            .Range("b13").Value = Nom
'            .PrintOut
            .PrintPreview
        End With
    End If
Next Lig
End Sub

A+
kjin

 

[Sarmat31]

Re : Re impression en rafale

Ok ça marche pour m'afficher la feuille avant l'impression, mais ça ne change pas l'image. Si tu regardes mon fichier quand sur la feuille excel je demande l'affichage d'un nom il change le logo en fonction de ma cellule i15. mais il ne le fait pas lors de l'impression.
Comprends tu ce que je veux dire?

 

[kjin]

Re : Re impression en rafale

Bonjour,

Comprends tu ce que je veux dire?

Depuis un moment je crois, non ?
As tu bien modifié ta macro événementielle comme je te l'ai indiqué au #8 et dans le fichier joint ?
Sinon, reste à voir s'il ne faut pas temporiser l'impression si l'imprimante ne suit pas
A+
kjin

 

[Sarmat31]

Re : Re impression en rafale

oui j'ai suivi ta modif mais lors de l'impression, qu'elle soit en imprimante pdf ou imprimante réelle, l'image ne se change pas en effet.