Contenu textbox à inclure dans macro d'impression

[mcz29]

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 :

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

 

[mcz29]

Re : Contenu textbox à inclure dans macro d'impression

quelqu'un a - t - il une idée ?
merci

 

[lapix]

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

 

[mcz29]

Re : Contenu textbox à inclure dans macro d'impression

merci beaucoup je vais tester et te tenir au courant a+

 

[mcz29]

Re : Contenu textbox à inclure dans macro d'impression

çà marche super bien
un grand merci
a+