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

impression partie d'une feuille

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

F

faroka

Guest
Bonjour à vous.
Je suis novice en VBA et je voudrais imprimer automatiquement en cliquant sur une boite , la partie qui correspond à la semaine écoulée.Les semaines antérieurs étant archivés
Je rentre des infos tous les jrs de la semaine et aimerais les imprimer en fin de semaine sachant que ma feuille est verrouillée par MDP.

Je voudrais également séparé les jours par une ligne étroite et grisée pour faciliter la lecture.

Espérant avoir été explicite , merci à vous de m'aider.
Windows XP, Excel 2000
Ce lien n'existe plus
 
Re : impression partie d'une feuille

Bonjour Faroka et bienvenue sur ce forum

Si tu es novice en VBA, tu peux très bien utiliser l'ENREGISTREUR de MACROS
Menu -> Outils -> Macro -> Nouvelle macro


Lorsque tu as lancé l'enregistrement, il suffit d'effectuer toutes les actions que tu souhaites

Ensuite tu arrêtes l'enregistreur
Menu -> Outils -> Macro -> Arrêter l'enregistrement

Tu vas dans l'éditeur VBA (ALT+F11)
Et dans le module qui s'y trouve tu trouveras le code, qu'il suffit ensuite d'adapter (le forum est là pour ça)

A+
 
Re : impression partie d'une feuille

Bonsoir Bruno
Ok j'utilise souvent l'enregistreur de macro , mais cette fois-ci cela ne marche pas pour les raisons suivantes
la sélection des données pour y être copiée dans une autre feuille n'est jamais la même , donc problème .il faut avoir des variables ....
lorsque l'on utilise l'enregistreur la sélection des cellules sera toujours identique
Voir ci-dessous macro .

Sub Premierecellulevide()
Range("b7").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Activate
Wend

End Sub

Sub Dernierecellulevide()
Range("h7").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Activate
Wend

End Sub

Sub Macro1()

Application.Run "compta.xls!Dernierecellulevide"
' il faudrait pouvoir sélectionner la dernière cellule vide
' afin de l'incrémenter dans Range ("b7:..?")ci-dessous
Range("b7:H11").Select
Range("H11").Activate
Selection.Copy
Sheets("Feuil3").Select
Application.Run "compta.xls!Premierecellulevide"
ActiveSheet.Paste
Range("B4").Select
Sheets("compta").Select
Application.CutCopyMode = False
' il faudrait pouvoir sélectionner la première cellule vide
' afin de l'incrémenter dans Range ("C6:..?")ci-dessous
Range("C6:H11").Select
Range("H11").Activate
Selection.ClearContents
Range("B11").Select
Selection.ClearContents
Range("C7").Select
End Sub

a + et merci de m'aider
 
Re : impression partie d'une feuille

Bruno
j'ai réussi à me débrouiller en enregistrant plusieurs petites macros ,
les comprendre , modifier des valeurs , enfin les bidouiller et miracle mon projet est terminé
Merci à vous tous
à la prochaine
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…