Conditions d'impression si dans Macro
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
-
Bonjour,
Poste le code de la macro.
Daniel
-
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
-
Bonjour,
Juste au passage, faire une boucle sur les feuilles .
-
Essaie :
For i = 1 To 5 Sheets(i).PrintOut Next i If [calcul!A42] = "échantillon" Then Sheets(6).PrintOut End IfDaniel
