Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA : imprimer x feuilles selon choix dans une liste déroulante

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion nat54
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

nat54

XLDnaute Barbatruc
Bonjour,

Difficile de trouver un titre explicite

Je souhaite imprimer tous les comptes via un code VBA
car actuellement mes collègues doivent
- choisir le 1er compte en cellule c7
- imprimer
- choisir le 2è compte en cellule c7
- imprimer
.........
là j'ai mis que 3 comptes mais il y a en pléthore

Comment faire ?

J'ai essayé un peu (cf module 1) mais il me manque vraiment des connaissances en vba

Merci
 

Pièces jointes

Trier par date Trier par votes
Re : VBA : imprimer x feuilles selon choix dans une liste déroulante

Bonjour Nat54,
Voici un exemple de macro qui imprime chaque fois l'onglet INTERRO
Bruno

Code: 
Sub Imprimer_tous_les_comptes()
With Sheets("bd")
For lig = 1 To .[A65536].End(xlUp).Row 'boucler sur toutes les lignes en bd
INTERRO.[C7] = .Cells(lig, 1)
INTERRO.PrintOut
Next
End With
End Sub
 
Vote positif 0 Vote négatif
Re : VBA : imprimer x feuilles selon choix dans une liste déroulante

Bonjour,

Cela ne fonctionne pas ça me met un débogage sur la ligne :

Code: 
INTERRO.[C7] = .Cells(lig, 1)

Il ne faut pas (re)préciser les feuilles d'origine et de destination ?!
 
Dernière édition:
Vote positif 0 Vote négatif
Re : VBA : imprimer x feuilles selon choix dans une liste déroulante

Re,

J'ai modifié et ça marche

Code: 
Sub Imprimer_tous_les_comptes()
With Sheets("bd")
For lig = 1 To .[A65536].End(xlUp).Row 'boucler sur toutes les lignes en bd
Sheets("INTERRO").Select
Range("C7") = Sheets("bd").Cells(lig, 1)
Sheets("INTERRO").PrintOut
Next
End With
End Sub

Il y a sûrement plus optimal...
 
Vote positif 0 Vote négatif
Re : VBA : imprimer x feuilles selon choix dans une liste déroulante

Salut,
Oui petite boulette de ma part,
Avec un With on définit un element ensuite pour l'appeler il suffit de mettre un point
voir ma macro précédente . . .
Il est inutile de selectionner d'ailleurs même déconseillé.
Voici deux façons de faire
Code: 
Sub Imprimer_tous_les_comptes()
For lig = 1 To Sheets("bd").[A65536].End(xlUp).Row 'boucler sur toutes les lignes en bd
Sheets("INTERRO").[C7] = Sheets("bd").Cells(lig, 1)
Sheets("INTERRO").PrintOut
Next
End Sub
et avec la méthode with regarde le .[C7] et .printout
Code: 
Sub Imprimer_tous_les_comptes()
With Sheets("INTERRO")
For lig = 1 To Sheets("bd").[A65536].End(xlUp).Row 'boucler sur toutes les lignes en bd
.[C7] = Sheets("bd").Cells(lig, 1)
.PrintOut
Next
End With
End Sub

Bruno
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 carte choroplèthe et conditionner la couleur selon une liste déroulante de choix
Réponses
8
Affichages
787
Daniel200666
D
L
  • Résolu(e)
Microsoft 365 Création d'un code VBA pour sélectionner des zone selon choix multiples.
Réponses
3
Affichages
635
Lionel Alfred
L
D
  • Résolu(e)
Microsoft 365 lier deux colonnes selon une liste de distribution dans un premier fichier
2
Réponses
16
Affichages
1 K
Daniel200666
D
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V2.0 + 2.01 - exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
2
Affichages
573
oguruma
  • Résolu(e)
Microsoft 365 Masquer des colonnes aux cellules avec valeurs données selon sélection d'une liste déroulante
Réponses
5
Affichages
1 K
PatFr38
M
  • Question Question
XL 2016 VBA Liste déroulante
Réponses
2
Affichages
892
Myaah
M
  • Résolu(e)
XL 2010 Calcul en fonction du choix dans une liste déroulante
Réponses
2
Affichages
1 K
jeanmi
  • Question Question
XL 2016 résultat liste déroulante dans une cellule active - vba
Réponses
3
Affichages
716
job75
M
  • Question Question
Microsoft 365 Filtrer une colonne selon valeur cellule
Réponses
6
Affichages
1 K
MACx
M
E
  • Question Question
Microsoft 365 VALEUR PAR DÉFAUT DANS UNE LISTE DÉROULANTE
Réponses
1
Affichages
2 K
Eric C
A
  • Question Question
XL 2019 Copier/coller selon liste déroulante
Réponses
4
Affichages
1 K
AntoineJ13
A
I
  • Question Question
XL 2016 Duplication d'une ligne suivant choix dans ma liste déroulante
Réponses
1
Affichages
555
job75
C
  • Question Question
XL 2016 Liste intuitive dans menu déroulant
Réponses
6
Affichages
1 K
com689
C
B
  • Résolu(e)
XL 2016 Sélection dernière ligne, création de liste déroulante X fois, macro vba
Réponses
8
Affichages
3 K
BARNS
B
  • Question Question
Microsoft 365 Affichage de colonne selon un choix
Réponses
0
Affichages
719
Roseline
P
  • Question Question
Microsoft 365 Liste déroulante auto-filtrante dans une feuille protégée
2 3
Réponses
35
Affichages
4 K
Phil69970
L
  • Résolu(e)
Microsoft 365 PLUSIEURS listes déroulante à choix multiples
Réponses
3
Affichages
2 K
Le Vonvon
L
G
  • Résolu(e)
XL 2016 Remplir une cellule à la suite d'un choix dans une liste déroulante
Réponses
4
Affichages
3 K
grecooll
G
P
  • Question Question
XL 2019 Enregistrer et imprimer une feuille en pdf
Réponses
9
Affichages
2 K
PeewhY
P
J
  • Question Question
XL 2016 Liste déroulante à deux choix permettant d'afficher ou masquer une feuille
Réponses
3
Affichages
2 K
jannine NOLAM
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…