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
- Jitbit
- Spouleur d'impression - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel cellule couleur si condition texte - Guide
- Macro word - Guide
- Impression livret a5 - Guide
4 réponses
29 janv. 2025 à 15:54
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
29 janv. 2025 à 16:47
Bonjour,
Juste au passage, faire une boucle sur les feuilles .
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