Aide vba pour impression fiches

[mcz29]

bonjour,
J'ai réalisé un classeur excel pour imprimer des fiches d'élevage de lapins qui comprend 3 onglets(un onglet où seront notées les résultats des animaux au rang 1 cad 1ère fois que la femelle donne des lapereaux, 2ème onglet rang 2 pour la 2ème fois et enfin l'onglet fiche qui est un modèle pour l'impression des fiches).
J'ai trouvé un exemple de code vba pour imprimer ma fiche mais j'ai les soucis suivants :

- je ne sais pas quoi mettre comme code pour récupérer les données de l'onglet rg2 (pour indiquer dans la cellule de date de mise bas prévue le contenu de la cellule G6).
- je souhaite mettre 2 fiches sur la même feuille (donc 2 femelles), je ne sais pas comment faire pour lui indiquer de prendre une ligne sur 2.
merci

 

[Sylvain]

Re : Aide vba pour impression fiches

Je pense que c'est tes 2 boucles, ça ne va pas comme ça, il faut en faire une seule sinon la première met uniquement la dernière valeur d'en haut. Et on imprime toutes les valeurs du bas.

 

[Sylvain]

Re : Aide vba pour impression fiches

Essai de réponse :

[size=2][color=black]  [/color][color=darkblue]Sub[/color][color=black] fichelapins()  
  [/color][color=darkblue]For[/color][color=black] i = 2 [/color][color=darkblue]To[/color][color=black] 17 [/color][color=darkblue]Step[/color][color=black] 2  
    [/color][color=darkblue]Call[/color][color=black] rempli_fiche_haut(i)  
    [/color][color=darkblue]Call[/color][color=black] rempli_fiche_bas(i + 1)  
    Sheets("FICHE").PrintPreview  
  [/color][color=darkblue]Next[/color][color=black]  
  [/color][color=darkblue]End[/color][color=black] [/color][color=darkblue]Sub[/color][color=black]  
  [/color][color=darkblue]Sub[/color][color=black] rempli_fiche_haut(ByVal ligne [/color][color=darkblue]As[/color][color=black] Integer)  
  [/color][color=darkblue]Dim[/color][color=black] b [/color][color=darkblue]As[/color][color=black] Range  
  Sheets("mb_sev_bde1").Select  
  [/color][color=darkblue]Set[/color][color=black] b = Cells(ligne, 2)  
  [/color][color=darkblue]With[/color][color=black] Sheets("FICHE")  
  .Range("G2") = b.Offset  
  .Range("H2") = b.Offset(0, -1)  
  .Range("A12") = b.Offset(0, 1)  
  .Range("B12") = b.Offset(0, 6)  
  .Range("C12") = b.Offset(0, 7)  
  .Range("D12") = b.Offset(0, 8)  
  .Range("E12") = b.Offset(0, 11)  
  .Range("F12") = b.Offset(0, 12)  
   [/color][color=darkblue]End[/color][color=black] [/color][color=darkblue]With[/color][color=black]  
  Sheets("mb_sev_bde2").Select  
  Sheets("FICHE").Range("G6").Value = Cells(ligne, 7)  
  [/color][color=darkblue]End[/color][color=black] [/color][color=darkblue]Sub[/color][color=black]  
    
  [/color][color=darkblue]Sub[/color][color=black] rempli_fiche_bas(ByVal ligne [/color][color=darkblue]As[/color][color=black] Integer)  
  [/color][color=darkblue]Dim[/color][color=black] b [/color][color=darkblue]As[/color][color=black] Range  
  Sheets("mb_sev_bde1").Select  
    
  [/color][color=darkblue]Set[/color][color=black] b = Cells(ligne, 2)  
  [/color][color=darkblue]With[/color][color=black] Sheets("FICHE")  
  .Range("G28") = b.Offset  
  .Range("H28") = b.Offset(0, -1)  
  .Range("A38") = b.Offset(0, 1)  
  .Range("B38") = b.Offset(0, 6)  
  .Range("C38") = b.Offset(0, 7)  
  .Range("D38") = b.Offset(0, 8)  
  .Range("E38") = b.Offset(0, 11)  
  .Range("F38") = b.Offset(0, 12)  
   [/color][color=darkblue]End[/color][color=black] [/color][color=darkblue]With[/color][color=black]  
     
  Sheets("mb_sev_bde2").Select  
  Sheets("FICHE").Range("G32").Value = Cells(ligne, 7)  
  [/color][color=darkblue]End[/color][color=black] [/color][color=darkblue]Sub[/color][color=black]  [/color][/size]

 

[mcz29]

Re : Aide vba pour impression fiches

super !! extra !! génial !!
c'est exactement ce que je veux !!
j'ai juste mis des espaces entre les end with et les end sub pour que çà passe.
merci et encore merci
a+