Impression de la page courante sous excel - VB/VBA/VBS - Programmation
Marsh Posté le 21-10-2005 à 14:28:46
Dans Mise en page / Feuille / lignes à repeter
Tu a bien les lignes d'entete qui apparaissent?
Marsh Posté le 02-11-2005 à 15:16:55
Bonjour,
Tout d'abord merci pour ta réponse si rapide, et ensuite, je tiens à m'excuser de mon grand retard, mais je reviens juste de congé.
Les lignes d'entêtes apparaissent bien dans les lignes à répéter.
Je n'ai toujours pas réussi à trouver la solution.
Toujours la même erreur
erreur 1004
impossible de définir la propriété Hidden de la classe range
Merci pour votre aide
A bientôt
Marsh Posté le 03-11-2005 à 10:27:56
Utilises-tu un boutton (fait par toi) sur lequel tu cliques pour lancer l'impression ?
Marsh Posté le 03-11-2005 à 11:21:43
Vobiscum a écrit : Utilises-tu un boutton (fait par toi) sur lequel tu cliques pour lancer l'impression ? |
Bonjour,
Oui effectivement, j'utilise un bouton fait par moi. Il sert à lancer ma macro d'impression.
Marsh Posté le 03-11-2005 à 11:29:02
gagletor a écrit : Bonjour, |
Peux-tu inclure ceci en première ligne dans Private Sub CommandButton1_Click:
Code :
|
(remplacer feuil1 et commandbuttion1 par les noms de tes propres boutons et feuilles)
et voir si ca marche ?
Marsh Posté le 03-11-2005 à 11:34:53
Ca ne fonctionne pas du tout, j'ai toujours la même erreur...
Merci de ton aide
Marsh Posté le 03-11-2005 à 12:14:58
A mon avis gagletor il serait utile que tu copie/colle les codes exacts que tu as mis pour ton bouton d'impression et pour ta macro, plutot que le code qui t'avait été donné (il y a peut-être tout simplement un problème de syntaxe).
P.S. :Je suis sous excel 2002 et la macro marche parfaitement sans erreur de proprièté.Je n'ai malheuresement d'excel 97 pour tester.
Marsh Posté le 03-11-2005 à 12:17:58
Peux-tu donner la ligne où l'erreur apparaît ?
De plus sous excel 97, il est parfois utile de selectionner les lignes avec lesquelles on veut travailler, donc une ligne tel:
plage.select
après le "set plage = ..."
pourrait peut-être aider
Marsh Posté le 03-11-2005 à 13:33:21
Et bien en faite j'utilise le code tel qu'il est ci-dessus.
Je l'ai mis dans "Private Sub CommandButton2_Click"
La ligne d'erreur est celle-ci ".UsedRange.EntireRow.Hidden = True "
Il me met donc "erreur 1004 "Propriété hidden impossible à definirsur range". "
Je l'ai testé sous excel 2003 et il fonctionne. Je ne sais pas quoi changer pour qu'il fonctionne sous excel 97....
merci
Marsh Posté le 03-11-2005 à 13:50:43
As-tu essayé la plage.select ?
Marsh Posté le 03-11-2005 à 14:08:55
ReplyMarsh Posté le 03-11-2005 à 14:33:16
gagletor a écrit : Je viens d'essayer et j'ai toujours la même erreur |
Désolé, pour l'instant je ne vois pas la solution (je n'ai pas xl97) ... Je vais continuer à chercher mais ça peut prendre du temps
Marsh Posté le 03-11-2005 à 15:08:55
regardes ici
Le problem sur hidden est identique. Tu auras peut être une sollution.
sur msdn, tout indique que c'est bon pour excel 97
Essaye aussi de vérifier ce qu'excel selectionne pour usedrange
bon courage
Marsh Posté le 03-11-2005 à 15:16:01
watashi a écrit : regardes ici |
Déjà proposé dans un de mes posts plus haut ... pour le ici
Marsh Posté le 03-11-2005 à 15:24:16
Vobiscum a écrit : Déjà proposé dans un de mes posts plus haut ... pour le ici |
J'avais vu mais je lui ai filé le lien pour qu'il ai une piste pour demandé de l'aide parce que j'ai même plus de machine ici qui tourne en 97 ayé l'informaticien a réussi à tout faire passer au moins en 2000.
Marsh Posté le 03-11-2005 à 15:37:32
Question: Y a-t-il des cellules mergées dans la feuille ? + La feuille est-elle protégée ?
Marsh Posté le 03-11-2005 à 17:14:13
Oui il y a des cellules mergées, et la feuille est protégée. Mais j'avais le même problème lorsque la feuille n'était pas protégée.
J'ai essayé le truc du lien mais ca ne change rien.
Par contre je vais faire un essais sur une feuille sans cellules mergées.
Je vous tiens au courant.
Merci
Marsh Posté le 03-11-2005 à 17:34:55
Bon j'ai essayé sur une feuille vierge et ca me donne la même erreur....
Vive excel 97.....lol
Gardons le moral, oh oui, gardons le moral
Marsh Posté le 19-10-2005 à 10:26:07
Bonjour,
Tou d'abord je souhaite préciser que je travail avec excel 97 (pour le erreurs de conpatibilité de formaule)
Je dispode d'un formulaire excel. La partie supérieur de la feuille est en volet bloqué, ce qui signifie que lorsque je fais défiler la feuille, ce volet reste fixe. En dessous de ce volet, je remplis des lignes à chacun de mes contrôles de pièces. Une ligne par contrôle.
Si par exemple j'attend un nombre de 200 contrôle et que je veux imprimer la feuille, l'imprimante me sort toute les feuilles, le volet fixe sur la première page, puis les lignes écrite en dessous.
Je souhaiterais pouvoir imprimer ce qui est à l'écran, c'est à dire, le volet fixe + les lignes en dessous ( de la ligne 50 à 60 par exemple, ou bien de la ligne 142 à 154). En faite, ce que je vois à l'écran je veux l'imprimer, sans les menus de excel.
En clair, je voudraisfaire une sorte d'imprime écran système sans imprimer les marges, les barres d'outils. Juste mon tableau excel.
Merci de votre attention
A bientôt
PS: voici un code qui m'a été donné et qui devrait gérer ce genre d'impression. Mais il m'affiche une erreur 1004 "Propriété hidden impossible à definirsur range". Pourtant il fonctionne une fois ou deux avant de me mettre cette erreur.
Sub ImprimeLignesVisibles()
Dim Plage As Range, EnTete As Range, Cel As Range
Application.ScreenUpdating = False
With Feuil1 'A toi d'adapter le nom de la feuille
.Activate
'les lignes d'en-tête, qui seront toujours visibles
Set EnTete = .Rows("1:12" ) 'nbre de lignes figées
Set Plage = Union(ActiveWindow.VisibleRange, EnTete)
.UsedRange.EntireRow.Hidden = True
For Each Cel In Plage.Rows
Cel.EntireRow.Hidden = False
Next Cel
.PrintPreview 'ou .PrintOut en situation réelle
.UsedRange.EntireRow.Hidden = False
End With
Application.ScreenUpdating = True
End Sub