Imprimer

[REDGS]

BONJOUR ET MERCI A TOUS CEUX QUI M’AIDERONT A RESOUDRE LE PROBLEME SUIVANT :

CONCERNANT LES MEMBRES D’UNE ASSOCIATION.
colonne A : N°
colonne B : NOM
colonne C : ADRESSE

SUR LA MÊME FEUILLE EST DESSINEE UNE CARTE DE MEMBRE.
LORSQUE J’INSCRIS UN NUMERO DANS LA COLONNE A, LA CARTE APPARAIT AVEC TOUS LES RENSEIGNEMENTS DES COLONNES A,B,C.

COMMENT LANCER L’IMPRESSION AUTOMATIQUEMENT LORSQUE DANS LA CASE M5 (de la carte) S’INSCRIT LE N° QUE J’AI ATTRIBUE DANS LA COLONNE A. ?

REDGS.

 

[SergiO]

Re : Imprimer

Bonjour REDGS,


Voici un code à tester, tu le mets dans le VBA de ta feuille (clic-droit sur l'onglet, visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("M5"), Target) Is Nothing Then Exit Sub
Message = MsgBox("Vous les vous imprimer la carte n° " & Target.Value & "?", vbQuestion + vbOKCancel, "Impression de carte")
If Message = 1 Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

@+

 

[REDGS]

Re : Imprimer

Merci SERGIO pour ta réponse, mais malgré tout cela ne fonctionne pas, je dois faire une erreur quelque part. Je joins un exemple. merci de ta compréhension

 

[SergiO]

Re : Imprimer

Re,

Remplace

If Intersect(Range("M5"), Target) Is Nothing Then Exit Sub

par:

If Target.Column <> 1 Or Target = "" Then Exit Sub

@+

 

[REDGS]

Re : Imprimer

Merci encore Sergio, cela fonctionne très bien.

REDGS