Impression sous condition

[Maina_H]

Bonjour à tous,

Le document ci-joint me sert à imprimer des étiquettes publipostages toutes les semaines, cependant parfois avec les retards ou avances de production il y a des changements dans les dates.

Je souhaiterai donc si c’est possible pouvoir faire une impression si la colonne G n’est pas égal à la H des lignes qui ont été modifiées.

Dans l’exemple ci joint il faudrait que l’étiquette de la ligne 10 soit réimprimée.

Merci de votre réponse.

[Maina_H]

exemple_pour_impression_sous_condition.xlsm (31,1 Ko)

[Jacquinot_WILL-FREAD]

Bonsoir,
Voici ce que j’ai trouvé :

Sub filtre_copy()
Dim a As Integer, c As Integer
Dim b As String
Sheets.Add after:=Sheets(1)
On Error GoTo fin
ActiveSheet.Name = "Impression"
Sheets(1).Range("A1:H1").Copy
Sheets(2).Range(ActiveCell, ActiveCell.Offset(0, 7)).PasteSpecial (xlPasteAll)
Application.CutCopyMode = False
Sheets(1).Activate

a = Range(Range("a2"), Range("A2").End(xlDown)).Count
Range("h2").Select
For c = 0 To a - 1
If ActiveCell.Offset(c, 0) <> ActiveCell.Offset(c, -1) Then
Range(ActiveCell.Offset(c, 0), ActiveCell.Offset(c, 0).End(xlToLeft)).Copy
Sheets(2).Select
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
ActiveCell.PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Sheets(1).Select
Wend
End If
Next
Sheets(2).Select
With ActiveCell.CurrentRegion
.Select
.name = "imprimer
.HorizontalAlignment = xlCenter
End With
b = Range("imprimer").Address
ActiveSheet.PageSetup.PrintArea = b
With ActiveSheet.PageSetup
    .CenterHorizontally = True
    .CenterVertically = True
    .Orientation = xlLandscape
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Exit Sub

fin:
MsgBox "La feuille Impression existe, Penser à l'effacer avant l'exécution"

End Sub

Creer un bouton à partir de votre premier feuille et attacher ce code.

Je sais pas si j’ai bien compris
Voici un test :
exemple_pour_impression_sous_condition.xlsm (39,4 Ko)

Cordialement Will Fread

[Maina_H]

C’est génial, merci beaucoup !!