Conditions d'impression si dans Macro

mimi77 -  
 Mimi77 -

Bonjour,

J'ai  une macro faite pour lancer une impression de  5 pages (5 onglets du même doc excel) .

J'ai une 6ème page qui doit se rajouter à l'impression globale si et seulement si la case A42 de l'onglet "calcul" mentionne le mot "échantillon")

sauriez-vous comment intégrer ceci dans la macro pour que cette 6ème page sorte automatiquement suivant la condition "échantillon" en case A42 de l'onglet "calcul"?

Merci d'avance pour vos conseils,
Windows / Edge 132.0.0.0

A voir également:

4 réponses

Réponse 1 / 4
danielc0 Messages postés 1868 Date d'inscription   Statut Membre Dernière intervention   232
 

Bonjour,

Poste le code de la macro.

Daniel
0
Réponse 2 / 4
Mimi77
 

Bonjour,

j'ai mis cela dans la macro à la fin des autres pages programmées à l'impression à la file:

If Sheets("Calcul").cell(A42) = "Echantillon" Then

        Sheets("Echantillon").Select

        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

        End If

Sans savoir si tout ceci est cohérent...Merci pour l'aide
0
Réponse 3 / 4
Le Pingou Messages postés 12250 Date d'inscription   Statut Contributeur Dernière intervention   1 458
 

Bonjour,

Juste au passage, faire une boucle sur les feuilles .
0
Réponse 4 / 4
danielc0 Messages postés 1868 Date d'inscription   Statut Membre Dernière intervention   232
 

Essaie :

  For i = 1 To 5
    Sheets(i).PrintOut
  Next i
  If [calcul!A42] = "échantillon" Then
    Sheets(6).PrintOut
  End If

Daniel
0
Mimi77
 

Merci beaucoup Daniel !!

J'ai fait un peu différemment vu la configuration de base de la macro en bataillant mais en m'aidant du précédent conseil qui m'a permis d'y arriver 

Bonne fin d'après-midi 

0

Discussions similaires

Historique d'impression
nyla29 -
zzz -

6 réponses
Ou trouver l'historique d'impression ?
MrMuggles -
brucine -

3 réponses
commenr trouver des document deja imprimer
moi69 -
CCMclaude -

3 réponses