OVH Cloud OVH Cloud

impression

3 réponses
Avatar
cris570
Salut à toutes et tous

J'ai créer une macro suite au conseille de Ru-Th et RaMa, afin de
lancer l'impression d'un feuille dans un classeur, en cliquant sur
une cellule nommée " Impression " depuis une autre feuille.
Voici la formule :
pour lancer ta macro, nous utiliserons un évènement géré par excel au niveau
de la feuille
dans l'exemple c'est le double clic, nous aurions pu choisir l'évènement
selection_change qui aurait réagit... au changement de selection de cellule

Pour y accéder, alt+f11, lance l'éditeur VBE, puis dans la fenetre prorpiété
en haut à gauche double clic sur la feuille qui subira le double clic,
dans la fenetre centrale, nous choisissons au lieu de "général", "worksheet"
et à côté pour l'évenement déclencheur au lieu de selection_change, le
BeforeDoubleClick.

Il nous reste à insèrer avant le end sub

If Target.Address = "$B$1" Then
'si la cellule où lieu le double clic est b1 alors
Cancel = True
'je ne fais pas l'évenement normal
'à savoir la modification de la cellule
Sheets("TaFeuille").PrintOut
'j'imprime la feuille nommé TaFeuille
End If tu adaptes et les références de ta cellule, et
le nom de TaFeuille


Mais lorsque je double clic sur la cellule, il me met ceci : erreur
d'execution "424": objet requis

3 réponses

Avatar
anonymousA
bonjour,

qu'as tu mis comme nom à la place de Tafeuille dans sheets("TaFeuille") ?
Car le seul objet rqui ici est une feuille.

A+


Salut à toutes et tous

J'ai créer une macro suite au conseille de Ru-Th et RaMa, afin de
lancer l'impression d'un feuille dans un classeur, en cliquant sur
une cellule nommée " Impression " depuis une autre feuille.
Voici la formule :
pour lancer ta macro, nous utiliserons un évènement géré par excel au niveau
de la feuille
dans l'exemple c'est le double clic, nous aurions pu choisir l'évènement
selection_change qui aurait réagit... au changement de selection de cellule

Pour y accéder, alt+f11, lance l'éditeur VBE, puis dans la fenetre prorpiété
en haut à gauche double clic sur la feuille qui subira le double clic,
dans la fenetre centrale, nous choisissons au lieu de "général", "worksheet"
et à côté pour l'évenement déclencheur au lieu de selection_change, le
BeforeDoubleClick.

Il nous reste à insèrer avant le end sub

If Target.Address = "$B$1" Then
'si la cellule où lieu le double clic est b1 alors
Cancel = True
'je ne fais pas l'évenement normal
'à savoir la modification de la cellule
Sheets("TaFeuille").PrintOut
'j'imprime la feuille nommé TaFeuille
End If tu adaptes et les références de ta cellule, et
le nom de TaFeuille


Mais lorsque je double clic sur la cellule, il me met ceci : erreur
d'execution "424": objet requis




Avatar
cris570
La feuille sur laquelle je double clic dans la cellule pour lancer
l'impression, est nommée Devis, et la feuille à imprimer est nommée Edition
devis.
Merci

"anonymousA" a écrit dans le message de news:
42120c25$0$2190$
bonjour,

qu'as tu mis comme nom à la place de Tafeuille dans sheets("TaFeuille") ?
Car le seul objet rqui ici est une feuille.
A+


Avatar
cris570
Je remercie Ru-Th et RaMa pour leurs précieux conseil, j'arrive à imprimer
ma feuille depuis une cellule.
Autre problème, du même genre, j'ai une autre feuille à imprimer, mais que
dans le cas ou le montant de mon devis est égal ou supérieur à 40.000 euros.
Comment dois-je procéder ?
Merci d'avance