lancer une impression

Bonjour Christian

Le gestionnaire d'évènements n'intercepte pas le clic gauche ordinaire. Tu
peux par contre utiliser le clic droit ou le double-clic avec l'une des
procédures suivantes, à insérer dans le code VB de la feuille concernée.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
ActiveSheet.PrintOut Copies:=1
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
Boolean)
ActiveSheet.PrintOut Copies:=1
End Sub

A adapter selon ton besoin, par exemple en filtrant la cellule cliquée (en
testant Target), ou en ajoutant

Cancel = True

pour annuler l'effet du double-clic ou du clic droit après impression, ou
en ajoutant des options à la ligne PrintOut (voir l'aide de VBA), etc...

Cà répond à ta question?

@+

Yvan

"Christian" <christian.holzer@brugg.fr> a écrit dans le message de news:
OolVPdhrFHA.1984@tk2msftngp13.phx.gbl...

Rebonjour à tous,

Que dois-je faire pour lancer une impression en cliquant simplement sur
une cellule de mon devis ?
Merci de répondre.
Christian

Bonjour,

une solution peut-être pour activer une macro d'un clic gauche ordinaire :
l'affecter à un bouton ou même à une simple zone de texte (par clic droit et
"affecter une macro").

Bonjour,

en complément de ce qui t'a été communiqué et à titre de précision:
l'evenement Worksheet_selectionchange est un evenement qui de près ou de loin
s'apparente à un evenement généré par le click gauche.
Ceci dit , sauf à gérer finement les plages de cellules où appliquer la
macro evenementielle, il est parfois plus aisé de faire appel aux procédures
qu'Yvan t'a indiquées.

A+

Rebonjour à tous,

Que dois-je faire pour lancer une impression en cliquant simplement sur une
cellule de mon devis ?
Merci de répondre.
Christian

help,
je ne peux exécuter aucune macro, car il faut que je les
active ????
je suis aller sur outil sécurité, mis sur niveau moyen, mais rien ne se
passe !
Merci de m'aider

Re-bonjour Christian

Niveau de sécurité bas, et çà devrait aller!
(de toute façon, ce n'est pas çà le plus dangereux pour ton PC)

@+

Yvan


"Christian" <christian.holzer@brugg.fr> a écrit dans le message de news:
Or1Es7irFHA.3444@TK2MSFTNGP12.phx.gbl...

help,
je ne peux exécuter aucune macro, car il faut que je les
active ????
je suis aller sur outil sécurité, mis sur niveau moyen, mais rien ne se
passe !
Merci de m'aider

merci Yvan,

mais j'ai déjà essayé et j'ai le message suivant :
Les macros de ce classeur sont désactivées car le niveau .....etc
Christian

Dans la boite de dialogue Sécurité, onglet Sources fiables, vérifie que les 2
cases à cocher en bas de l'onglet sont bien cochées.

----------
Ange Ounis
----------

help,
je ne peux exécuter aucune macro, car il faut que je les
active ????
je suis aller sur outil sécurité, mis sur niveau moyen, mais rien ne se
passe !
Merci de m'aider

Yvan,

j'ai un message d'erreur :

erreur de compilation: Attendu: nom de type


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As

Boolean)
ActiveSheet.PrintOut Copies:=1
End Sub

Merci c'est bon, j'ai tout fermé puis redémarré, et tout fonctionne, saut
message d'erreur.

???

Je viens de retester. C'est OK. Et je ne vois aucune erreur de syntaxe dans
ce que tu as écrit (si Boolean est bien à la suite de Cancel As, et donc sur
la même ligne).

Pour en avoir le coeur net, charge çà: http://cjoint.com/?iFseFtEedk et
testes-le.

Si çà fonctionne (et normalement oui), procèdes par comparaison (le code est
dans le VBA de Feuil1)

Sinon, reviens vers nous. On trouvera sûrement le hic.

@+

Yvan



"Christian" <christian.holzer@brugg.fr> a écrit dans le message de news:
O5PH%23mjrFHA.3700@TK2MSFTNGP10.phx.gbl...

Yvan,

j'ai un message d'erreur :

erreur de compilation: Attendu: nom de type


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As

Boolean)
ActiveSheet.PrintOut Copies:=1
End Sub