Conditions d'impression si dans Macro

mimi77 - Modifié le 29 janv. 2025 à 15:48
 Mimi77 - 30 janv. 2025 à 15:54

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

4 réponses

danielc0 Messages postés 1534 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 20 février 2025 181
29 janv. 2025 à 15:54

Bonjour,

Poste le code de la macro.

Daniel


0

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
Le Pingou Messages postés 12241 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 19 février 2025 1 458
29 janv. 2025 à 16:47

Bonjour,

Juste au passage, faire une boucle sur les feuilles .


0
danielc0 Messages postés 1534 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 20 février 2025 181
29 janv. 2025 à 17:07

Essaie :

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

Daniel


0

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