Problème de macro

[Domi]

Bonjour,

Voici ma macro de départ :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range('C2')) Is Nothing Then
Range('C2') = 3
Range('F3') = Range('B2')
End If

Celle-ci a pour fonction d'écrire '3' dans la cellule C2 si je clique sur C2, et d'inscrire le contenu de B2 en F3.
Jusque là pas de souci.

Par contre, si je crée une macro pour imprimer la sélection en cours et que C2 fait parti de cette sélection, il m'affiche tjs le '3' à l'impression.

Comment faire pour que le '3' ne s'affiche que si j'ai réellement cliqué sur C2 ?

----------------------
Merci d'avance.

 

[Domi]

Tu ne vois pas Pascal76 ?

 

[Abel]

Bonjour Domi,

Pascal est sur le pot. Il ne peut pas répondre pour le moment. Hi hi !

Concernant ta question, pourrais tu nous apporter quelques précisions ?
Je ne comprends pas bien le problème.

Ou plutôt, tu voudrais que si on fait une sélection de plusieurs cellules (quelque soit le but) que que si 'C2' fait partie de cette sélection, alors, la macro qui écrit '3' en 'C2' ne s'exécute pas.

Si c'est ça, essaie :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range('C2')) Is Nothing and target.cells.count=1 Then
Range('C2') = 3
Range('F3') = Range('B2')
End If

Abel.

Message édité par: Abel, à: 14/11/2005 16:09

 

[Domi]

Salut Abel,
Je t'ai joins un fichier avec l'exemple et toutes les explications.

Merci. [file name=Test_20051114164228.zip size=9843]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20051114164228.zip[/file]

 

[evelynetfrancois]

'bonsoir
dans ta macro imprimer
tu selectes la zone , donc tu relances ta macro avant d imprimer !!
supprime
Range('A1:C15').select
'Range('C15').Activate
le resultat dois etre plus convenable
e et f

 

[Domi]

Je suis d'accord que je sélectionne la zone, mais c'est normal, puisque je dois spécifier quelle zone imprimer.

 

[Hervé]

Bonjour tout le monde

🙂

comme ceci domi : Sheets('Feuil2').Range('A1:C15').PrintOut Copies:=1, Collate:=True


salut

 

[Domi]

Nickel chrome hervé.

Merci beaucoup ;-)

 

[PascalXLD]

Bonjour

Et oui Domi j'avais reconnu le code que je t'avais donné mais que veux-tu j'étais absent pratiquement tout l'après-midi. Mais bon il ne faut jamais s'inquiéter il y a toujours la relève et ce fut le cas avec Abel et Hervé (ou son clone ..... non Hervé car le code est concis direct et répond à la question sans ZOP 😉 ) en particulier ainsi que EetF

Bonne soirée à tous

 

[Domi]

No soucy Pascal76, j'aurais certainement besoin de ton aide ultérieurement ;-)

Bye bye