Bonjour ou plutôt bonsoir Michel & Denis
Je crois que le bout du tunnel est pas loing
Le pb restant est que Denis a fait un code que je ne comprend pas bien pour d'après moi trouver les lignes correspondant à la dernière semaine et les imprimées.
Moi j'ai ajouté un tri sur les dates puis les fournisseurs
cela ne change rien je n'ais toujours pas seulement la derniere semaine d'imprimée.
le code:
Sub ListSemaine()
'Bloque l'écran
Application.ScreenUpdating = False
'retourne à la feuil2 (Tableau) et tri
Sheets("Tableau").Activate
Cells.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("A1").Select
'trouve le n° de cette semaine
Réf = Format(Now, "DD/MM/YYYY")
reP = DateValue(Réf)
dtevar = CDate(reP)
d = Int(dtevar)
res = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 1)
'recherche les enregistrements depuis le lundi de cette semaine
Dim Plage As Range, Cell As Range, i As Integer
i = 2
Set Plage = Sheets("Tableau").Range("A2:A" & Sheets("Tableau").Range("A65536").End(xlUp).Row)
For Each Cell In Plage
If Cell.Value >= res Then 'pour avoir la semaine précédente mettre >=res-7
Range("Imprime!A" & i) = Cell.Value
Range("Imprime!B" & i) = Cell.Offset(0, 1).Value
Range("Imprime!C" & i) = Cell.Offset(0, 3).Value
Range("Imprime!D" & i) = Cell.Offset(0, 10).Value
i = i + 1
End If
Next Cell
'sélectionne la feuille Imprime (faire la mise en page!)
Worksheets("Imprime").Select
'affiche la boite de dialogue Excel d'imprimante
Réponse = Application.Dialogs(xlDialogPrint).Show
'efface le tableau dans Imprime
Range("A2
" & i).ClearContents
'reslectionne la feuille Dialogue
Worksheets("Dialogue").Select
End Sub