impression partie d'une feuille

[faroka]

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

 

[Compte Supprimé 979]

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+

 

[faroka]

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

 

[faroka]

Re : impression partie d'une feuille

Doublon avec le dernier message

Veuillez m'excuser

 

[faroka]

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