Imprimer
Résolu/Fermé
bailey
-
20 oct. 2008 à 06:23
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 24 oct. 2008 à 21:27
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 24 oct. 2008 à 21:27
A voir également:
- Imprimer
- Comment signer un pdf sans l'imprimer - Guide
- Journal de ma naissance gratuit à imprimer - Télécharger - Histoire & Religion
- Imprimer en a5 - Guide
- Imprimer tableau excel sur une page - Guide
- Paroles de chansons françaises à imprimer pdf - Télécharger - Vie quotidienne
8 réponses
Soit c'est moi (ce doit être cela) mais ca ne fonctionne pas.
Question: faut il que je répète la macro à chaque feuille ?
Question: faut il que je répète la macro à chaque feuille ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
24 oct. 2008 à 12:54
24 oct. 2008 à 12:54
Faut bien sûr adapter le nomFeuille et la cellule de test.
Si ça ne va pas met le code de ta macro dans un poste suivant.
A+
Si ça ne va pas met le code de ta macro dans un poste suivant.
A+
Voilà le code:
Sub ImprimeToutesFeuil()
Dim F As Integer
If Sheets("1").Range("E44") > 0 Then 'A adapter
For F = 1 To Worksheets.Count
Sheets(F).PrintOut
Next F
End If
End Sub
Le nom de la feuille est 1 et la cellule test est E44
Comment faire pour imprimer toute les feuilles dont la cellule E44 est au dessus de zéro ?
Sub ImprimeToutesFeuil()
Dim F As Integer
If Sheets("1").Range("E44") > 0 Then 'A adapter
For F = 1 To Worksheets.Count
Sheets(F).PrintOut
Next F
End If
End Sub
Le nom de la feuille est 1 et la cellule test est E44
Comment faire pour imprimer toute les feuilles dont la cellule E44 est au dessus de zéro ?
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
24 oct. 2008 à 21:27
24 oct. 2008 à 21:27
Bon, par acquit de conscience j'ai testé et ça fonctionne.
Le seul truc que je peu voir c'est où tu à mis la macro ?
Elle doit être dans un module général, par ex Module1.
A+
Le seul truc que je peu voir c'est où tu à mis la macro ?
Elle doit être dans un module général, par ex Module1.
A+
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
20 oct. 2008 à 07:00
20 oct. 2008 à 07:00
Bonjour,
A+
Sub Macro()
If Range("A1")>0 then
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub
A+
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
21 oct. 2008 à 12:12
21 oct. 2008 à 12:12
Re,
Si tu veux imprimer toutes les feuilles...
Tu doit mettre la macro dans un module général, par exemple Module1
A+
Si tu veux imprimer toutes les feuilles...
Sub ImprimeToutesFeuil()
Dim F As Integer
'Il faut que les mises en page et la zone à imprimer
'de chaque feuille soit faite au préalable.
If Sheets("NomFeuille").Range("A1") > 0 Then 'A adapter
For F = 1 To Worksheets.Count
Sheets(F).PrintOut
Next F
End If
End Sub
Tu doit mettre la macro dans un module général, par exemple Module1
A+
