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

Contenu textbox à inclure dans macro d'impression

  • Initiateur de la discussion Initiateur de la discussion mcz29
  • 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 !

mcz29

XLDnaute Occasionnel
bonjour,
j'ai un fichier avec des macros qui me remplissent des fiches récapitulatives d'animaux en fonction de leur numéro.

J'aimerai à partir d'un userform que l'on puisse sélectionner les n° des fiches à imprimer (qui correspondent en fait aux n° de lignes). J'ai créé ce userform (dans le 1er onglet) mais je ne sais pas comment faire pour que le contenu des textbox s'insèrent dans la macro.
Voici le code de la macro :

Code:
Sub fichelapins1()
  For i = 2 To 17 Step 2
    Call rempli_fiche_haut1(i)
    Call rempli_fiche_bas1(i + 1)
    
    'Sheets("FICHE").PrintOut Copies:=1, Collate:=True
    
  Next
  
  End Sub

Avec dans l'idée de remplacer (ici) les n° 2 et 17 par ce que la personne indiquera dans le texbox.

merci
 

Pièces jointes

Re : Contenu textbox à inclure dans macro d'impression

Bonsoir,

En fait tu as deja fait tout le travail sauf une petite chose :

Il te suffit de passer en parametre les deux valeurs saisies dans les textbox (De - A) a ta procedure fichelapins1 :

FicheLapins1 Val(Me.x.Text), Val(Me.y.Text) -> tu peux enlever le 'Call'

Ta procedure fichelapins1 deviendrait :

Sub FicheLapins1(De As Long, Jusqua As Long)
For i = De To Jusqua Step 2
 
- 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

Réponses
8
Affichages
740
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
495
Réponses
4
Affichages
686
Réponses
3
Affichages
625
Réponses
9
Affichages
824
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…