modification macro impression, avec conditions

Paf

XLDnaute Barbatruc

• 16 Février 2014

• #2

Re : modification macro impression, avec conditions

Bonjour,

pas de macro dans le classeur joint !

A+

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 16 Février 2014

• #3

Re : modification macro impression, avec conditions

Bonjour le forum, Paf, ci joint fichier avec macro
merci pour l'info

 

Pièces jointes

• macro impression si.xlsm

  247.3 KB · Affichages: 33

Dernière édition: 16 Février 2014

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 16 Février 2014

• #4

Re : modification macro impression, avec conditions

RE, le fichier contient la macro, le précédent avait été enregistré en xlx et non en xlm

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 16 Février 2014

• #5

Re : modification macro impression, avec conditions

re,

désolé, plantage d'excel à l'ouverture du classeur (conversion 2003).

Bonne suite

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 16 Février 2014

• #6

Re : modification macro impression, avec conditions

version 2003

 

Pièces jointes

• macro impression si.xls

  474 KB · Affichages: 36
• macro impression si.xls

  474 KB · Affichages: 34
• macro impression si.xls

  474 KB · Affichages: 30

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 16 Février 2014

• #7

Re : modification macro impression, avec conditions

Re,

je peux l'ouvrir ! mais .... le classeur ne contient pas de macro !

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 16 Février 2014

• #8

Re : modification macro impression, avec conditions

ca deviens exaspérant

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 16 Février 2014

• #9

Re : modification macro impression, avec conditions

voici, le fichier et au cas où le code de la macro qui est lancée à partir du bouton dan sla seconde feuille
merci encore

Sub Bouton1_Cliquer()
Dim Cel As Range
For Each Cell In Sheets("Formations PSST").Range("A4:A299")
Sheets("Base habilitation à la cond").Select
Range("o3").Value = Cell.Value
' Tester
If Cell.Value <> "" Then
' Faire la sélection pour le changement
ActiveCell.Select
ActiveSheet.PageSetup.PrintArea = "b2😱35"
ActiveSheet.PrintOut
Else
MsgBox "Les fichiers pdf ont été édités avec succès dans le dossier suivant : " & ThisWorkbook.Path
Exit Sub

End If
Next Cell
End Sub

 

Pièces jointes

• macro impression si.xls

  478.5 KB · Affichages: 42
• macro impression si.xls

  478.5 KB · Affichages: 38
• macro impression si.xls

  478.5 KB · Affichages: 33

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 16 Février 2014

• #10

Re : modification macro impression, avec conditions

Re,

Le code suivant devrait faire l'affaire:

Code:

Sub Bouton1_Cliquer()
Dim Cel As Range, WS1 As Worksheet, WS2 As Worksheet, DerLig As Integer, i As Integer

Set WS1 = Worksheets("Formations PSST")
Set WS2 = Worksheets("Base habilitation à la cond")

DerLig = WS1.Range("A" & Rows.Count).End(xlUp).Row


For i = 4 To DerLig
    ' si le nom est imprimable et non imprimé
    If WS1.Range("CF" & DerLig) = 3 And WS1.Range("CG" & DerLig) <> "I" Then
        WS1.Range("CG" & DerLig) = "I" ' ecriture I en col CG
        WS2.Range("o3").Value = WS1.Cells(i, 1).Value
        
        WS2.PageSetup.PrintArea = "b2:o35"
        'WS2.PrintOut
        WS2.PrintPreview
     End If
  Next
MsgBox "Les fichiers pdf ont été édités avec succès dans le dossier suivant : " & ThisWorkbook.Path

End Sub

Pas pu tester correctement à cause des xlfn.IFERROR non supportés par XL 2003

A+

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 16 Février 2014

• #11

Re : modification macro impression, avec conditions

re , Paf, ben rien ne se passe, lorsque je clic sur le bouton juste la message box qui apparait mais pas d'impression

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 16 Février 2014

• #12

Re : modification macro impression, avec conditions

re,
J'ai oubliéde supprimer WS2.PrintPreview qui ne fait qu'une prévisualisation

dans la colonne CF y a-t-il des 3 , condition pour être imprimable
et en colonne CG n'y a-t-il pas des I condition pour ne pas être imprimable ?

A+

Edit:

Grosse boulette :
remplacer

Code:

  If WS1.Range("CF" & DerLig) = 3 And WS1.Range("CG" & DerLig) <> "I" Then
        WS1.Range("CG" & DerLig) = "I" ' ecriture I en col CG

par

Code:

 If WS1.Range("CF" & i = 3 And WS1.Range("CG" & i) <> "I" Then
        WS1.Range("CG" & i) = "I" ' ecriture I en col CG

 

Dernière édition: 16 Février 2014

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 16 Février 2014

• #13

Re : modification macro impression, avec conditions

re, dans la colonne CF il y a des 3, par contre il n'y apas de I dans la CG, en fait je souhaitais qu'il y ait des I une fois que c'était imprimé pour ne pas les réimprimer plus tard

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 16 Février 2014

• #14

Re : modification macro impression, avec conditions

re
le plus important est qu'il m'imprime que les identifiant ayant un 3

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 16 Février 2014

• #15

Re : modification macro impression, avec conditions

re, j'ai supprimé le print vew mais tjrs pareil

 

Vote positif 0 Vote négatif