Impression multi feuille choix variable Excel

Bonjour,

sub imprimer ()

Dim i As Integer,cell as range

'Parcours des feuilles

For i = 1 To Worksheets.Count
Sheets(Array(i)).Select
'nom client
Range("E13").Select
if Activecell.value = "x" then
Sheets(Array(i)).select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
Cancel = True

End Sub

pour la semaine 52?? se trouve dans tous les feuille ou quoi?

@+

je t'ai expliqué dans mon dernier post que c'était quand j'essayer de le rentrer dans mes boutons de commande de ma feuille d'impression, mais comme tu me l'a suggéré j'ai supprimer tous les boutons et j'attends maintenan ton explication quand a la merche a suivre pour rentrer ton code dans ma feuille commande impression

il faut tout d'abord verifier le bon fonctionnement de la macro
ensuite on va faire ce qui suit

dans ta feuille impression tu entre par exemple dans la colonne A:
cellule A1 : semaine1 cellule B1 : référence de la cellule situé au dessous de semaine1
cellule A2 : semaine2 cellule B2 : E13
cellule A3 : semaine3 cellule B3 : référence de la cellule situé au dessous de semaine3
. . .
. . .
. . .

cellule A52 : semaine52 cellule B52 : référence de la cellule situé au dessous de semaine52

appui Alt+F11 selectionne la feuille impression, clic droit, code
et insère le code suivant:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim F1 As Range, cell as Range, àimprimer As String, i as interger

Set F1 = Application.Intersect(Target, Range("B1:B52"))

If (F1 Is Nothing) Then
Else
àimprimer = ActiveCell.Value

For i = 1 To Worksheets.Count - 1

Sheets(Array(i)).Select

Range("àimprimer").Select

if Activecell.value = "x" then

ActiveWindow.SelectedSheets.PrintOut Copies:=1

End if
Next i
End if
Cancel = True

End Sub

@+

Quand je fais altf11 j'ai visual basic qui s'affiche après je fais insertion module car ma page est vierge (toute grise)
puis je colle le code dans la fenetre.
mais en quittant visual basic il n'enregistre pas la commande et la macro ne se fait pas lorsque je double clique sur la case nommée E13 mais physiquement la case B2 comme tu m'a demandé de faire pour le test.

et pour les autre est ce que ça marche bien?
est ce que seulement ne marche pas pour la semaine 17?
@+

pour toutes les semaines c'est pareil

si ça tiens toujours je veux bien ton mail, je tenvoie le fichier tu te rendra peut etr mieu compte

ok je t'ai envoyé le fichier

ce code est fonctionnel lance le appartir de n'importe quel cellule puis ouvre l'imprimente et verifie si tu as les fichier
à imprimer

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim F1 As Range, cell As Range, valeur As String, i As Integer

Set F1 = Application.Intersect(Target, Range("B1:B52"))
If (F1 Is Nothing) Then
Else

valeur = ActiveCell.Value

For i = 1 To Worksheets.Count - 1

Sheets(Array(i)).Select

ActiveSheet.Range(valeur).Select

If ActiveCell.Value = "X" Then

ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Next i
End If
Cancel = True

End Sub

@+

salut,

apparement il fonctionne je l'ai modifier pour l'utiliser sur ma page imprimer donc j'ai rentrer a la place de ("B1:B52"), ("D13:T13,D15:T15,D17:U17") et ça fonctionne par contre, juste il faut que je vérifie sur plusieurs semaine car cette semaine la 17 j'ai que 3 fiches sorties, donc je vais voir dans toute mes fiches si j'ai bien que 3 fiches cochées en semaine 17.

Merci vraiment beaucoup sans toi je n'y serai pas arrivé c'était trop complexe "pour moi", je regrete juste le fait que je n'ai pas appris a le faire seul, et a quoi correspond les divers mots et signes.

encore un gros merci , mes gars vont pouvoir bien travailler.

a+