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

Aide vba pour impression fiches

Créer une discussion
  • 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 !

S'inscrire

mcz29

XLDnaute Occasionnel
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
 

Pièces jointes

Trier par date Trier par votes
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.
 
Vote positif 0 Vote négatif
Re : Aide vba pour impression fiches

Essai de réponse :

Code: 
[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]
 
Vote positif 0 Vote négatif
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+
 
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

R
  • Question Question
Microsoft 365 aide recherche multiple entrées d'une cellule dans colonne
2
Réponses
16
Affichages
1 K
richard31
R
  • Résolu(e)
Microsoft 365 Extraction d'informations sur différents onglets en partant d'une base de données
Réponses
7
Affichages
823
MBax
K
  • Résolu(e)
Autres Aide pour 2 formules
Réponses
5
Affichages
363
Kris1775
K
J
  • Question Question
Microsoft 365 Générer des fiches en auto.
Réponses
10
Affichages
774
JEREMIE.L44
J
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
520
xavieralvaro
X
S
  • Question Question
XL 2021 Automatisation écritures de caisse boulangerie
2 3
Réponses
39
Affichages
2 K
SMR210606
S
  • Question Question
XL 2021 Aide pour recherche intuitive
2
Réponses
16
Affichages
1 K
jeff1494
  • Résolu(e)
XL 2021 Aide macro / nettoyage fichier
2 3
Réponses
42
Affichages
2 K
AtTheOne
M
  • Résolu(e)
XL 2010 Code VBA pour Appeler un onglet avec texte + variable
Réponses
9
Affichages
1 K
Phil69970
S
  • Résolu(e)
XL 2016 Mini application
2 3
Réponses
30
Affichages
3 K
saidoush
S
I
  • Question Question
Autres Classements pour un cross d'établissement scolaire
Réponses
1
Affichages
843
jcf6464
S
  • Question Question
XL 2016 vba pour extraction, création d'onglet et impression
Réponses
7
Affichages
671
steph_29120
S
M
  • Résolu(e)
Microsoft 365 Gestion numéros de pages du classeur dans une cellule
2
Réponses
16
Affichages
2 K
sousou
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
641
JJ69
J
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
943
marie3107
M
M
  • Résolu(e)
Microsoft 365 VBA pour transformer une plage en tableau + Générer un tableau de synthèse
Réponses
10
Affichages
1 K
Merlin258413
M
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
983
Dock91
D
  • Question Question
XL 2010 fonction vlookup réticente ? (vba) [RESOLU]
2 3
Réponses
34
Affichages
3 K
TooFatBoy
L
  • Question Question
XL 2019 Code VBA pour imprimer en PDF
Réponses
7
Affichages
3 K
kiki29
J
  • Résolu(e)
Microsoft 365 macro effacement sélection cellules
2 3 4
Réponses
55
Affichages
4 K
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…